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Введение 


Данная книга посвящена одному из наиболее популярных в нашей стране и пер- 
спективному во всем мире языку программирования Вер. Она предназначена для 
программистов всех уровней, от начинающего до опытного. Как показывает прак- 
тика, большинство людей научились программированию по книгам. Однако далеко 
не все из этих книг объясняют принципиальные основы работы У/1п4о\$ и компь- 
ютера в целом. Отсутствие базовых знаний в этой области не позволяет писать эф- 
фективные программы. 

Эта книга может научить многому. Однако без самостоятельного стремления 
совершенствоваться в данной области вы не сможете самостоятельно писать "хо- 
рошие" программы. В этой книге будут рассматриваться различные методы, неко- 
торые шаблоны и приемы программирования на языке Деры, однако описать аб- 
солютно все, как вы понимаете, здесь просто невозможно. Программирование — 
это такая область, в которой требуется постоянное обучение. В связи с этим нельзя. 
останавливаться на достигнутом, прочитав только одну книгу. Нужно постоянно 
совершенствоваться и обучатся. 

За что я люблю компьютеры, так это за то, что они являются безграничным ис- 
точником знаний, которые нельзя изучить в полном объеме. Даже если вы сможете 
узнать все, пока вы будете обучаться, появятся новые технологии. Именно поэтому 
нет человека, который` знал бы все. Я тоже не знаю, но люблю изучать что-то но- 
вое. Но если даже представить себе, что я смогу изучить все, то лично мне жить 
станет скучно. 

Прежде чем приступить к учению самой книги, необходимо сделать несколь- 
ко. замечаний. Первое из них касается терминологии. В тексте часто будет исполь- 
зоваться выражение "Язык программирования Перш". Многие утверждают, что 
Рерб! — это среда разработки, которая использует язык программирования Разса| 
(Паскаль). В принципе, здесь не утверждается, что это ошибка. И все же в Ре|рШ от 
старого Паскаля осталось очень мало, поэтому я считаю, что это не просто среда 
разработки, а самостоятельный язык программирования. Это лично мое мнение как 
автора, и вы можете с ним соглашаться или нет. Но даже разработчик среды разра- 
ботки Ре|рш уже тоже воспринимает Веры как самостоятельный язык. 

Теперь о содержимом книги. В ней сделана попытка представить изучаемый ма- 
териал таким образом, чтобы было понятно даже человеку, который только недавно 
познакомился с компьютером. Возможно, опытным программистам какие-то части 
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читать будет скучно, но даже здесь будут описываться достаточно специфичные 
вещи, среди которых можно найти для себя довольно много полезного. Поверьте, 
это действительно так и связано с тем, что большинство книг по данной проблема- 
тике упускают из виду некоторые очень важные тонкости, которые желательно. 
знать для понимания принципа работы программ. Без этого понимания тяжело дви- 
гаться дальше, и любые новые технологии будут казаться тяжелыми и сложными. 

Прежде чем приступить к чтению книги, учтите один совет. Книгу желательно 
читать полностью, от начала и до конца, потому что материал излагается постепен- 
но, и некоторые вещи могут быть непонятны, если что-то пропустить вначале. Как 
только вы почувствуете, что получили достаточно знаний и способны самостоя- 
тельно писать хотя бы простейшие программы, можете сделать единственный ска- 
чок на главу 25. В ней дается материал, касающийся отладки приложений, потому 
что при самостоятельном написании программ всегда появляются ошибки или опе- 
чатки. Мы люди, и нам свойственно ошибаться. Эта глава объясняет, как находить 
такие ошибки. В ней вы также узнаете некоторые приемы по работе с редактором 
‘кода, которые могут пригодиться в будущем при программировании собственных 
приложений, да и при работе с примерами, которые представлены в этой книге. 
После прочтения этой главы можно вернуться к той, на которой вы остановились 
ранее, и продолжить чтение книги уже без каких-либо скачков. Иначе какой-то 
важный момент может быть упущен, и нагнать потом будет очень тяжело, потому 
что вы можете не заметить, что что-то упустили. 


ВНИМАНИЕ. Я не читал ни одной книги по Оерй! на русском языке, только англоязыч- 
ные материалы. Единственная книга, которую я видел (я даже не прочитал ее полно- 
стью, а просмотрел несколько глав) была по Войапа Разса!. Это было в 1994 году, по- 
этому я даже не помню ее названия. Именно поэтому некоторые мои термины могут 
отличаться от таких же в другой литературе. 


И последнее, некоторые термины, встречающиеся в книге, могут отличаться от 
аналогичных, которые изложены в другой технической литературе, относящейся 
к данному вопросу. Это связано с особенностями перевода англоязычного текста на 
русский язык. В любом случае терминология, которая приводится в книге, делает 
ее намного проще и понятней как начинающим, так и опытным программистам. 


Замечания к третьему изданию 


Если вы читали предыдущий вариант книги, вам также будет полезно прочитать 
эту книгу, потому что данный вариант переработан полностью от начала и до кон- 
ца. Помимо этого, на компакт-диске, прилагаемом к данной книге, представлено 
много новой и полезной документации, которая поможет вам двигаться дальше по- 
сле прочтения книги. 

Некоторая информация была перенесена из книги на компакт-диск в виде элек- 
тронных документов. Этим я сэкономил место, чтобы дать больше полезной ин- 
формации на страницах книги. Если бы всю эту информацию превратить в печат- 
ные страницы, то книга стала бы как минимум в два раза толще. Пришлось бы 
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выпускать два тома, но это оказалось бы очень дорого для многих читателей, 
а я хочу, чтобы книга оставалась доступной и давала максимум информации. 

Когда я планировал написать эту книгу, то основная цель была не заработать 
как можно больше денег, а поделиться знаниями и дать как можно больше. Пусть 
книга будет дешевле, а я заработаю м меньше, но вы уж точно не будете жалеть, что 
потратили свои деньги. | 

Над вторым изданием я работал в два раза дольше, несмотря на то, что это было 
всего лишь обновление. Первое издание было создано на скорую руку и поэтому 
содержало много ошибок. На этот раз я старался не торопиться, чтобы совершать 
меньше ошибок. Я человек и могу совершать ошибки или опечатки, поэтому, если 
вы найдете их в данной книге, просьба сообщить мне об этом через мой сайт 
уу/\.Пепоу ло. 

Для работы над третьим изданием я использовал Войапд Беры версии 2006. 
Но все, что написано в книге, будет применимо и к более поздним версиям. Неко- 
торые до сих пор используют 7-ю версию, поскольку были разочарованы 8-й вер- 
сией и Ре!рЫ: 2005. Если вы тоже используете старую версию, то я советую вам 
попробовать что-то более современное. Начиная с версии 2006, оболочка Ое!рЫ стала 
намного лучше и стабильнее. Описываемый в книге материал и примеры будут ра- 
ботать на любой версии Ое]ры, начиная с 7-Й. 

Наша цель — изучить язык программирования, который не сильно отличается 
от оболочки. С выходом новых версий в языках появляются новые возможности 
и функции, но основа остается той же самой. 


ПРИМЕЧАНИЕ. В 2006 году среду разработки Вер! выпускал Вопапд, а в конце года 
эта задача была передана созданному ‘самостоятельному подразделению СодеСеаг. 

‚ А через некоторое время, ‘все подразделение было продано компании ЕтвБагсадего 
Тесппоочез$. Теперь если попытаться зайти на сайт мммим.содедеаг.сот, то будет за- 
гружен ИЦр://Ам\/м.етЬагсааего.сот. 
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Основные принципы 
работы компьютера 


Прежде чем начинать создавать программы, необходимо понять, как работает 
компьютер. Программирование — это постоянная борьба с машиной. Нужно за- 
ставлять ее делать то, что вам нужно. Поэтому любой программист обязан пони- 
мать, как будет выполняться программа. Это позволит вам максимально эффектив- 
но использовать все доступные ресурсы и лучше писать код. 


1.1. Двоичная система работы процессора 


Компьютеры изобрели достаточно давно. В те далекие времена электроника 
только начинала зарождаться, поэтому первые компьютеры были ламповыми и за- 
нимали очень много места. Для того чтобы управлять такой махиной, нужно было 
очень много обслуживающего персонала. Со временем лампы начали вытесняться 
электронными компонентами, и компьютеры стали уменьшаться в размерах. Сейчас 
же мы видим результат прогресса и на наших рабочих столах находятся небольшие 
системные блоки, которые занимают мало места, а по производительности могут 
обойти серверы 5— 10-летней давности. 

В конце 1990-х годов я работал на большом предприятии, на котором сохрани- 
лись компьютеры' 1970-х годов. Это были шкафы (в прямом смысле этого слова), 
произведенные в Советском Союзе. Вы помните, что была такая страна ©? Так вот, 
в то время у меня дома стоял Репиит 100. который был в сто раз меньше и в тыся- 
чу раз быстрее. | 

Однако основные принципы работы компьютера, заложенные во времена их 
рождения, действуют до сих пор. Суть их заключается в следующем. Данные пере- 
даются с помощью какого-то сигнала (для нас не имеет значения какого, потому 
что мы не электронщики) методом "есть сигнал или нет" или, по-другому, "вклю- 
чен или выключен". Так появился "бит" (Ш0. Бит — это единица информации, ко- 
‘торая может принимать значение 0 или 1, т.е. "включен или выключен". Восемь 
бит объединяются в байт, один байт равен 8 битам. Почему именно 8? Да потому 
что первые компьютеры были восьмиразрядными и могли работать одновременно 
только с 8 разрядами (битами), например, 010000111. 

Все первые нули можно удалять, поэтому число 010000111 можно записать 
как — 10000111. Это то же самое, что и в привычной для нас десятичной системе 
исчисления, где каждый разряд может принимать значения от 0 до 9. Здесь также 
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никто не будет писать число 5743 как 0005743, потому что первые нули не имеют 
никакого значения. 

В один байт можно записать любое число от 0 до 255. Почему? Об этом немного 
позже. Указанный диапазон чисел довольно мал. Поэтому чаще используют более 
крупные градации: | 
О] два байта = слово; 

С) два слова = двойное слово. 

Итак, компьютер стал работать в двоичной системе исчисления. Но как же то- 
гда записать число 135, если у нас единица информации может принимать значе- 
ния 0 или 17 Это можно сделать в двоичной системе. Давайте разберемся, как это 
работает. 

Для начала вспомним, как действует десятичная система исчисления, к которой 
мы привыкли. Для этого рассмотрим число 19 578 246. Я специально выбрал такое 
число, чтобы оно состояло из восьми разрядов (цифр). Теперь запишем его, как по- 
казано на рис. 1.1[. 


Номер разряда 76543210 


19578246 


Рис. 1.1. Число 19 578 246 в десятичной системе исчисления 


Как видите, я пронумеровал разряды начиная с нуля до семи и справа налево. 
Теперь представьте себе, что это не целое число, а просто набор разрядов. 1, 9, 5, 7, 
8, 2, 4 и 6. Как из этих разрядов получить целое число в десятичной системе? 
Наверное, некоторые скажут, что надо просто записать их подряд. А если я спрошу 
почему? Вот тут появляется математика. Нужно каждый разряд умножить на 10 
(степень исчисления), возведенную в степень номера разряда. Непонятно? Попро- 
бую оформить сказанное в виде формулы, показанной на рис. 1.2. 


( 1 0 °меР разряда Номер разряда 


Разряд 0 * )+Разряд 1 * (10 )+... 


Рис. 1.2. Работа с десятичными числами 


_ Давайте посчитаем значение числа по этой формуле начиная с нулевого разряда. 
Получается, что 6 нужно умножить на 10 в нулевой степени 6х 10° = 6. Потом при- 
бавить 4 х 10 в 1-й степени, или 4х 10' = 40 (итого уже 46). Потом 2х 10 во 2-й сте- 
‚ пени, 2х 10° =200 (итого 246). Потом 8х 10 в 3-й степени, 8х 10° = 8000 (итого 
8246) ит. д. В итоге получится число 19 578 246. Магия чисел? Нет, это просто мате-. 
матика, и в школе далеко не всегда нам показывают, что означает десятичная система 
исчисления, а ведь она достаточно проста. | | 

А теперь рассмотрим двоичную систему исчисления. Здесь каждый разряд мо- 
жет принимать значение О или | (два состояния). Кстати, в десятичной системе 
у нас каждый разряд мог принимать значения от 0 до 9, т. е. имел десять состояний. 


Основные принципы работы компьютера 7 


Давайте рассмотрим следующий байт — 10000111. Запишем его на листке бумаги 
так, как показано на рис. 1.3. | | 


Номер разряда 76543210 


Биты 10000111 


Рис. 1.3. Двоичное число 


Здесь действует та же самая формула, только нужно возводить в степень не 10, 
а число 2, потому что это число в двоичной системе. Опять же произведем расчет 
начиная с нулевого разряда, т.е. справа налево. Получается, что первую | мы 
должны умножить на 2 в нулевой степени (1х 2° = 1). Следующую единицу нужно 
умножить на 2', получается 2 (итого 2 + 1 =3) ит. д. Вот как это будет выглядеть 
полностью: | 


(1х 20) + (1х2') + (1х 2") + (0х 27) + (0Ох2°) + (0х2) + (0х2°) + (1х2”) = 135. 


Вот так, оказывается, выглядит в двоичной системе исчисления число 135. Давай- 
те теперь научимся пересчитывать числа из десятичной системы в двоичную. Для 
этого нужно число 135 разделить на 2. Получается 67 и остаток | (запомним 1, т. к. 
она определяет первый двоичный разряд искомого числа). Теперь 67 снова делим 
на 2, получается 33 и остаток | (таким образом получено уже две двоичные едини- 
цы, т.е. 11). 33 делим на 2, получаем 16 и остаток | (в результате получаем три 
_ двоичные единицы, 111). 16 делим на 2, получаем 8 и остаток 0 (результат 0111). 
И наконец, 8 делим на 2 = 4, остаток от деления при этом будет 0 (получаем 00111): 
4 делим на 2 =2, остаток 0 (получаем 000111); 2 делим на 2 = 1, остаток 0 (итого 
0000111). Оставшаяся единица частного на два не делится, значит, это последний, 
самый старший разряд искомого числа. Просто дописываем ее к ранее сформиро- 
ванным разрядам и получаем окончательный ответ — 10000111. Получилось пер- 
воначальное число. 

Вот так происходит преобразование чисел в двоичную систему исчисления. 
Таким же образом можно перевести число в любую другую систему (двоичную, 
восьмеричную, шестнадцатеричную). Для более полного закрепления материала 
в табл. 1.1 показано соответствие десятичных чисел двоичным. Попробуйте сами 
перевести пару чисел из одной системы исчисления в другую. 


Таблица 1.1. Таблица соответствия десятичных и двоичных чисел 


Десятичное Двоичное Десятичное Двоичное 
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Например, попробуйте перевести число, состоящее из 8 бит (1 байт), у которого 
все биты состоят из единиц, в десятичную систему. Вы должны получить 255. Это 
максимальное число, которое можно записать в одном байте, потому что все его 
биты равны 1. Вот так и получается, что в 8 бит можно записать числа от 0 до 255. 
В 16 битах (2 байта или слово) можно записать число от 0 до 65 535. В 32 битах 
(двойное слово) можно уже записать число от 0 до 4 294 967 295. 

В компьютере принято вести расчет в двоичной или шестнадцатеричной систе- 
ме. Вторая вошла в обиход, когда компьютеры стали 16-разрядными. Да, когда мы 
будем писать свои программы на Ое]рш,.то будем использовать привычную нам 
десятичную систему, потому что перед нами интеллектуальный компилятор, кото- 
рый во время компиляции сам переведет все числа в нужный процессору вид, но 
понимать, какими числами думает процессор, просто необходимо. 

Шестнадцатеричная система выглядит немного по-другому. Каждый разряд со- 
держит уже не 2 состояния (как в двоичной системе) или десять (как в десятичной 
системе), а шестнадцать. Поэтому один разряд может принимать значения: 1, 2, 3, 4, 
5, 6, 7, 8, 9, А, В, С, О, Е, Е. Буква "А" соответствует цифре 10 в десятичной системе, 
"В" соответствует 11 ит. д. Например, число 1А в шестнадцатеричной системе равно 
26 в десятичной. Почему? Да в соответствии все с той же формулой. Только здесь 
нужно возводить уже 16 в степень номера разряда. "А" — десять, нужно умножить на 
16°. В результате получится 10. { — первый разряд нужно умножить на 16', получит- 
ся значение 16. Затем полученные результаты складываются и определяется искомое 
число — 10 + 16 = 26. В результате, как показано в табл. 1.2, можно установить соот- 
ветствие между числами, записанными в различных системах исчисления. 


Таблица 1.2. Таблица соответствия десятичных, двоичных 
и шестнадцатеричных чисел 


Десятичное | Двоичное Шестнадцатеричное 
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Таблица 1.2 (окончание) 


О О ПО ООО О 
О О ПО ОО 
С ПОТ ОО ПО 


На протяжении всей книги мы будем иногда встречаться с шестнадцатеричной сис- 
темой исчисления (без этого никуда не денешься). В этом случае, когда нужно будет 
показать, что число шестнадцатеричное, перед ним будет ставиться знак решетки #, 
например, #13. В ‘других языках, например АззетЫег или С++, принято ставить в конце 
числа букву В (138). Но эта книга о Реры, поэтому здесь будем писать так, как принято 
в этой среде разработки, чтобы потом не возникало никаких вопросов. 

°— До сих пор рассматривались целые числа. С числами с плавающей точкой (имею- 
щими дробную часть) совершенно другая история, и ее мы рассматривать не будем. 

Теперь разберемся со знаком у чисел. Если заранее предусмотрено, что число 

может быть отрицательным, то его длина сокращается ровно на один бит (этот бит 
отводится под знак числа). Так, неотрицательное целое число может быть 8- 
битным, тогда как число со знаком будет 7-битным. Первый бит будет означать 
знак. Если первый бит равен 1, то число отрицательное, иначе положительное. 
_ В дробных числах один байт может быть отведен для целой части и один для 
дробной. Никогда не смешивают целую и дробную части в одно целое. За счет это- 
го дробные числа всегда будут занимать больше памяти, и операции с ними будут 
проходить намного дольше. 

В первых процессорах вообще не было команд для работы с вещественными 
числами. Со временем разработчики поняли, что работать с вещественными числа- 
ми через команды: целочисленных вычислений достаточно накладно, и в компью- 
теры стали устанавливать математические сопроцессоры. Этот модуль был выпол- 
нен в виде отдельного процессора. В современных компьютерах сопроцессор 
реализован в виде модуля внутри основного процессора. 

’ На первый взгляд перевод чисел очень сложный процесс, но вручную им зани- 
маться не обязательно. Человек уже давно придумал для себя хорошего помощни- 
ка — калькулятор. С его помощью без проблем можно перевести число в любую 
систему исчисления. 

Запустите встроенный в \/тдо\$ калькулятор (Пуск | Программы | Стандарт- 
ные | Калькулятор). Теперь выберите из меню Вид пункт Инженерный. 
На рис. 1.4 показано окно, которое вы должны увидеть. 
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7 Калькулятор 
Правка Вид Справка: 


| | ЕЕ225Е06322550 С2. 


Е 
рн 


ва 


"| -.] О МЕ 
ор] м] =] _^| | $12] =) = Рис. 1.4. Внешний 


вид калькулятора 


Для перевода числа в другую систему просто наберите его в окне ввода кальку- 
лятора и потом выберите нужную систему исчисления. На рисунке кнопки пере- 
ключения из одной системы исчисления в другую выделены овалом: 

О Нех — шестнадцатеричная; 
С Бес — десятичная; 

С Ос{ — восьмеричная; 

С Вш — двоичная. 


Возникает вопрос — зачем здесь так долго рассказывалось о преобразованиях 
чисел, когда так легко можно воспользоваться калькулятором? Ответ прост — это 
нужно знать. Поверьте мне. Если вы будете понимать, как происходит преобразо- 
вание, то вам потом легче будет работать с этими числами. Уметь использовать 
компьютер и язык программирования — это хорошо, но понимать, как и что про- 
исходит — намного лучше. 


1.2. Машинный язык 


Данные на диске хранятся в двоичном виде. Даже текстовые файлы на диске 
выглядят в виде нулей и единиц. Точно так же выглядит и любая программа, толь- 
ко ее называют машинным кодом. Давайте познакомимся с ним немного поближе. 

Любая программа представляет собой последовательность команд. Эти команды 
называются ироцессорными инструкциями. В точном соответствии этим инструк- 
циям процессор определяет, что и как ему нужно делать. Когда вы запускаете про- 
грамму, компьютер загружает ее машинный код в оперативную память и начинает 
выполнять команду за командой. Наша задача как программистов написать эти ин- 
струкции таким образом, чтобы компьютер понял, что мы от него хотим. 

Реальная программа, которую выполняет компьютер, представляет собой по- 
следовательность единиц и нулей. Такую последовательность называют машинным 
языком. Человек не способен эффективно думать единицами и нулями. Для нас легче 
воспринимается осмысленный текст, а не сумасшедшие числа в двоичной системе 
исчисления, с которой мы не привыкли работать. Например, команда сложения двух 
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регистров в шестнадцатеричной системе выглядит так: $03С3. Это мало о чем го- 
ворит, и запомнить такую команду очень тяжело. Намного проще написать "сло- 
жить число | и число 2". 

Первое время программисты писали программы в машинных кодах, пока кому- 
то не пришла в голову идея: "Почему бы не писать текст программы на понятном 
языке, а потом заставлять компьютер переводить этот текст. в машинный код?" 
Идея действительно заслуживала внимания. Так появился первый компилятор — 
программа, которая переводила текст программ в машинный код. Таким образом, 
пользователи стали писать программы более осмысленно, а всю рутинную работу 
по переводу текста программы в машинный код возложили на сам компьютер. 

Здесь настало время сделать паузу и рассказать вам небольшую историю языков 
программирования. Она достаточно интересна и поучительна. Ну а потом мы про- 
должим изучение принципов работы компьютера и познакомимся со структурой 
процессора и его работой при выполнении программы. 


1.3. История языков программирования 


Как мы уже выяснили, компьютер — примитивное существо, которое мыслит 
нулями и единицами, из которых складываются числа. Основное его устройство — 
процессор. Все, что может делать процессор, — это оперировать двоичными чис- 
лами. Программы — это тоже числа, которые воспринимаются процессором как 
некоторая совокупность команд с целью выполнения им определенных действий. 

Мы также выяснили, что первые программисты писали программы в машинных 
кодах. Тогда еще не было компиляторов и приходилось все писать числами. Вы 
даже представить себе не можете, какой это адский труд — постоянно держать в 
памяти таблицу машинных кодов (это не таблица умножения). Например, вам по- 
нятно шестнадцатеричное число 8ВСЗ? Нет? А это обычная команда копирования 
между двумя ячейками регистров. Регистр — это память в процессоре определен- 
ного объема, которая может использоваться для хранения значений, с которыми 
будет работать процессор. С ними работа происходит быстрее, чем с оперативной 
памятью, а размер зависит от архитектуры процессора. | 

Это был пример машинного кода, потому что тогда регистры были другие 
и процессоры были намного проще. Со временем компьютер стал умнеть, но самое 
главное, он все так же оперировал двоичными числами, однако делал это намного 
быстрее. | 

Программист — это человек, а не железка, и ему очень тяжело создавать логику 
работы программы в числах. Намного легче работать с привычными словами. На- 
пример, все ту же команду пересылки удобней записать словами типа "скопировать 
еЪх В еах" (еах И еъх — это регистры процессора). Но что делать, если компьютер 
не понимает слов, а только числа? Выход есть — написать такую программу, кото- 
рая будет превращать написанный текст, понятный человеку, в машинные коды. 
Пусть компьютер сам создает байт-код. Программу, выполняющую эти действия, 
назвали компилятором, а язык, на котором писался исходный текст программы, — 
языком программирования. 
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И вот был разработан первый компилятор. Эту программу назвали А55ет ег, что 
переводится как "сборщик". Писать на нем практически так же сложно, как и в ма- 
шинных кодах, однако теперь уже использовались не числа, а понятные, как показа- 
но на рис. 1.5, человеку слова. Текст на рисунке можно разделить на три колонки: 

С адрес инструкции; | 
С машинный код инструкции; 
О код на языке Ассемблера. 


Теперь все та же команда копирования регистров выглядела так: шоу еах, еьх. 
В данном случае моу — это команда языка программирования, которая происходит 
от английского слова тоуе, двигать. еах И еъх — имена регистров. Получается, что 
приведенная выше команда может читаться как двигать в регистр еах значение из 
еъх. Да, код на ассемблере не совсем нагляден, но зато намного удобнее, чем то же 
самое, но в машинных кодах. 

Вроде все прекрасно и удобно, но почему-то среди программистов ВОЗНИКЛИ 
споры и разногласия. Кто-то воспринял новый метод с удовольствием. А кто-то 
говорил, что машинные коды лучше. Любители языка АззетЫег хвалили компиля- 
тор за то, что программировать стало проще и быстрее, а противники утверждали, 
что программа, написанная в кодах, работает быстрей. Говорят, что эти споры до- 
ходили до драк и иногда лучшие друзья становились врагами. 

В принципе, и те и другие были правы. На языке А5$зетЫег действительно про- 
грамму писать легче и быстрей, но программа, написанная в машинных кодах, ра- 
ботала быстрее и более гибко. Когда программа пишется в машинных кодах, то 
программист ничем не ограничен, а при работе с ассемблером наши руки более 
связаны. Мы не всегда можем повлиять на результат и зависим от того, как он 
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захочет превратить наш текст в программу и какие инструкции процессора при 
этом будет использовать. 

Тогда никто не мог себе представить, чем же все может закончиться. Но время 
показало свое. С помощью АззетЫег программы писались быстрее, а это один из 
основных факторов успеха любой программы на рынке. Люди начинают пользо- 
ваться тем продуктом, который выходит на рынок первым. Даже если более позд- 
ний вариант лучше, человека трудно переубедить перейти на другую версию. Здесь 
начинает играть большую роль фактор привычки. К тому же, когда программист 
напишет свою первую версию программы в машинных кодах, программист на язы- 
ке А$зетЫег выпустит уже пару новых версий. 

Вот так и получилось, что те, кто программировал на языке Аз5етЫег, превра- 
тились в убегающих вперед, а те, кто программировал в машинных кодах, превра- 
тились в постоянно догоняющих. В конце концов, первые убежали настолько "да- 
леко", что вторые не смогли догнать и вынуждены были или перейти на АззетЫег 
или отойти от программирования совсем. 

С этого момента начался бум. Языки программирования стали появляться один за 
другим. Так появились С, АДА, ЕохРго, Еопганп, Ваяс, Разса и др. Некоторые из них 
были предназначены только для школьников или обучения, другие были ориентиро- 
ваны на профессиональных программистов. И тут споры перенеслись в другую плос- 
кость — какой язык лучше. Некоторые говорили, что это Разса|, другие утверждали, 
что С, ну а кое-кто утверждал, что это Вазс. Этот спор длится уже около 30 лет, 
и конца ему не видно. При этом все спорные вопросы разделились на две части. 

1. Какой язык лучший? | 
2. Что лучше — язык высокого уровня или низкого? 

Спор по первому пункту не может закончиться ‘до сих пор. Каждый пытается 
доказать, что его язык программирования самый мощный, удобный и создает са- 
мый быстрый программный код. Мне кажется, что этот спор не закончится нико-_ 
гда. В принципе, такое положение дел устраивает всех, потому что это своеобраз- 
ная конкуренция. Благодаря ей происходит развитие языков программирования, 
имы быстро продвигаемся вперед. | " 

Так все же, какой язык лучше? На этот вопрос можно дать ответ, но немного 
позже. 

Наиболее интересным был спор: "Что лучше — язык высокого уровня или низ- 
кого?" Язык низкого уровня — это тот, который ориентирован на команды процессо- 
ра, т.е. АззетЫет. К языкам высокого уровня относят С, Разса|, Вазс и другие (на ` 
то время это были структурные языки программирования, они имели более высо- 
кий уровень по сравнению с ассемблером). Они ориентированы на людей и созда- 
ют им максимум удобства при написании программ. Этот спор проходил в той же 
манере, как и спор между любителями 'А5зетЫег и любителями программирования 
в машинных кодах. Только теперь приверженцы языка АззетЫег утверждали, что 
их код самый быстрый, а любители языков высокого уровня утверждали, что они 
напишут программу быстрей, чем самый лучший программист на языке Аз$зетЫет. 

Спор продолжался достаточно долгое время. И опять победила скорость разра- 
ботки и "удобство" языка программирования. Любителям Аз5зетЫег пришлось от- 
ступить, потому что теперь они превратились в " догоняющих". 
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Конечно же, нельзя сказать, что машинные коды и А5зетЫег окончательно уш- 
ли из нашей жизни. Они используются до сих пор, но в очень ограниченном коли- 
честве. Язык А$зетЫег используется только в качестве вставок для языков высоко- 
го уровня, а машинные коды используются для написания того, что не может 
сделать компилятор (да и для написания самого компилятора они могут потребо- 
ваться). Ушедшие технологии живут и будут жить, но рядовой программист очень 
редко встречается с ними. 

Следующей ступенью стало объектно-ориентированное программирование. 
Язык С превратился в С++, Разса| превратился в ОБлес! Раса! и т. д. И снова борь- 
ба. И снова скорость разработки против скорости выполнения программного кода. 
Опять споры, драки и оскорбления. 

Война длилась несколько лет. Сколько времени было потрачено в спорах, 
сколько волос было вырвано на голове в процессе доказательств силы именно его 
программного кода. А в результате победила скорость и удобство разработки, т. е. 
`объектно-ориентированное программирование (ООП). 

'Последней крупной революцией, происходящей в программировании, считается 
переход на визуальное программирование. Этот переход происходит прямо на наших 
глазах. Визуальность дает нам еще более удобные средства разработки для более бы- 
строго написания кода, но проигрывает ООП по быстроте работы. Вот почему мно- 
гие начинающие программисты стоят на перекрестке, не зная, какой язык выбрать. 

Лидером в разработке визуальных языков программирования является ВоПапа, 
а приверженцем ООП остается Мисгозой. Конечно же, Билл Гейтс пытается встро- 
ить В свои языки визуальность, но она примитивна по сравнению с такими гиган- 
тами, как Дер, Куйх или С++ ВиЦаег. Это связано с изначально неправильной 
разработкой МЕС (Мтсгозой РКоипдайоп С1а5зез — Основные Классы М1сгозой), 
которые не могут работать визуально. Нужна глобальная переработка кода, кото- 
рую почему-то не хотят делать. Вот народ и стоит на двух атомных бомбах, ожидая 
взрыва одной из них. Как вы думаете, какая бомба рванет? Что победит — скорость 
разработки или скорость кода? Я не буду отвечать на этот вопрос. История говорит 
сама за себя, а мы подождем подтверждения этому. 

К моменту написания этих строк, победитель уже начинает вырисовываться. 
Классический С++ уходит в сторону, а вместо него появляется С# и мощные визу- 
альные средства, идеология которых была позаимствована у Тауа и Оеры. Но 
Дер уже давно визуальный и ориентирован на объекты и в нашей стране получил 
большую популярность, а С# только пытается захватить рынок. 

Считается, что прогресс не будет стоять на одном месте и переход на новые 
технологии программирования рано или поздно состоится. Поэтому я уже перешел 
на Ое]ры. Если вы хотите успеть за прогрессом, то тоже обязаны вступить в пар- 
тию любителей ВоПап4 и его подразделения по средствам разработки СодеСеаг. 
Выбирайте любой из его компиляторов, и вы не ошибетесь. Для вас есть все, что 
угодно, — Барш, Л ВиПдег, Куйх или С++ ВиИдег. Как видите, у корпорации 
Войап4 есть визуальные варианты всех языков, и они действительно лучшие. 

Осталось только ответить на вопрос: "Какой язык программирования лучше?" 
Я уже несколько лет пытаюсь ответить на этот вопрос, но окончательного решения 


Основные принципы работы компьютера | 15 


вынести не могу. Даже у того же Убиа! С++ от Мисгозой есть свои плюсы, хотя я 

его не очень люблю за корявость объектной модели. Как это ни странно, но поло- 

жительные стороны есть у всех. Вопрос остается только за тем, какие программы 

будут создаваться? Здесь можно дать примерно такую градацию. 

1. Если вы будете писать базы данных, программы общего значения или утилиты, 
то ваш язык Реры или С++ Ви|дег. | 

2. Если это игры, то желательно У\150а! С++ плюс знание А5$зетЫег. Но это не зна- 
чит, что нельзя использовать Реры или С++ Ви|аег. В этих средах вы потеряете 
не намного больше в скорости работы, поэтому в большинстве игр можно не об- 
ращать внимания на эту потерю. Если правильно использовать свои знания, то 

и на самом медленном и слабом языке программирования можно создать шедевр. | 
3. Если это будут драйверы и работа с "железом", где критичен размер файла, ваш 

язык чистый С или А$зетЫег. 

И все же большую массу программ занимают утилиты и базы данных. А тут ви- 
зуальность необходима, если вы хотите оказаться впереди. Визуальные языки бу- 
дут жить и за ними будущее. На протяжении всей этой книги будет рассматривать- 
ся лучший (это на мой взгляд, и он может отличаться от других) язык 
программирования — Оерш. = 

Корпорация Мсгозой тоже движется в сторону визуальности и простоты разра- 
ботки программных продуктов. Об этом говорит их новая платформа .МЕТ и язык 
разработки С#. 


1.4. Исполнение машинных команд 


Прежде чем переходить к дальнейшему изучению материала, необходимо рас- 
смотреть ряд понятий. | 

Мы уже разобрались с байтом и его размером. Теперь рассмотрим другие суще- 
ствующие размерности: 

С 1килобайт = 1024 байт: 
С 1 мегабайт = 1024 килобайт; 
О 1 гигабайт = 1024 мегабайт. 

Почему именно 1024? Это число 2 в [0-й степени. В компьютере большинство 
значений являются степенью числа 2, потому что компьютер оперирует двоичной 
системой, и таким образом можно максимально эффективно использовать его воз- 
можности. | 

Сегмент — это область внутренней (оперативной) памяти компьютера (внеш- 
няя память представлена накопителями на магнитных дисках и лентах). Раньше, 
когда операционные системы были 16-битными, процессор не мог работать с памя- 
тью размером более 64 килобайт, потому что это максимальный размер области 
памяти, который можно адресовать, используя в этих целях адрес длиной в два 
байта. Поэтому память делилась на сегменты по размеру и по назначению. На дан- 
ный момент мы используем 32-разрядную ОС, которая может адресовать до 
4 Гбайт оперативной памяти (длина адреса — 32 бита или 4 байта). Поэтому можно 
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сказать, что память стала сплошной. Однако деление ее по назначению все-таки 
осталось. | 

Существуют следующие сегменты памяти: 

С сегмент кода — в эту область памяти загружается машинный код, который бу-. 
дет потом выполняться процессором; 

0 сегмент данных — это область памяти для хранения данных; 

О сегмеит стека — область памяти для хранения временных (локальных) данных 

и адресов возврата из процедур. 

Каждой запущенной программе отводится свой сегмент кода, данных и стека. 
Поэтому данные одной программы не могут пересекаться с данными или кодом 
другой программы. Да, существуют методы взаимодействия между процессами 
(программами), но это отдельный случай. 

Регистр — ячейка памяти в процессоре. Размер ячейки зависит от ее разрядно- 
сти. В 32-разрядных процессорах ячейки 32-битные, но есть и 64-битные. Таких: 
регистров у процессора несколько, и каждый из них предназначен для определен- 
ных целей. Существуют также регистры общего значения, которые программа мо- 
жет использовать на свое усмотрение. 

На рис. 1.6 показан регистр ЕАХ. Полная его длина 32 бита, но младшая полови- 
на — это регистр АХ (16-битный вариант регистра). То есть если мы "попросим" 
процессор показать нам содержимое регистра АХ, то мы увидим половину регистра _ 
ЕАХ. Иногда это очень удобно, особенно когда требуется прочитать только полови- 
ну числа из регистра. 


ПРИМЕЧАНИЕ. Очень часто, прежде чем выполнить какую-то команду, процессор за- 
гружает необходимые данные в регистры и только после этого выполняет необходимую 
инструкцию. Но возможны варианты, когда вычисления идут напрямую с памятью. 


Я думаю, что этого будет достаточно для понимания основ работы компьютера 
и программ. Если вы хотите узнать больше, то советую почитать спецификации 
[ие], которых можно найти великое множество на сайте уму .пище].сот. 


ЕАХ 


16 бит 16 бит 


Рис. 1.6. Регистры 
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Машинная математика 


До начала перестройки в нашей стране практически не готовили программистов. 
Большинство программистов были выходцами с кафедр математики, на которых 
очень часто изучались определенные учебные курсы с уклоном в сторону инфор- 
матики. На этих курсах учили писать блок-схемы, которые в свою очередь помога- 
ли понять логику работы программы. 

С блок-схемами знакомятся на начальном этапе бучения программированию. 
Первое впечатление тех, кто столкнулся с блок-схемами, — абсолютно ненужная 
ерунда. Однако со временем становятся понятны их достоинства. Возможно, что 
и вам покажется это слишком просто, но все же желательно прочитать эту главу 
полностью. Здесь рассматривается теория всего процесса программирования, что 
позволяет понять логику выполнения команд в процессе выполнения программы на 
процессоре. В дальнейшем останется только познакомиться с практикой. 

Когда мне пришлось изучать информатику в институте, то нас тоже заставля- 
ли писать блок схемы. Самое страшное, что нас именно заставляли. Прежде чем 
начать что-то писать, мы должны были описать весь процесс в виде логики из 
блоков. Я не собираюсь вам говорить, что вы должны поступать так же. Все рав- 
но таким образом можно описать только небольшой участок логики или простой 
алгоритм. В большинстве случаев можно приступать к программированию сразу, 
но если вы запутались или что-то не получается, попробуйте отложить клавиату- 
ру, взять листок бумаги и набросать логику с помощью блоков. Очень часто это 
помогает. 


2.1. Основы машинной математики 


В любом языке программирования можно выполнять математические операции 
любой сложности. Веры в этом вопросе не исключение. Но пока мы не будем рас- 
сматривать все возможности этого языка в данной области, а остановимся только 
на математических операциях. В табл. 2.1 представлены основные математические 
операции языка, которые мы будем использовать. 
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Таблица 2.1. Основные математические операции Берн 


[печатей мые 
О 
О ООО 
ОЕ ОИ О-о 
Я ОО 
о 


‚ _ Присвоить значение 


Все эти операции выполняются в том же порядке, в котором перечислены. На- 
пример, результатом вычисления выражения 2+2*2 будет 6, а не 8, потому что сна- 
чала выполняется операция умножения, а потом сложения. Если вы хотите сначала 
выполнить сложение, а потом вычитание, то, как и в математике, нужно использо- 
вать скобки (2+2) *2=8. В этом случае результат будет совершенно другим. 

Для изучения компьютерной математики необходимо уяснить ряд понятий и мы 
начнем с понятия переменной. 

Переменная — это ячейка оперативной памяти, в которую можно записывать 
различные значения. Чаще всего этой ячейке памяти ставится в соответствие какое- 
нибудь имя. Например, можно определить переменную с именем г. Ей, в свою оче- 
редь, можно присваивать значения, например, 5. Для этого достаточно записать 
выражение г: =5. Последовательность символов — знак двоеточия и равно означа- 
ют здесь операцию "присвоить". 

Почему для присвоения значения используется именно :=, тогда как мы при- 
выкли к простому знаку равенства? Это необходимо, чтобы отделить операцию 
присваивания от операции сравнения. Знак равенства в Вер используется для 
сравнения чисел, а := для присваивания значения переменным. 

Значения переменных можно копировать. Допустим, имеется еще одна пере- 
‚менная с. Ей можно присвоить значение переменной г с помощью простого при- 
‚ сваивания с: =г. После этого в переменной с тоже будет значение 5. 

Переменной можно присваивать результаты каких-то вычислений, например: 
Е:=10/2. Это достаточно простой пример. А вот уже целое выражение с использо- 

ванием переменных: | 


Е: =5; 
С:=10; 
Е:=С/2. 


Имя переменной может состоять как из одной, так и из нескольких букв. Напри- 
мер, переменная может иметь имя 5ег или му\уах1аЪь1е. Единственное ограничение, 
которое следует здесь учитывать, — это то, что имя должно состоять из английских 
букв и не должно использовать зарезервированные слова (о зарезервированных 
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словах будет сказано немного позже). Вы также можете в имени переменной иС- 
пользовать числа (желательно В конце), например, 5Ег1, 5Ет2, 56х3 ИТ. Д. 


СОВЕТ. Назначайте переменным осмысленные имена. Когда вы начнете писать боль- 
шие программы, тяжело будет разобраться, что означает переменная 1, Ъ, 5Ех1 ИЛИ Тепр. 


Гип переменной — это тип значения, которое можно присвоить переменной. 
Очень часто используют термин тии данных, потому что это действительно тип 
данных, хранящихся в переменной. Он показывает, какого типа информация может 
быть присвоена переменной (помещена в выделенную область памяти). В Оерш 
принято обязательно указывать типы переменных, чтобы сразу можно было опре- 
делить, какую информацию можно туда записать, а какую нет. 

Язык Веры строго типизирован и требует, чтобы каждая переменная имела 
свой тип. Да, есть возможность выделить память, не указывая тип или указав тип 
Уаг1апе (забегая вперед, скажу, что этот тип позволяет хранить любые типы дан- 
ных). Но для выполнения операций нетипизированные данные должны быть при- 
ведены к определенному типу. | 

Существует несколько основных типов переменных, которые на данный момент 
времени необходимо четко представлять (табл. 2.2). 


Таблица 2.2. Основные типы данных в бер! 


Название типа | Описание = Дополнительная информация 


Тиседег Целое число Переменная этого типа может принимать 
в качестве значения любые целые числа, 
как положительные, так‘и отрицательные 


Вещественное | Переменная этого типа может принимать в качестве 
число значения целые и дробные числа со знаком и без 


561109 | Переменная этого типа может принимать в качестве 
значения любые символы и наборы символов 


Воо1еап Булево значе- | Переменная может принимать значение сгце или 
| ние Еа1зе (истина или ложь). Этот тип очень часто ис- 
пользуется для организации логики 


В табл. 2.2 приведены только основные типы данных. Реально их намного 
больше. Когда мы перейдем к программированию, вы познакомитесь с большим 
‘количеством типов. | 

Строки — это любые символы или наборы символов. В языке Реры они выде- 
ляются одинарными кавычками, например, 'Привет'. Строки так же можно при- 
сваивать переменным, как и любое другое значение. Например: 


5Ег — строковая переменная. 


ЗЕх:='Привет!!!' 


Изложенного материала будет достаточно для понимания переменных и пере- 
хода к блок-схемам. 
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2.2. Блок-схемы 


Давайте сразу зададим какой-нибудь простой пример, на котором попробуем 
определить логику его решения компьютером. Допустим, нам надо получить сумму 
двух чисел. В логике человека мы должны выполнить следующие операции: 


ОН 


Старт. 

Ввести число 1. 

Ввести число 2. 

Прибавить к числу 1 число 2. 


Вывести результат. 


Это простейшая и подробная логика, которой оперирует человек. Но машина 
так не может мыслить, и по ее логике нужно рассуждать немного иначе. Для ото- 
бражения машинной логики определение вычислительных шагов неудобно, потому 
что решение может быть извилистым, а не прямолинейным. Поэтому давайте.зна- 
комиться с блок-схемами на этой линейной задаче. 

Блок-схемы принято чертить различными квадратами, овалами и прямоугольни- 
ками. Я особо не буду придерживаться стандартов, потому что это не принципи- 
ально в решении, но некоторых особенностей мы будем придерживаться. Основ- 
ные типы блоков, которые можно увидеть на рис. 2.1. | | 


Начало работы 


Процесс , 


Логика 


<> 
ПУ 
<_> 


Запись/чтение 
диска 


Вывод на экран 


Рис. 2.1. Основные фигуры блок-схемы 
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Есть и другие, более изощренные блоки, но ими мы не будем пользоваться. 
Большинство блоков будут оформляться как простой прямоугольник, потому что 
от формы блока суть особо не изменится. Самое главное (на мой взгляд) выделить 
отдельным видом начало блок-схемы и ее логику. Все остальное можно оформить 
однообразно, наглядность от этого пострадает, но не сильно. 

Итак, наша первая блок-схема сложения двух чисел будет выглядеть так, как это 
показано на рис. 2.2. | | 

На первый взгляд все слишком сложно. Но это только на первый взгляд. Реаль- 
но здесь ничего сложного нет, просто очень громоздко и простейшая операция пе- 
ремножения чисел превращается в несколько операций. Но все же надо объяснить 
происходящее подробнее, чтобы мы могли продвинуться дальше и разобраться с 
более сложными примерами. Для этого дадим характеристику каждого блока в от- 
дельности. 


О Первый блок — это начало. Если вы собираетесь строить блок-схемы, то обяза- 
тельно указывайте его, чтобы сразу можно было увидеть начало логики. 


С) Второй блок — перечисляет переменные, которые нам нужны для вычислений. 
В примере используются три переменные в, с1 и с2. В переменную к будет по- 
мещен результат вычисления. Переменные с1 и с2 используются для хранения 
введенных данных. Здесь пока не указывается тип этих данных, но подразуме- 
вается, что это будут целые или вещественные числа. 


О Третий блок — определяет ввод исходных значений переменных. Здесь показы- 
вается, что надо ввести значения переменных с1 и с2. 


О Четвертый блок — указывает на необходимость к числу с1 прибавить с2 и ре- 
зультат записать в переменную в. | 


О Пятый блок — вывод результата на экран. 


Это простая блок-схема, в которой нет ничего особенного. Следующие примеры 
будут использовать уже логику, поэтому и блок-схемы будут более сложными. Од- 
нако на этих примерах вы сможете ощутить всю прелесть машинной математики 


и понять ее логику. 
1 < - Начало у 
2 / В, С1, С2 / 


3 С1ТиС2 | 
(о 


4 В:=С1+С2 


5 


Рис. 2.2. Блок-схема сложения двух чисел 
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2.3. Машинная логика и циклы 


В любом языке программирования есть множество операций сравнения, кото- 
рые позволяют реализовать машинную логику. Что понимается под логическими 
операциями? Это операции сравнения на "равенство", "больше" или "меньше". Как 
показано в табл. 2.3, таких операций может быть достаточно много. 


Математическая операция 


Таблица 2.3. Логические операции 


ОИ 
ОИ ПИ 


Меньше либо равно о 
Не равно | 


Давайте рассмотрим простейшую логику компьютера на примере расчета значе- 
ния факториала. Факториал — это произведение чисел от | до какого-то числа. 
Например, факториал 5 равен1 х 2 х Зх 4х 5 = 120. Факториал обозначает- 
ся как знак восклицания "!". 

_ Давайте напишем алгоритм в виде блок-схемы (см. рис. 2.3). 


Начало 


2 там | 
| 
4 
5 
6 


В:=А * шаех 
паех:=шпаех+1 


Рис. 2.3. Блок-схема расчета факториала 


Представим, что мы не знаем числа, факториал которого мы должны вычислить. 
Пусть это число будет вводить пользователь. Поэтому расчетная формула выглядит 


Машинная математика | | 23 


как число Е факториал (ЁЕ!). В этом случае надо перемножить все числа от 1 до Е, 
те. [| х2 х3Зх4х ... х Е. Перемножение можно делать последовательно. 
Умножить | х 1. Затем проверить, не превысили ли мы число [. Если нет, то ре- 
зультат прошлого вычисления надо умножить на 2 и снова сделать проверку. Если 
не превысили Е, то снова умножить результат прошлого вычисления на 3. Ит. д. „. 

Теперь постараемся объяснить назначение каждого блока в блок-схеме, чтобы 
было понятно, как она работает. В данном случае это очень важно. Работа блок- 
схемы очень похожа на то, как "мыслит" компьютер, выполняя заданную програм- 
му. Именно так вы должны будете размышлять, когда начнете писать свои первые 
программы. 

Итак, давайте рассмотрим назначение каждого блока в отдельности. 


1. Это начало. 


2. Объявление трех переменных: Е, В И Тпдех. В переменной г будет. храниться 
число, факториал которого надо вычислить. Переменная в используется для 
хранения результата вычислений. И, наконец, в переменной тпаех — будет со- 
держаться счетчик вычислений. 


3. В этом блоке происходит ввод числа, факториал которого надо вычислить. Если 
пользователь ввел 5, то нам нужно вычислить 51. | 


4. Здесь задаются начальные значения переменным. На этом этапе устанавливается 
значение счетчика и начальный результат вычислений равными 1. Почему 
именно |? Да потому что нам нужно перемножить все числа начиная от | до 
числа, факториал которого вычисляется. 


5. В этом блоке проверяется счетчик (тпаех). Проверка заключается в определе- 
нии, превысило ли его значение число, которое ввел пользователь, или нет? Ес- 
ли "нет", надо перейти на блок 6. Допустим, пользователь ввел число ‘5. Значе- 
ние счетчика пока равно единице. | меньше 5, значит, должен произойти 
переход на блок 6. 


6. Здесь мы вычисляем результат в:=В*Тпдех. На этом этапе тпдех = 1 ИБ = 1. 
Значит, к:=1*1. Результат будет |, а значит, в в опять будет единица. Далее, мы 
увеличиваем тпаех на | (тТпдех:=Тпдех+1) , после чего тпаех становится равным 
2 (Тпдех:=1+1), и снова возвращаемся на блок 5. В нем опять происходит про- 
верка тпдех>Е. тпдех сейчас равен 2, а это меньше 5. Значит, снова идем на блок 6. 
Здесь опять производится расчет в:=В*Тпдех (В:=1*2), после чего в становится 
равным 2. Опять увеличиваем счетчик (тпдех:=Тп9ех+1), И Тпдех становится 
равным 3. Снова переход на блок 5. 


Я не стал дальше расписывать порядок решения данной задачи. Попробуйте 
сами пройтись по этой блок-схеме до самого конца. Очень важно понять, как она 
работает. 

В описанной блок-схеме была задействована очень интересная и удобная форма 
организации вычислений, а именно организация цикла. Цикл — повторяющееся 
выполнение какого-либо блока. В данном случае несколько раз выполняется шес- 
_ той блок. Если бы число факториала было известно заранее, можно было бы упро- 
стить блок-схему, написав формулу типа в:=1*2*3*4*5. Но мы не знаем числа, ко- 


2 Зак. 1273 


24 Глава 2 


торое введет пользователь. Поэтому приходится делать цикл и на каждом его этапе 
вычислять промежуточный результат. 

Попробуйте сами написать блок-схему арифметической прогрессии. Ее формула 
достаточно проста. В этом случае можно модифицировать блок-схему, которая по- 
казана на рис. 2.3. Разница заключается только в том, что в арифметической про- 
грессии рассчитывается сумма, а не произведение чисел от | до определенного 
числа 2. —. 

Нарисуйте эту блок-схему на бумаге и попробуйте мысленно пройтись по ней, 
выполняя каждый блок, как это делала бы машина. Если вы думаете, что блок-схемы 
слишком просты, попробуйте написать что-нибудь более сложное. Это необходимо 
сделать, чтобы научиться мыслить как компьютер. Только так вы сможете объяснить 
ему, что от него требуется, и что самое главное, он вас сможет понять. 


2.4. Программирование машинной логики 


Подошло время превратить нашу логику, описанную в блок-схеме на рис. 2.3, 
в настоящую программу. Пока эта программа будет существовать только на бума- 
ге, но со временем ее можно превратить в настоящий исполняемый модуль. 
Сначала напишем нашу программу на русском языке (листинг 2.2). _ 


Начало программы. 


Переменные : 


Е, В, Траех — это целые числа; 


Начало кода 
Е: =5; 
В:=1; 


Тпаех:=1; 


От 1 до 5 выполнять 
Начало цикла 
В:=В*Тпаех; 

Тпдех: =Тпаех+1; 


Конец цикла 


Вывести на экран переменную БК. 


Конец кода 


Если не обращать внимания на то, что все написано русским языком, можно 
считать, что первая программа уже написана. В принципе, программа на любом 
языке программирования выглядит приблизительно так, как это показано выше, 
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только при программировании действуют жесткие правила описания команд. 
В данном случае, все состоит из следующих блоков: 


С] начало программы; 

С описание переменных; 

О начало кода (учтите, что описание переменных — это не код программы); 
О заполнение переменных начальными значениями; 

О запуск цикла от [ до 5; 

О выполнение в цикле расчета; 

О вывод результата. 


В принципе, ничего нового здесь нет. Просто блок-схема описана словами, по- 
хожими на программный язык. В дальнейшем, когда вы сами начнете писать соб- 
ственный программный код, действовать будете точно так же. Сначала постройте 
алгоритм программы в виде блок-схемы или хотя бы мысленно представьте алго- 
ритм работы будущей программы и только потом переносите все это в компьютер. 
Блок-схемы понадобятся только на начальном этапе, когда вы не можете сразу 
представить себе действия, которые нужно. запрограммировать. Со временем блок- 
схемы отойдут сами собой, и уже через месяц практического программирования 
можно будет писать алгоритмы сразу же на Оеры. Все дело в практике. 

В большинстве случаев машинный язык схож с человеческим, потому что его 
создавали люди. Но иногда разница чувствительна, потому что машина не всегда 
может мыслить как человек. В связи с этим необходимо научиться объяснять свои 
мысли понятным для машины языком. 
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Начальные сведения о берр! 


Верь! — визуальная среда разработки программ. Она прячет от нас все сложно- 
сти программирования, превращая его в увлекательный процесс. При создании 
обычных приложений, утилит и программ работы с базами данных вам не придется 
задумываться о регистрах, стеке и многом другом. Но это не значит, что время, за- 
траченное на изучение внутреннего мира компьютера и принципов организации 
выполнения программ, пропало зря. Все это вам пригодится. 

В первом издании этой книги в этой главе было много информации по установ- 
ке среды разработки Ое]ры. Это отнимает очень много места, а многие не любят 
читать подобную информацию, предпочитая устанавливать полностью все. Да, ко- 
гда вы только знакомитесь с продуктом, то никогда не знаешь, что может приго- 
диться, поэтому мы выбираем полную установку. Благо жесткие диски стали. таки- 
ми, что вмещают в себя все, что угодно. 

Дабы сэкономить место в данной книге для более полезной информации, все, 
что касается установки, было перенесено на компакт-диск в виде электронного до- 
кумента. Его вы найдете в папке Документация\шио\ш$а_деры_7.р9{. 


3.1. Оболочка Берш 


Пора в первый раз запустить Оер!. Для этого выберите пункт меню Пуск | 
Программы | Во|апа Реры | Бер. После запуска откроется главное окно сре- 
ды разработки. Окно может отличаться в зависимости от версии Верт. Мы же бу- 
дем рассматривать Ое!ры 2006, но основы не изменялись уже долгое время. С вы- 
ходом новых версий появляются новые панели, и немного изменяется их внешний 
вид, но база остается одной и той.же. 

Если вы до сих пор работаете в РерёЫ! 7, то для этой версии главу 3 вы можете 
найти в файле Документация\Пиго\ае!р_7.р4Р на компакт-диске, прилагаемом 
к данной книге. | 

Давайте создадим пустой проект и посмотрим, как будет выглядеть Веры при 
работе с проектами. Для этого в Реры 2006 выберите ЕЙе | Мех | УСГ, Еогтз$ 
АррИсаНбоп — Реры Ёог У т32. 

Главное окно выполнено в классическом стиле \Мтдо\5-программ. В центре 
окна расположено множество панелей. Все они как бы прикреплены внутри окна. 
У каждой из этих панелей есть заголовок, удерживая который мышью панель можно 
перемещать в другое место. Таким образом, вы можете расположить все так, как 
вам будет удобно. 
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Рис. 3.2. Расположение окон Беры 2006 в классическом размещении окон 
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Овалом выделена панель, с помощью которой вы можете управлять различными 
видами среды разработки. С помощью ниспадающего списка можно выбрать соз- 
данный вами или предопределенный средой разработки вид окна. В данном случае 
выбран вид Реёаш  ГауоцЕ (Размещение по умолчанию). В Реры 2006 в этом спи- 
ске есть еще два пункта: 


О Иазяе ОпдосКед — классическое размещение, которое использовалось до 
° _ Реры 2005. В этом случае панели находятся не внутри главного окна, а выпол- 
нены как самостоятельные окна. Пример такого размещения показан на рис. 3.2. 
О Беби? Гауоцё — размещение отладки. Данная раскладка окон включается авто- 
матически, когда вы запускаете программу, и автоматически должна исчезать, ко- 
гда выполнение программы завершается. Включать ее во время проектирования 
программы не имеет смысла, потому что будут отображаться окна, которые не 
имеют никакого смысла во время написания кода. Но если ваша программа во 
время выполнения выполнила недопустимую операцию, то Ое!рЫ может не пере- 
ключиться на раскладку, выбранную до запуска программы. В этом случае при- 
дется переключиться вручную, выбрав нужный пункт из ниспадающего списка. 


Если вы изменили расположение окон и хотите, чтобы оно осталось при сле- 
дующем запуске среды разработки, то его нужно сохранить. Для этого щелкните по 
кнопке Зауе сиггеп дезК®ор (Сохранить текущий рабочий стол) справа от ниспа- 
дающего списка возможных размещений. Перед вами появится окно, в котором вы 
должны ввести имя размещения. Можно выбрать из списка уже существующее 
имя, чтобы заменить его. 

Теперь перейдем к панелям, которые представлены на рис. 3.1. 


1. Главное окно программы. В нем находится основное меню и панели инструментов. 


2. Объектный инспектор. Он предназначен для управления объектами и состоит 
из двух вкладок: | 


» Ргорегйез — свойства. На этой вкладке будут перечислены свойства выде- 
ленного объекта. Имя и тип выделенного объекта отображаются в ниспа- 
дающем списке вверху панели. 


® Еуепб — события. Здесь можно создавать и изменять реакцию объекта на раз- 
личные события, которые возникают в отношении выбранного компонента. 


3. Форма. Это уже готовая визуальная форма будущей программы. На ней мы бу- 
дем размещать компоненты пользовательского интерфейса. 


4. Палитра компонентов. В этой панели расположены иконки компонентов, кото- 
рые вы можете использовать для построения визуального интерфейса. 


5. Дерево компонентов. Эта панель появилась в Ое]рШ 7, и, на мой взгляд, она яв- 
ляется лучшим новшеством этой версии. С помощью дерева компонентов легко 
находить компоненты, потому что. они расположены в виде дерева. Если у вас 
какой-то компонент будет полностью перекрывать другой, то вы можете выде- 
лить верхний компонент, а потом, в дереве компонентов, легко найти тот, кото- 
рый находится снизу. 


6. Менеджер проектов. Здесь можно увидеть, какие файлы входят в з проект, от- 
крывать модули, добавлять и удалять. 
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3.2. Главное меню 


Давайте рассмотрим основное меню Реры 2006. Мы не будем углубляться и 
рассматривать абсолютно все пункты, но по основным возможностям пробежимся. 
Для начала взглянем на меню ЕШе (Файл). 


С М№м — создание нового проекта, формы или шаблона. Если вы наведете указа- 
тель мыши на этот пункт, перед вами раскроется подменю, в котором можно 
увидеть основные типы форм и модулей, которые чаще всего будут создаваться. 
Подменю ОШег (Другой) отображает окно, в котором присутствуют ярлыки для 
всех модулей, которые могут создаваться. | 


О Ореп — открыть существующий файл, поддерживаемый Ое|р. 


0 


Ореп Ргозесй — открыть существующий проект. Проект может состоять из не- 
скольких модулей, и именно его нужно открывать, чтобы работать над про- 
граммой. Если открыть файл модуля с помощью меню ЕЙе | Ореп, то открытый 
модуль не будет проектом, и нет смысла его компилировать. 


Кеореп — повторно открыть проект, который недавно открывался. 
Зауе — сохранить текущий модуль. 

зауе А$ — сохранить текущий модуль под новым именем. 

бауе РгоузесЕ А$ — сохранить проект под новым именем. 

зауе АП — сохранить все. 

С105е — закрыть текущий модуль. 

С1о5е АП — закрыть все. 

05е Оп — использовать модуль. 

Рип — печатать модуль. 


о‚о6оо,о,оо,оо 


Ех — выход. 


В тексте несколько раз употреблялся термин модуль. Поэтому необходимо по- 
яснить, что это такое. Модуль — это файл, содержащий код программы или часть 
кода. Чаще всего это простой текстовый файл с расширением раз. Сейчас под мо- 
дулем стали понимать и файлы, содержащие визуальную часть программы. Дело 
в том, что, хотя код и визуальная часть хранятся в разных файлах, они тесно связаны. 

Меню ЕЗИ (Редактирование) содержит все основные команды редактирования 
текста плюс специфичные команды работы с визуальными объектами. Если вы ра- 
ботали с векторной графикой или текстовыми редакторами, то для вас не составит 
труда разобраться с ними. | 

Сейчас не будем рассматривать все команды этого меню, потому что все равно 
они не запомнятся. Вы сможете их запомнить, только если будете зубрить. Но это 
глупо. Когда мы перейдем к практике и начнем писать программы, все само собой 
отложится в памяти. 

С помощью меню М\Уе\у (Вид) вы можете включать или отключать определен- 
ные панели внутри среды разработки. Если вы заглянете сюда, то увидите большое 
количество пунктов меню. Их намного больше тех панелей, которые видны по 
умолчанию. Дело в том, что сейчас видны только основные панели. 
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Меню Вегас@юг (Улучшение) появилось совсем недавно. Понятие гефасюние мож- 
но перевести как улучшение. В данном случае это — улучшение существующего ко- 
да. Пока мы не пишем кода, поэтому этот пункт рассматривать еще рано. Но когда вы 
почувствуете, что готовы узнать, как улучшить ваш код, прочтите документ Доку- 
ментация\ОШег\ВеГасюг.р Е на компакт-диске, прилагаемом к данной книге. 

В меню Ргодес (Проект) можно найти функции управления проектом. Вот тут 
мы немного задержимся и рассмотрим основные пункты: 

О А99 ® ргодесЕ — добавить в проект существующий файл; 

С Ветоуе {гот ргодесё — удалить из проекта модуль; 

С АЗа ю герозйогу — добавить в хранилище. Модуль будет добавлен в качестве 
шаблона, и на его основе можно будет создавать окна; 

О Уеу 5оигсе — просмотреть исходный код проекта. Это не код какого-то моду- 
ля, это код именно проекта, где Дер! автоматически генерирует код инициали- 
зации автоматически создаваемых форм; 

О Сотрйе ХХХХ — компилировать ХХХХ проект. Вместо ХХХХ вы будете ви- 

деть имя текущего проекта; 

Вий 9 ХХХХ — построить проект; 

Сотр!е АП Рго]есё5 — компилировать все открытые проекты; 

Ви! 4 АП Рго]ес5 — построить все открытые проекты; 

ОрНоп$ — свойства проекта. 

Чем отличается компиляция от построения? Когда происходит компиляция про- 

граммы, то Ре]рШ создает промежуточные файлы, которые в дальнейшем исполь- 

зуются при сборке проекта в исполняемый файл. При следующей компиляции не- 
измененные модули компилироваться не будут, а будут использоваться уже 
созданные ранее промежуточные файлы. При построении проекта компилируется 
все. Это необходимо, когда вы внесли какие-то изменения в настройках проекта, 

а Ре|р№! не перекомпилирует модули. 

Чтобы быстро скомпилировать проект, можно использовать сочетание клавиш 
<Си]>+<Р9>. Компиляция очень удобна, чтобы проверить код на наличие ошибок. 

В меню Вип (Запуск) можно найти функции запуска приложения из среды раз- 
работки и отладки программ. Отладка заслуживает отдельного разговора, а запус- 
кать на выполнение пока нечего. По мере необходимости мы познакомимся 
с большинством из пунктов этого меню. | 

В меню СотропепЕ (Компонент) находятся пункты меню, с помощью которых 
можно создать новый компонент или установить существующий пакет. 

В меню Тоо5 (Инструменты) вы можете найти пункты меню, с помощью кото- 
рых можно настроить среду разработки (например, ОрНоп$ (Опции) покажет окно 
глобальных настроек), а также множество дополнительных утилит. | 
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3.3. Настройка 


В Рары достаточно много настроек и все их знать не обязательно, а рассмот- 
реть все мы не сможем, потому что это отнимет слишком много времени и места. 
Мы познакомимся только с теми; которые действительно могут на что-то повлиять 
или что-то улучшить и которые вы будете использовать чаще всего. 
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Рис. 3.3. Окно ОрНоп$ настроек окружения 
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Для изменения основных настроек нужно выбрать из меню Тоой$ (Инструмен- 
ты) пункт ОрНоп$ (Опции). Перед вами откроется окно, показанное на рис. 3.3. 
Окно разбито на две половины: слева дерево разделов настроек, а справа на- 


стройки раздела. 


В разделе Епугоптеи ОрНоп5 (Настройки окружения) вы можете задать ряд 


опций. 


О Ашобзауе орНоп$ — опции автоматического сохранения. Здесь имеется два 


пункта. 


® ЕДИог ЕЦе — сохранение редактируемых файлов (модулей). Если вы поста- 
вите флажок напротив этого пункта, то модули будут сохраняться автомати- 


чески. 


» Рго]есё дезКор — сохранение рабочей среды. Если вы поставите галочку 
напротив этого пункта, то состояние всех окон будет сохраняться автомати- 


чески. 


О СотрШи? апа Випиште — настройки процесса компилирования и запуска гото- 
вой программы. Здесь доступны несколько параметров. 


‚® Эпом сотрйег ргогге$$ — во время компиляции показывать окно состояния. 
В этом окне отображается информация о процессе компиляции и его резуль- 
тате. Окно очень полезно. Единственный его недостаток это то, что компиля- 
ция проходит немного дольше. При маленьких проектах это незаметно, но 
с большими программами задержка может быть ощутимой из-за затрат про- 
цессорного времени ‘при выводе информации на экран. 
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® Мишите оп гап — минимизировать оболочку, когда запущена программа. 
Параметр действует, когда вы запускаете программу из Реры. Если вы за- 
пустите скомпилированную программу из проводника, то РерЫ не будет 
минимизирован. 


» Не деяепег$ оп гип — прятать окна объектного инспектора и визуальной 
формы при запуске программы. По умолчанию этот параметр выставлен, но я 
советую вам его отключить, чтобы вы могли ‘выполнять программу и тут же 
корректировать какие-то ее элементы визуально. Если этот параметр вклю- 
чен, то все окна визуального редактирования пользовательского интерфейса 

'’ во время выполнения программы будут спрятаны. 

Остальные параметры не так интересны. Единственное, на чем необходимо ос- 
тановиться подробнее, — это окно хода компиляции программы. Как уже говори- 
лось, окно действительно удобно и его желательно включать. Как только вы по- 
просите Ре]рм скомпилировать программу, перед вами появится окно. В нем 
довольно хорошо отображается состояние компиляции. Интерес представляют три 
значения. 


О Ни — сообщения. Это простые сообщения, которые указывают на места, где 
можно улучшить код. Например, вы объявили переменную, но не пользовались 
ею. В этом случае появится соответствующее сообщение. Это, конечно же, не 
ошибка, и программа все же будет скомпилирована. Но благодаря этим сообще- 
ниям вы сможете увидеть, где была объявлена лишняя переменная или, возмож- 
но, просто что-то было забыто. 


О У’агите — предупреждения. На них нужно обращать более пристальное вни- 
мание. Например, вы объявили переменную, затем попытались ее использовать, 
не присвоив начальное значение. В этом случае появится предупреждение. Это. 
опять же не ошибка, и программа будет скомпилирована, но Рерш предупреж- 
дает вас о возможной ошибке. Такие предупреждения нужно проверять, потому 
что вы действительно могли забыть что-то сделать, и это уже может привести 
к фатальной ошибке выполнения программы. 


СО Еггог$ — это уже самые настоящие ошибки. Они указывают на те места, где 
была допущена грубая ошибка, из-за чего программа не может быть скомпили- 
рована. 


Даже если вы откажетесь от показа окна состояния компиляции, вы все равно 
увидите все сообщения, ошибки и предупреждения в окне ошибок, которое поя- 
вится внизу главного окна. С этим окном просто удобнее проводить отладку про- 
граммы. | 

Сразу же можно обсудить еще одно окно настроек, управляющее сообщениями, 
которые нужно отображать при компиляции. Закройте на время окно настроек 
Реры и выберите из меню Ргодесй (Проект) пункт Орйоп$ (Опции). Здесь нахо- 
дятся настройки конкретного проекта, и для каждой программы можно указать 
собственные параметры. Пока не будем рассматривать все разделы, а остановимся 
только на одном — СотрИег Меббаре$ (Сообщения компилятора), показанном 
на рис. 3.4. 
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Рис. 3.4. Раздел Сотр!Иег Ме$$аде$ окна настроек проекта ` 


В разделе Сепега] вы можете увидеть два параметра. 
О 5ПВо\ магит2$ — отображать при компиляции предупреждения. 


О $Во\м Ш — отображать.при компиляции сообщения. Я не советую вам что-то 

_ из этого отключать, потому что и то и другое бывает полезным. А вот в списке 
\УУагит2$ (Предупреждения), который расположен ниже, вы можете указать, 
какие предупреждения отображать при компиляции текущего проекта. Здесь 
очень часто отключаются следующие предупреждения. 


Чуть ниже в списке вы можете включать или отключать определенные сообще- 
ния, которые нужно отображать при компиляции. Давайте посмотрим наиболее 
интересные: 


О Ра{Чогт зутБо] (Зависимый от платформы символ) — это сообщение появля- 

_ ется, когда в программе используется переменная, специфичная для определен- 
ной платформы. Программы, написанные на Реры для У тдо\з; могут быть 
перекомпилированы в ВоЙапа Куйх. Среда разработки Куйх — это тот же 
Реры, только для Глпих. Когда вы используете в Рерш какую-нибудь перемен- 
ную, которая не может быть откомпилирована в КуЙх, появляется предупреж- 
дение. Я никогда не использую свои программы для компиляции под КуПх, по- 
этому для меня эти предупреждения не несут никакой информации, а только 
‘отнимают лишнее место. 


С РаНогт чп (Зависимый от платформы модуль) — то же самое, что и РаНогиа 
зутБо1, только для модулей. 
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С Опбае фуре, ОпбаЁе соде и ОпбаЁе фуреса$ — эти предупреждения появились 
в Рары 7, и возникают они, когда вы используете незащищенные типы данных, 
код или объявления которых могут привести к ошибкам. Я постараюсь в тече- 
ние книги научить вас правильно пользоваться такими типами данных. Однако 

_ имейте в виду, когда вы будете писать большие проекты, подобных предупреж- 
дений может быть сотни. Чтобы не искать среди множества подобных сообще- 
ний действительно полезную информацию, их можно отключить. 

Теперь вернемся в окно настроек программы и перейдем в раздел У/ш9о\$ 

Гоги $ Оезепег (Дизайнер форм У! т4о\5). Здесь очень интересными являются 

параметры: 


О Пизрау 2114 — показать сетку; 
О Зпар ® 2119 — перемещать объекты по сетке. 


Я советую вам постоянно использовать сетку. Это позволит вам улучшить 
внешний вид программы. По умолчанию сетка состоит из ячеек 8х8 пикселов каж- 
дая. Если вы захотите изменить это значение, то советую вам устанавливать значе- 
ния, кратные 2. А вообще, если следовать эргономике правильного написания 
программ, желательно не изменять этого значения, потому что с такой сеткой ком- 
поненты располагаются достаточно хорошо. 

С некоторыми из оставшихся вкладок мы познакомимся немного позже. А пока 
перейдем к рассмотрению других объектов среды программирования Деры. 
| Настройки редактора кода можно увидеть в разделе Еаог Орйоп$ (Настройки 

редактора). Соответствующее окно можно увидеть на рис. 3.5. 
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Рис. 3.5. Раздел ЕЧНог ОрНоп$ окна настроек редактора 
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Я рекомендую установить флажок, определяющий значение параметра Оп4о 
аЙег 5ауе (Отмена после сохранения). Это делается для того, чтобы у вас была 
возможность отменять последние действия с помощью команды Оп@о (Отмена) 
даже после сохранения файла. Если флажок не установлен, то после каждого со- 
хранения список последних выполненных операций очищается, и вы не сможете 
выполнять команду Опдо (Отмена). 

В разделе Тод Раейе (Палитра инструментов) можно настроить панель инст- 
рументов. Наиболее интересные пункты это: 


О переключатели ЗтаЙ, Медиа и Гагзе (маленький, средний и большой), кото- 
рые определяют размер кнопок. Компонентов очень много, а у меня экран не ре- 
зиновый, поэтому, чтобы больше помещалось на экран, я предпочитаю Эта|; 


О 5Вом Вийоп СарНоп$ — отображать заголовки компонентов. В первое время, 
чтобы проще было искать компоненты, заголовки лучше включить. Когда вы 
привыкнете к иконкам, то можно будет отключить, чтобы больше компонентов 
помещалось на экране; 

О Ацю СоПарзе Сже?омез — автоматически закрывать разделы компонентов. 
При переходе в новый раздел предыдущий будет автоматически закрываться; 

СО Уегася Сагогу Сарйоп$ — отображать имена категорий вертикально; 

С Уегиса! Еюм Гауоц — вертикальная раскладка кнопок. 

Последнее, что нужно сделать перед началом работы — настроить кнопки бы- 
строго доступа на панели инструментов. Для этого нужно щелкнуть правой кноп- 
кой мыши по панели инструментов и в появившемся меню выбрать пункт 


Ргорегие$ (Свойства). В результате откроется окно настройки панелей и кнопок 
(рис. 3. 6). 
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Рис. 3.6. Окно Си${отте настройки панелей инструментов 
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На первой вкладке можно включать и отключать различные панели. Оставьте 
только те, которые вы будете часто использовать. На второй вкладке находятся все 
возможные кнопки, которые можно добавить на панель инструментов простым пе- 
ретаскиванием. 


СОВЕТ. Добавьте на панель инструментов команды Зауе А! (Сохранить все) и Сюзе 

АП (Закрыть все) из раздела Е|Не (Файл). Сохранить один текущий файл можно нажа- 

тием сочетания клавиш <С{1>+<$>, поэтому кнопку сохранения можно убрать, а вот 

сохранить все файлы открытого проекта можно или из меню, или добавив одноимен- 
_ ную кнопку на панель инструментов. 


Закрыть проект можно только из меню, потому что сочетания клавиш для этой 
команды нет. Если для команды Зауе АП (Сохранить все) есть клавиши быстрого 


доступа (хотя они и не совсем удобны), тут придется пользоваться меню, что ино- 
гда также затруднительно. 


Это пока все, что я хотел показать из настроек. Со временем вы можете понять, 
что вам нужно еще, но мне достаточно и этих. 


Глава 4 


Визуальная модель Берт 


Вы уже должны знать, что Оерб! — визуальная среда разработки программ. 
Это значит, что большую часть оформления внешнего вида можно делать с ис- 
пользованием мыши, расставляя необходимые объекты на дизайнере форм 
(в Рары это форма, на которой вы мышью расставляете компоненты для буду- 
щей программы). Такие действия чем-то похожи на строительство домика из 
кубиков. Вы просто строите каркас своего будущего приложения, не заботясь 
о том, как на самом деле происходит создание графического интерфейса пользо- 
вателя в самой программе. 

Среда разработки Ое]р! максимально упрощает создание приложения и облег- 
чает жизнь программисту, ускоряя процесс формирования внешнего вида програм- 
мы. При этом можно больше внимания уделить логике выполнения программы 
и непосредственно заниматься созданием математической части приложения. 

Прежде чем начать расставлять компоненты в окне нашего первого приложе- 
ния и знакомиться с ними поближе, рассмотрим немного теории, касающейся 
объектов, классов и компонентной модели Рерш. Это основа, которую должен 
знать и понимать любой программист. Как уже говорилось, создавать простую 
программу можно научить даже обезьяну, но для самостоятельного написания 
настоящих программ необходимо понимание всех основ программирования, что- 
бы мыслить так, как это делает компьютер. В противном случае вы сможете 
только повторять различные шаблоны и не сможете их кардинально изменить 
или улучшить. и 

В этой главе даются необходимые базовые знания, которые впоследствии мож- 
но применить на практике. Однако здесь мы пока еще будем использовать абст- 
рактный язык программирования. Но начиная со следующей главы начнем знако- 
миться с языком Веры непосредственно. 


4.1. Процедурное программирование 


Если вы читаете книгу полностью, то, наверное, уже знаете историю языков 
программирования. С их развитием развивались и технологии, используемые при 
написании кода. Первые программы писались сплошным текстом. Эта была про- 
стая последовательность команд, записанная в столбец. Все это выглядело прибли- 
зительно так (листинг 4.1). | 


40 _ Глава 4 


Команда 1 
Команда. 2 


Команда 3 


Команда М. 


Используя такой подход к программированию, можно было сделать очень 
немного. Единственное, что было доступно программисту для создания логики 
в данном случае, — это условные переходы. Под условным переходом понимается 
переход на какую-то команду при определенных условиях, которые сложились 
в процессе обработки данных на процессоре. Например листинг 4.2. 


К д 


Если выполнено условие, то перейти на команду 1, иначе на команду 3. 
Команда 1 
Команда 2 
Команда 3 


Команда М. 


Это единственная логика, с помощью которой можно было выполнять опреде- 
ленные действия, зависящие от конкретных ситуаций, которые могут сложиться 
в процессе вычислений. Но программы оставались плоскими и неудобными, пото- 
му что написать таким образом сложную логику невозможно. Линейным програм- 
мированием можно создать только линейную логику, которая проведет вас по оп- 
ределенным шагам. Например, мастера в программах имеют линейную логику. Она 
может разветвляться по ходу выполнения шагов мастера, но не может делать что- 
то более сложное. 

Взгляните на программу М$ У№ога. В ней трудно представить себе линейность, 
потому что здесь как бы присутствует диалог с программой. Вы говорите, что вам 
надо, а она выполняет ваши действия. При линейном программировании можно 
создать только такую логику, при которой компьютер запрашивает определенные 
параметры (данные), и вы вводите их, а отступить от линейности, заложенной 
в такую логику, очень сложно. | | 

Следующим шагом стал процедурный подход. При этом подходе какой-то код 
программы мог объединяться в отдельные блоки (процедуры). После этого такой 
блок команд можно вызывать из любой части программы. Например листинг 4.3. 


Начало процедуры 1 
Команда 1 
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Команда 2 


Конец процедуры 1 


Начало программы 
Команда 1 
Команда 2 
Если выполнено условие, то выполнить код процедуры 1. 
Команда 3 


`Конец программы. 


В результате появилась возможность использовать один и тот же код в одной 
программе неоднократно. Код программ стал более удобным и простым для пони- 
мания. Именно таким был отец Рерш — язык программирования Тигро/ВоПапд 
Разса|, который со временем превратился в ОБесе Рабса]|. И именно на этом языке 
учился программированию ваш покорный слуга. Это потом уже я изучил С/С++, 
А$5етЫег и Тауа, а первым был именно Тито Разса|. 

Но вернемся к процедурам. Процедуры (и их разновидность — методы) сохра- 
нились до сих пор и используются везде, поэтому их понимание очень важно. 
В процедуры можно передавать различные значения, заставляя их что-то рассчи- 
тывать. 


Начало процедуры 1 (Переменная 1: строка) 


Команда 1 
Команда 2 


Конец процедуры 1 


Начало программы 
Команда 1 
Команда 2 
Если выполнено условие, то выполнить код процедуры 1. 
Команда 3 


Конец программы. 


В этом примере (листинг 4.4) после начала процедуры в скобках указан тип пе- 
редаваемой переменной. Таким образом, в процедуру можно поместить код какой- 
нибудь математики и определить параметры в виде переменных, которые исполь- 
зуются в этом коде, а затем только передавать ей разные значения в качестве этих 
параметров. Процедуры остались и в наше время. Чуть позже мы познакомимся 
с ними на практике применительно к Дер. 

Сразу хочу заметить, что использование процедуры часто называют "Вызов 
процедуры". Это действительно так, т. е. процедура как бы вызывается. | 

Давайте рассмотрим пример процедуры (листинг 4.5), приближенный к реальности. 
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Начало процедуры 1 (Переменная 1: Целое число) 
Посчитать факториал числа, находящегося в Переменной 1. 
Вывести результат на экран. 


Конец процедуры 1 


Начало программы 
Процедура 1 (10) 
Процедура 1 (5) 
Процедура 1 (8) 

Конец программы. 


В этом примере условно используется процедура, которая вычисляет факториал 
переданного ей значения и потом выводит результат на экран. В самой программе 
эта процедура используется как Процедура 1 (10), где цифра в скобках означает 
переданное ей значение. Вот так получается универсальная процедура, которая 
считает факториал и выводит результат на экран. Как это все работает? Давай рас- 
смотрим следующий алгоритм. _ 

Начало программы. 
Вызов процедуры Процедура 1 (10) и передача ей значения 10. 
Процедура вычисляет факториал числа 10 и выводит результат на экран. 
Выход из процедуры и продолжение выполнения программы. 
‚ Вызов процедуры Процедура 1 (5) и передача ей значения 5. 
Процедура вычисляет факториал числа 5 и выводит результат на экран. 
Ит. д. Как видите, код программы очень удобен. 
Но процедуры — это мелочи жизни. Более удобным стало использование функ- 


ций. Функция — это та же процедура, только она умеет возвращать значение, т. е. 
результат своего выполнения (листинг 4.6). 


лмфьь- 


Начало Функции 1: Тип возвращаемого значения — целое число 
Команда 1 
Команда 2 


Конец Функции 1 


Начало программы 
Команда 1 
Команда 2 
Если выполнено условие, то выполнить код процедуры 1. 
Команда 3 


Конец программы. 
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Заметьте, что после двоеточия идет описание типа возвращаемого значения. 

Теперь рассмотрим ту же ситуацию с факториалом. Допустим, нам надо рассчи- 
тать факториал для последующего использования, но не для вывода на экран. Та- 
кая задача легко решается с помощью функций (листинг 4.7). 


Начало Функции 1 (Переменная 1: Целое число): Целое число 


Посчитать факториал числа, находящегося в Переменной 1. 
Вернуть результат расчета. 
Конец Функции 1 | 


Начало программы 
Переменная 1 := Функция 1 (10) 
Переменная 2 := Функция 1 (5) 


Переменная 3 Переменная 1+Переменная 2 
Вывести на экран Переменную 3 


Конец программы. 


В этом примере в "переменную 1" записывается результат расчета факториала 
10! (Переменная1 := Функция 1 (10)). В "переменную 2" записывается результат 
расчета факториала 5!. После этого значения переменных складываются и резуль- 
тат сложения записывается в переменную 3. Последнее действие программы — 
вывод на экран содержимого переменной 3. 


4.2. Объектно-ориентированное 
программирование 


Следующим шагом в развитии технологий программирования было появление 
объектно-ориентированного программирования. Здесь программный код перестал 
быть "плоским", и программист оперирует не просто процедурами и функциями, 
а целыми классами. 

Класс — совокупность свойств, методов и событий. Что означает "совокуп- 
ность"? Это значит, что класс как бы состоит из методов, свойств и событий, и они 
обеспечивают его полноценную работу. Представим себе кнопку. Она обладает: 

С) свойствами (цвет, текст на кнопке, шрифт текста и т. д.); 
О событиями (события пользовательского ввода, например, нажатие на кнопку); 


С методами (обеспечивающими работу кнопки, например, метод прорисовки тек- 
ста, прорисовки фокуса ит. д.). | 
Если все это объединить, то получается автономный класс, который может ра- 
ботать в различных условиях. В этом случае достаточно только установить кнопку 
на форме, и она уже готова к применению. Как же оформляются свойства, методы 
и события класса в программах? | 
С Свойства — это переменные, которые влияют на состояние класса. Например, 
ширина, высота. | 
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О Методы — это те же процедуры и функции, т. е. это то, что класс умеет делать 
(вычислять). Например, класс может иметь процедуру для вывода какого-то тек- 
ста на экран. Эта процедура и есть метод, который принадлежит классу. 


С События — это те же процедуры и функции, которые вызываются при наступ- 
лении определенного события, только эти процедуры могут как принадлежать 
классу, так и находиться вне его. Вы создаете процедуру в программе и говори- 

те объекту, что в случае наступления некоторого события, нужно вызвать эту 
процедуру, и она будет вызываться. Например, если изменилось какое-то свой- 
ство, может быть сгенерировано соответствующее событие и вызвана соответ- 
ствующая процедура, и вы сможете отреагировать на событие. 


‚ Изначально в классе может и не быть процедуры для какого-то события, а если 
и есть, то она действует как обработчик по умолчанию. В среде Ое!рЫ: в качестве 
обработчиков вы будете назначать собственные процедуры только в строго опре- 
деленном формате (в зависимости от события). Формат процедуры заранее опреде- 
лен и в разных случаях класс должен будет передавать вам различные параметры. 
Ваши процедуры должны будут соответствовать предопределенному формату, 
чтобы не было разногласий с классом,. к которому они будут относиться. Если 
формат (например, количество параметров или их тип) не будет соответствовать 
заранее определенному, то класс не сможет вызвать процедуру. 

Рассмотрим пример. Пусть пользователь нажал на кнопку. В этом случае она, 
как класс, генерирует соответствующее событие. В результате этого может быть 
вызвана процедура-обработчик, которую вы назначили. кнопке при возникновении 
данного события. В этом случае не требуется никакая дополнительная информация, 
поэтому класс не будет пересылать вам никаких параметров, кроме указателя на 
самого себя. Однако если нужно обработать событие, связанное с перемещением 
курсора мыши, дело будет обстоять несколько иначе. В этом случае класс будет 
генерировать событие и. автоматически передавать вам новые координаты Х 
и У курсора, поэтому процедура должна быть объявлена с соответствующими па- 
раметрами, чтобы можно было принять их от класса. 

События — одна из самых сложных частей классов, но на практике работа 
с ними намного проще, и вы сейчас должны понимать только это. В дальнейшем 
мы рассмотрим всю технологию работы более подробно и от простых примеров 
продвинемся к более сложным. 

Раздел называется объектное программирование, но мы все время говорим. 
о классах, почему? Давайте теперь посмотрим, что такое объект. 

Объект — это экземпляр класса. С помощью класса вы описываете сущность, 
с которой нужно работать. Например, это может быть описание свойств, методов 
или событий классов. Объект — это экземпляр. Чтобы поместить на форму кнопку, | 
вы должны объявить класс, создать свойства, методы и события, а когда вы поме- 
щаете кнопку на форму, то создается экземпляр, т. е. объект. Если вы поместите 
вторую кнопку, будет создан еще один экземпляр, т. е. еще один объект. Вот такая 
тонкая разница между двумя понятиями. 
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Теперь рассмотрим работу свойств, методов и событий как единого целого. 
И снова для примера возьмем класс — кнопку. Такой класс должен обладать сле- 
дующим минимальным набором: 


О свойства: 
»® левая позиция (Х); 
® верхняя позиция (У); 
® ширина, 
е высота; 
е® заголовок; 
С] методы: 
® _ создать кнопку; 
® уничтожить кнопку; 
® нарисовать кнопку; 
О события: 
‚® кнопка нажата: 
‚® заголовок кнопки изменен. 


Объект работает как единое целое. Например, вы изменили заголовок кнопки. 
Объект генерирует событие "заголовок кнопки изменен". По этому событию вызы- 
вается метод "нарисовать кнопку". Этот метод рисует кнопку в позиции, указанной 
в свойствах объекта, и выводит на кнопке новый текст, указанный в свойстве 
"заголовок". | 

У каждого класса обязательно присутствуют два метода: "создать объект“ 
и "уничтожить объект". Во время создания объекта происходит выделение памя- 
ти для хранения’ необходимых свойств и заполняются значения по умолчанию. 
Во время уничтожения объекта происходит освобождение выделенной памяти. 


ПРИМЕЧАНИЕ. Метод для создания объекта называется конструктором 
(сопзгис ог). Метод для уничтожения объекта называется деструктором (4езгисюг). 
Сам процесс создания объекта называется инициализацией. 


Теперь рассмотрим использование нашей кнопки. | 
1. Создание кнопки с помощью вызова метода "Создать кнопку". 
2. Изменение необходимых свойств. 


Все. Наша кнопка готова к работе. 

Объект — это сложный тип. Это значит, что вы можете объявлять переменные 
типа "объект" (точно так же как объявлялись переменные типа “число, или "стро- 
а") и обращаться к объекту через эту переменную. 

На языке программирования это будет выглядеть немного сложнее: 
Объявить переменную типа "кнопка". 


В эту переменную проинициализировать объект. . 
Изменить нужные свойства. 
Можно использовать объект. 


оь- 
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Вот тут нужно собрать все, что вы поняли об объектах и классах, в одно целое. 
Итак, мы можем объявлять переменные типа "класс". Давайте объявим перемен- 
ную объект1 ТИПа Кнопка. Теперь можно создать кнопку, для чего есть конструктор 
(метод для создания объекта), который выделяет свободную память под этот объ- 
ект. Процесс инициализации объекта-кнопки выглядит так: переменной объект1 
нужно присвоить результат работы конструктора класса кнопка. Конструктор вы- 
делит необходимую объекту память и присвоит свойствам значения по умолчанию. 
Результат этого действия будет присвоен переменной объект1. Эта переменная бу- 
дет указывать на область памяти, в которой находится созданная кнопка и ее свой- 
ства. После всех этих действий мы можем получить доступ к созданному объекту 
через переменную Объект1. 

Давайте напишем прототип небольшой программы (листинг 4.8), которая пояс- 
нит весь процесс создания объекта. 


Начало программы. 


Переменные : 


Объект1 — Кнопка; 


Начало кода 
Объект1:= Кнопка .Создать_объект 
Объект1 .Заголовок:='Привет' 
Объект1.Уничтожить_объект. 


Конец кода 


Доступ к свойствам и методам объектов осуществляется при помощи записи. 
ИмяПеременной_ТипаОбъект.Свойство, ИЛИ Метод определяется записью вида — 
ИмяПеременной_ТипаОбъект .Метод (записывается как имя _объекта — точка — 
свойство или метод). Именно таким образом мы изменили в вышеуказанном при- 
мере свойство заголовка (Объект1.Заголовок), Присвоив ему значение 'Привет'. 
Точно так же был организован доступ к конструктору (метод "Создать_объект”) 
и деструктору (метод "Уничтожить_объект"). | 

Создание объекта — обязательно. Однако если вы попробуете использовать 
следующий код (листинг 4.9), то у вас произойдет ошибка. 


Начало программы. 


Переменные: 
Объект1 — Кнопка; 


Начало кода 
Объект1 .Заголовок:='Привет' 


Конец кода 
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Здесь мы пытаемся изменить заголовок без создания и уничтожения объекта, 
а это ошибка! Переменная Объект1 ничего не хранит и ни на что не указывает. 
Ее необходимо сначала проинициализировать и создать для нее объект-кнопку или 
присвоить адрес расположения в памяти уже существующей кнопки. 

Без инициализации можно использовать только простые переменные, такие как 
число или строка. Тут ДерШ выделяет под них память автоматически, потому что 
размер этих переменных фиксирован, и Реры уже на этапе компиляции знает, 
сколько памяти нужно отвести под переменную. 

Сложные переменные типа объектов обязательно должны инициализироваться. 
Это связано еще и с размещением данных. Простые переменные хранятся в стеке 
(сегмент стека) или в сегменте данных, а сложные переменные Типа объектов хра- 
нятся в памяти компьютера. Как ранее уже указывалось, при старте программы, 
сегмент стека инициализируется автоматически. Поэтому переменные могут спо- 
койно размещаться в уже подготовленной памяти сегмента стека. Когда вы создае- 
те объект, он создается в нераспределенной памяти компьютера. Так как память 
еще нераспределена, ее нужно сначала подготовить (выделить нужный объем под 
создаваемый объект). После того как объект не нужен, эту память необходимо ос- 
вободить, вызвав деструктор объекта. 

Простые переменные освобождать не надо, потому что стек и сегмент данных 
очищаются автоматически. Эти сегменты ОС может контролировать и очищать без 
нашего вмешательства. | 

Мы еще не раз встретимся со стеком и необходимостью инициализации, 
когда будем говорить про типы переменных и просто на практических примерах. 

Класс — очень удобная вещь. Он работает как шаблон, на основе которого соз- 
даются переменные типа объектов. Например листинг 4.10. 


Начало программы. 


Переменные : 
Объект1 — Кнопка; 


Объект2 — Кнопка; 


Начало кода 


Объект1:= Кнопка.Создать объект 
Объект2:= Кнопка.Создать объект 


Объект1 .Заголовок:='Привет' 


Объект2.Заголовок: ='Пока' 


Объект1.Уничтожить объект. 
Объект2.Уничтожить объект. 


Конец кода 


В данном примере можно сказать, что наши переменные объект1 И Объект2 
указывают на собственные экземпляры объекта Кнопка, Т.е. в памяти остаются 
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две независимые копии класса (кнопки). Любую из них можно менять, и она не бу- 
дет влиять на другую переменную. 

Теперь более подробно о самом примере. В нем объявляется две переменных 
‚типа "кнопка". Потом производится их инициализация и изменение заголовка на 
нужный. В результате мы получили из одного объекта две кнопки с разными заго- 
ловками. Обе кнопки работают автономно и не мешают друг другу, потому что им 
выделена разная память. Таким образом, создаются новые объекты на основе шаб- 
лона и потом раздельно используются, изменяя разные свойства шаблона и исполь- 
зуя его методы. ` | 

Для уничтожения объекта всегда есть метод гхее. Если объект вам больше не 
нужен, и вы хотите его уничтожить, просто вызовите этот метод: 

Объект1.Етее. 


Я, конечно же, забегаю вперед, объясняя метод ггее. Но все же вам не помеша- 
ло бы уже познакомиться с ним. Пора приводить реальные строчки кода и потихо- 
‚нечку вникать в смысл программирования. 


ВНИМАНИЕ. Мы пока еще не затрагиваем программирование, но необходимо заме- 
тить, что в ОерН! при именовании классов в начало имени добавляется буква "Т". 
Благодаря этому вы всегда можете уже по имени определить, что перед вами не про- 
сто переменная, а целый класс. Исключение составляет только именование классов 
исключительных ситуаций, но это отдельный разговор. 


4.3. Компонентная модель 


Компоненты — это более совершенные объекты. Грубо говоря, компоненты — 
это объекты, с которыми можно работать визуально, и для этого у них есть необхо- 
димые свойства и методы. 

Когда создавалась ‘технология объектно-ориентированного программирования 
(ООП), о визуальности еще никто не думал, и она существовала только в мечтах 
программистов. Фирма ВоПап@ тогда создала библиотеку объектов ОШесм 
\/тдо\$ ГаБгагу (ОУУГ, — Объектная Библиотека УМ тдо\з). А когда Войапа соз- 
давала свою первую визуальную оболочку для \УМтдо\$, пришлось немного дора- 
ботать концепцию ООП, чтобы с объектами можно было работать визуально. 

До появления 6-й версии в Оер№М существовала только` одна компонентная 
модель — УСЁ (Угзиа:ёй Сотропеп! [аЬгагу — визуальная библиотека компонентов). 
В 6-Й версии появилась новая библиотека СХ (Во|апа Сотропептё [аЬгагу ог 
Сто55 Р№афогтт — кроссплатформенная библиотека компонентов). 

УСГ, — библиотека ‚компонентов, разработанная только под \У/тдо\5. Она 
очень хорошая и универсальная, но работает только в этой операционной системе. 

В 2000 году фирма ВоЙапа решила создать визуальную среду разработки для 
Гапих. В основу этой среды разработки легла Ое]рШ и УСГ. Но просто создать но- 
вую среду разработки было слишком легко и не эффективно. Было принято реше- 
ние сделать новую библиотеку компонентов, с помощью которой можно было бы 
писать код как под \Мтдо\$, так и под Глпих. Это значит, что код, написанный 
в Рары под У/т9до\/$, должен без проблем компилироваться под Глпих и притом 
без дополнительных изменений. 
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Так в 2001 году появилась новая среда разработки Куйх, которая смогла компи- 
лировать исходные тексты, написанные на Реры, для работы в операционной сис- 
теме Глпих. В качестве компонентной модели использовалась новая библиотека 
СГХ. В принципе это та же самая УСГ, с небольшими доработками. Даже имена 
объектов остались те же. 


4.4. Наследственность 


Классы обладают достаточно большим количеством преимуществ. Наследст- 
венность — одно из них. В некоторых книгах данное свойство классов начинают 
описывать только к середине книги, но это большая ошибка. Наследственность — 
основа ООП. Даже в самой простой программе мы встречаемся с наследственно- 
стью, поэтому просто необходимо разобраться с этим уже сейчас. 

Одно из величайших достижений в ООП — наследование. Рассмотрим пример. 
Вы написали объект — "гараж". Теперь вам нужно написать объект "дом". Га- 
раж — это, грубо говоря, однокомнатный дом. Оба эти здания обладают одинако- 
выми свойствами — стены, пол, потолок и т. д. Поэтому желательно взять за осно- 
ву гараж и доделать его до дома. Для этого вы создаете новый объект "Дом" 
и пишете, что он происходит от "Гаража". Ваш новый объект сразу примет все 
свойства гаража. Это значит, чте уже есть стены, пол и потолок, и остается доба- 
вить только окна и интерьер. Теперь у вас будет уже два объекта: гараж и дом. Ис- 
пользуя данный прием, можно, на- 
пример, создать еще будку для соба- 
ки. Для этого снова создается объект 


"Будка", который происходит от "Га- рр 


Гараж 


ража" (можете произвести построе- 
ние от "Дома", чтобы в будке у соба- 
ки был интерьер, но это мне кажется 
лишним, собака этого просто не оце-. 
нит). Нужно только уменьшить раз- —многоэтажка Особняк 
мер гаража, изменить вход, и он пре- | 
вратится в будку. В итоге получается 
древовидная иерархия наследования 
свойств объектов, которая показана 
на рис. 4.1. 

Тут еще нужно запомнить два понятия: предок и потомок. Предок — класс, от 
которого происходят другие классы. Потомок — класс, который происходит или 
порожден из другого. Например, гараж — это предок для дома, будки и дачи. Дом, 
будка и дача — потомки от гаража. Один объект может быть и потомком, и пред- 
ком одновременно. Например, объект дом является потомком гаража и предком, 
например, для многоэтажки. 

Потомок наследует свойства предка, поэтому всегда знает, какие у него свойства, 
а предок не может знать свойства своего потомка, потому что он не знает, какие 
свойства будут добавлены в новый класс. Это необходимо знать и понимать. В буду- 
щем мы будет использовать это для создания некоторых программистских трюков. 


— 


Дом Будка Дача 


Рис. 4.1. Иерархия объекта "гараж" 
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Точно такой же метод наследования принят и в объектно-ориентированных язы- 
ках. На рис. 4.2 показан фрагмент иерархии объектов Реры. Как видно из рисунка, 
все объекты происходят от тоъ3ес+. Это базовый объект, который реализует ос- 
новные свойства и методы. От него происходит тРегз1зЕепЕ И ТТЬгеаа. В реально- 
СТИ ОТ ТОЪЗесЕ происходит намного больше объектов, и все они знают о его свой- 
ствах и методах и наследуют их себе. 


Ехрогт9 Са$$е$ | 
_вюбак- | | аззез Ты ь ТЯ А 
5-55 С ТОе о о 
Е ы ТРегзкцег Зее | 1пнемапсе | Регегепсез| ^^. 
[Е > ТСотропеп И а иене мылом с вььвои 
53$ ТСопно : 3-1) РУЫс, 
8 \% Г\иСопно | 


Е и% ТбстойпомИиСопио! 
2-%% ТСизютРогт 
= 5 ТРопт 

_- 8 ТРоптй 


Рис. 4.2. Пример иерархии объектов в Берн; 


4.5. Полиморфизм 


Есть еще одна возможность, которая очень удобна в ООП, — полиморфизм. Что 
это такое? Представим, что у гаража дверь открывается вверх, а у дома должна от- 
крываться в сторону. Дом происходит от гаража, поэтому у него дверь будет от- 
крываться тоже вверх. Как же тогда быть? Вы просто должны изменить (перепи- 
сать) у дома процедуру, отвечающую за открытие двери. Тогда дом получит все 
свойства гаража, но при открывании двери подставит: свою процедуру. Что-то по- 
добное и есть полиморфизм. Другими словами, это когда объекты разных иерархий 
по-разному реагируют на одно и то же событие. 

Для того чтобы можно было изменить процедуру, отвечающую за открывание 
двери, она должна быть объявлена у гаража как "виртуальная" (у1хЕца1). Вирту- 
альная процедура говорит о том, что в порожденном объекте она может быть за- 
менена. 

Есть еще одно слово, которое может указать на необходимость полиморфиз- 
ма, — Яупат1с. В принципе, результат будет идентичен использованию у1хЕца1, 
разница только в том, что у1хЕиа1 оптимизирован для повышения скорости про- 
граммы, а аупат1‹с будет выполняться медленнее, но зато код результата будет 
меньше. ВоПап4 рекомендует использовать у1хЕпа1, что мы и будем делать. 

И. это еще не все. Пусть, например, в гараже у нас стены голые, а в доме требуется 
повесить на них картины. Для реализации этого в ООП есть такая удобная возмож- 
ность, как вызов метода предка. Рассмотрим пример, показанный в листинге 4.11. 
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Процедура, отвечающая за создание стен у. гаража. 
Начало 
Создать стены 


Конец 


Процедура, отвечающая за создание стен у дома. 
Начало о 
Вызвать объект предка. 
Повесить на стены картины. 


Конец 


В процедуре, отвечающей за создание стен у гаража, создаются стены. У дома 
тоже есть такая процедура, поэтому мы ее переопределяем. На первый взгляд про- 
цедура гаража должна пропасть, и у дома придется снова создавать стены, но это 
не так. Нужно просто вызвать объект предка (тогда предок создаст для нас стены), 
а потом вешать на стены картины. 


4.6. Инкапсуляция 


Очень красивое слово — инкапсуляция. Честно сказать, ‘я не очень люблю кра- 
сивые слова, по которым сложно понять, что именно они означают. И несмотря на 
то что на первых порах вы не очень много внимания будете уделять структуре 
и качеству объектов, я постараюсь убедить вас в том, что эта тема очень важна. 

Инкапсуляция — это свойство, благодаря которому разработчику, использую- 
щему определенный строительный блок (код), не нужно знать, как он на самом де- 
ле реализован и работает для корректного использования этого строительного бло- 
ка. Что это значит? Когда вы садитесь за руль автомобиля, вы знаете, как устроен 
его двигатель или коробка передач? Лично я понятия не имею. Нет, я в курсе, что 
двигатель ворочает коробку передач, а та передает свои усилия на колеса, и этого 
мне вполне достаточно, чтобы повернуть ключ, воткнуть первую передачу и начать 
движение. 

Программисту, использующему ваш класс, не обязательно знать, как он реали-` 
зует необходимые возможности. Я бы сказал больше, ему абсолютно не нужно да- 
же знать ничего лишнего. Разрабатывая класс, вы должны проектировать его таким 
образом, чтобы все методы и свойства, выполняющие основную работу, были за- 
крыты. 

Разрабатывая классы, вы можете объявлять его методы и свойства с различными 
правами доступа. Забегая вперед, скажу, что их немного: руоЪ11с, рг1уаке, 
ргосесеея И руЪ11зЪеа. Что имеется в виду под доступом? Открытые методы 
и классы видны другим классам. 

Если я пишу программу и хочу добавить возможность шифрования, то я создаю 
экземпляр класса шифрования и смогу получить доступ только к ее открытым ме- 
тодам и свойствам. Мне абсолютно не важно, как класс шифрует, какой там алго- 
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ритм и т. д. Для меня важно, чтобы он делал это качественно и надежно. Еще мне 
важно иметь возможность указать ключ и текст, с помощью которых будет проис- 
ходить шифрование, и возможность получить результат. Именно эти три возмож- 
ности обязательно должны быть открыты, а все остальное должно быть сокрыто от 
моих глаз и воздействия, чтобы я не смог испортить работу класса. 

Сразу же дам совет — никогда не делайте открытыми переменные класса. Они 
должны быть закрыты, а если нужно иметь возможность воздействия на перемен- 
ные, то для этого лучше использовать методы или свойства (ргорегсу). То есть для 
чтения и для изменения переменной должны использоваться только методы, без 
возможности прямого воздействия. 

Мы уже научились программировать теоретически и можем словами описать 
всю логику программы и даже такую на первый взгляд довольно сложную вещь, 
как логику объектов. Теперь предстоит перейти к практике и увидеть все это на 
реальных программах. 


Глава 5 


Основы _ 
языка программирования Берш 


Мы уже достаточно изучили теорию, и пора приступить к изучению самого языка 
Ре!рш. До этой главы все программы писались на каком-то абстрактном языке, но 
сейчас пришла пора познакомиться непосредственно с программированием в среде 
Ре]р1. Теперь мы будем писать программы только на нем и дополним наши теоре-. 
тические знания практическими. 

В этой главе вы познакомитесь с основами программирования на языке Оеры. 

Здесь мы научимся пользоваться компонентами, их свойствами и методами. А так- 
же увидим на практике компонентную модель языка. 
_ Далее, на протяжении всей книги, будут использоваться два термина — объект- 
ная модель и компонентная модель. Как уже было сказано, компоненты отличают- 
ся от объектов только возможностью работы с ними визуально. А в остальном оба 
термина идентичны. 


5.1, 'Не|о Мона", или Из чего состоит проект 


В большинстве книг по программированию (особенно С/С++) описание начи- 
нают с программы "Нео \ог!4". Это самая простая программа, которая выводит на 
экран окно, в заголовке которого написаны эти два заветных слова "Нео \ой@". 
В свое время появилось даже несколько анекдотов по этому поводу. о 

Авторы книг по Реры упускают этот пример, считая его слишком простым. 
Они сразу начинают описание компонентов и работу с ними. Это ошибка. Дейст- 
вительно, написать на Реры программу, подобную "Нео \ой4", очень просто 
с точки зрения программирования. Для этого не надо писать ни одной строчки. За- 
то на таком примере очень удобно пояснять принцип программирования на Ое]рш 
и структуру проекта. 

Итак, давайте напишем эту программу и разложим по полочкам, что делает 
Реры. Запустите оболочку Ое!р№. Перед вами откроется окно разработки, которое 
подробно было рассмотрено в гл. 3. | 

Создайте новый проект, который будет выступать подопытным кроликом для 
данной главы. Для этого выбираем меню ЕЙе | Мем | УСГ, Еогт$ АррНсаНоп. 


СОВЕТ. Чтобы все, что описывается в книге, лучше отложилось в памяти, вы должны 
читать эту книгу и одновременно отрабатывать материал на практике. Только так вы 
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сможете лучше запомнить, потому что человек запоминает определенные вещи по 
‚ разным признакам. Когда вы не только читаете, но и повторяете, в вашей памяти от- 
‚ кладываются все действия, которые производятся вами. Рассмотрим пример — тан- 
, цор, который должен знать множество танцев. Он не знает их все и не сможет станце- 
вать все танцы начиная с любого момента. Если танец давно не танцевался, то 
в основном его танцуют с начала и до конца, чтобы вспомнить. Однако когда ноги тан- 
цора делают определенные движения, то они "вспоминают" следующие только по то- 
му, что делают сейчас. В такие моменты говорят, что танцор знает танец ногами. 


Давайте теперь посмотрим. на менеджер проектов. На рис. 5.1 показано окно, 
в котором раскрыты все ветви дерева, чтобы вы могли увидеть все составляющие 
проекта. Чтобы легко раскрыть все ветви, достаточно выбрать первый элемент 
и нажать клавишу <*> на дополнительной цифровой клавиатуре. 


че ан 


| т Асбуайе * Мен: 
пе о 

и 
138 Ргодес{6гоир1 
‚2 @) Ркодес.ехе 


- Рис. 5.1. Менеджер проекта 
‘| при созданном приложении 


В менеджере проектов появилось целое дерево. Давайте рассмотрим каждый 
пункт этого дерева. | 


С РгодесСтоир1 (Заголовок дерева) — имя группы проектов. В одной группе 
проектов может быть несколько приложений. В нашем случае мы создали одно 
новое приложение, поэтому в группе будет только оно. Если вы нажмете кнопку 
№ у (Новый) в окне менеджера проектов и создадите новое приложение, то оно 
будет добавлено в существующую группу проектов. 

О РгодесИ.ехе — имя проекта (приложения). Когда вы создаете новое приложе- 
ние, Дер! дает ему имя Рго]ес( плюс порядковый номер. 

О ЧшЕ.ра$ — модуль. Проект состоит из модулей. Каждое окно программы хра-. 
нится в отдельном модуле, а мы видим на экране, что у нашего приложения есть 
окно, и именно оно находится в нем. Файлы с расширением раз содержат ис- 
ходный код модуля. Имя файла такое же, как и у модуля. | 

С 'Оша.айл — это визуальная форма. Она сохраняется в файле с таким же именем, 
как у и модуля, но с расширением т. Раньше имена модулей визуальной формы 
и исходного кода находились на одном уровне, но теперь визуальную часть пере- 
несли на уровень ниже. Это подчеркивает, что файл с описанием визуальной части 
связан с файлом с исходным кодом, показанным на уровень выше. 

Когда у вас в проекте несколько приложений, то только одно из них является 
активным, и именно его вы можете выполнять и отлаживать в среде оболочки 

Реры. Имя активного приложения написано жирным шрифтом. Чтобы изменить 
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активное приложение, достаточно дважды щелкнуть по его имени левой кнопкой 
мыши или щелкнуть правой по имени нужного проекта и из контекстного меню 
выбрать Асйузе (Активировать). | 

Но сейчас мы будем работать только’ с одним приложением, поэтому если вы 
создали два, то второе надо удалить. Для этого выделите имя приложения и на- 
жмите на клавиатуре кнопку <Реве>. Перед вами появится окно с подтверждени- 
ем на удаление. Нужно ответить Уе$ (Да), и приложение будет удалено из группы 
проектов. 

Учтите, что реально файлы с диска не удаляются. Они остаются на месте, но не 
отображаются в вашем проекте. Поэтому если вы сохраняли проект и файлы вам не 
нужны, нужно найти эти файлы и удалить вручную в любом файловом менеджере. 
Если вы не успели сохранить файлы, то их на диске не будет. 

Давайте сохраним наше новое приложение. Для этого выберем из главного ме- 
ню ЕЙе | Зауе АП. Перед вами откроется стандартное окно сохранения файла. Сна- 
чала Перш запросит ввести имя модуля. По умолчанию указано текущее имя — 
От 1.ра$. Давайте изменим его на МатМоаше, нажмем кнопку Зауе (Сохранить). 


СОВЕТ. Сразу хочу обратить внимание, что нельзя вводить имена с пробелами или 
на русском языке. Если вы попытаетесь ввести что-то подобное, то произойдет ошиб- 
ка, файл не будет сохранен и придется повторять процедуру сохранения. Не забудьте 
выбрать папку, куда вы хотите сохранить модуль и проекты. Желательно, чтобы все 
файлы одного проекта хранились в одной папке, по крайней мере на начальном эта- 
пе, пока вы не наберетесь опыта. 


Теперь Веры запросит у вас имя будущего проекта. Давайте введем НеЙо\/оп4. 
Здесь тоже нельзя вводить имена с пробелами или на русском языке. Теперь нажмите 
кнопку зауе (Сохранить). Проект сохранится в файле под именем НеЙо\ойА.арг. 
Когда вы захотите снова открыть пример, вам нужно открыть именно этот файл. 
Не надо открывать файлы с расширением раз, потому что это всего лишь составляю- 
щая часть проекта. Открывать нужно файлы с расширением арг. 

Старайтесь выбирать имена, наиболее точно отображающие содержимое моду- 
ля, чтобы потом легче было разобраться, для чего предназначены файлы в больших 
проектах. К тому же желательно помнить, что имя проекта задает имя будущего 
исполняемого программного файла проекта. Если вы оставите имя Рго]ес, то 
и имя исполняемого файла будет Рго]ес .ехе. 


СОВЕТ. При сохранении проектов желательно это делать в отдельных папках. Для 
каждого проекта лучше отводить отдельную папку, потому что они состоят из множе- 
ства файлов, и когда у вас будут большие проекты, вы не сможете отделить один от 
другого, если они находятся в одной папке. Все дополнительные формы или модули, 
которые вы будете создавать для проекта, желательно также сохранять в папке этого 
проекта. В этом случае вам проще будет их копировать на другой компьютер, архиви- 
ровать или переносить их в другую папку. 


Давайте теперь посмотрим, как изменился. наш менеджер проектов. Как видите, 
имя проекта изменилось на НеЙо\УУон@, а имя модуля на МашМодше. 


-3 Зак. 1273 
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Теперь перейдите в`папку, куда ‘вы сохранили проект, и посмотрите, какие 
файлы там присутствуют. На компакт-диске, прилагаемом к книге, это папка 
\Примеры\Глава 5\НеПо У\!оп 4. Давайте посмотрим на содержимое этих файлов. 

1. Нейо\У/он9.<Ё — файлы с расширением СЁ, содержат конфигурацию проекта. 

2. Нейо\оп9.4оР — файлы с расширением 40, содержат опции проекта. 

3. Нейо\он9.Арг — файлы с расширением 4рг, это сам проект. В этом файле на- 
ходится описание используемых в проекте модулей и код инициализации про- 
граммы. Его можно использовать и для написания кода. В будущем мы узнаем, 
что можно писать в этом модуле и для чего. | 

4. Нейо\У/он9.гез — файлы с расширением гез, содержат ресурсы проекта, напри- 
мер, такие как иконки, курсоры и др. По умолчанию Оеры помещает в этот 
файл только иконку, но это не значит, что вы не можете использовать файл для 
хранения других ресурсов. 

5. МатМодше.раз — файлы с расширением раз, содержат исходный код модулей. 

6. МашМодше.Айт — файлы с расширением Ат, содержат визуальную инфор- 
мацию о форме. 

7. МашМодше.94р — файлы с расширением 94р, определяют вспомогательные 
файлы модуля, например, диаграммы. Если вы не используете диаграммы, то 
можете удалять эти файлы, хотя они все равно будут генерироваться. 

8. МашМодше.дси — файл с расширением аси, представляет откомпилированный 
модуль проекта в промежуточном формате. Когда компилируется программа, 
все модули компилируются в файлы формата ОСО, а потом собираются в один 
и получается один исполняемый файл. Если модуль не изменялся с последней 
компиляции, то Оеры пропустит его, а во время сборки будет использовать су- 
ществующий файл формата ОСО, чтобы увеличить скорость компиляции. У вас 
пока не может быть этого файла, потому что вы еще не компилировали свой 
проект. | | 


_ Файлы исходных кодов (с расширением ра$) — это текстовые файлы, которые 
мы будем редактировать в редакторе кода. Файлы визуальных форм 
(с расширением АЁт) создаются автоматически, и в них будет храниться информа- 
ция о том, что находится на форме, а также настройки самой формы. Откройте этот 
файл в текстовом редакторе (например, в Блокноте), и вы увидите примерно сле- 
дующее: | | 

оБ)есе Гохт1: ТЕоги1 


ГеЕЕ = 231 
Тор = 163 
УзА = 426 


НелзайеЕ = 300 

СарЕ1оп = 'Не]1о могла! 

Со1ог = с1ВЕпРасе | 
РоПЕ.СВагзее = РЕЕАЦЬТ СНАВЗЕТ о 
Ропе.Со1ог = СМ паомтехе 
Ропе.Нелайе = -11 


Основы языка программирования Оерт | 57 | 


РопЕ.Маше = 'М$ Запз бег1Е' 
Ропе.5еу1е = [] 
О19СгеакеОгаетг = Еа1зе 
Р1хе1°РегТпсН = 96 
ТехЕНе1аре = 13 


епа 


Первая строка идентифицирует объект, его имя и тип. Потом идет перечисление 
свойств объекта и значения, которые им присвоены. Описание свойств компонента 
заканчивается ключевым словом ева. — 

Если у вас возникла проблема с открытием формы, вы можете открыть файл ви- 
зуальной формы в текстовом редакторе и подправить необходимое свойство. Это 
может потребоваться, когда на форме есть компонент, который соединяется с базой 
данных. Если соединение активно и база недоступна, то при открытии формы 
Реры будет пытаться соединиться с базой данных, и при неудачном соединении 
форма может не отобразиться. В этом случае нужно открыть такой файл в тексто- 
вом редакторе и отредактировать свойства соединения с базой. Можно отключить 
соединение или подправить путь к другой базе данных (о базах данных мы будем 
говорить в гл. 14). 

А теперь давайте вернемся к нашей программе е Нео \!оп9, которую мы долж- 
ны написать. Сначала посмотрим, что у нас уже есть. В принципе, мы ничего осо- 
бого не сделали, но у нас уже есть готовое окно, которое можно превратить в про- 
грамму. Для этого нужно скомпилировать проект. Для этого выберите из меню 
пункт Рго}ес | Сотрйе Нейо\У/она. Если вы выбирали в настройках РерН показ 
окна состояния компиляции, то вы увидите окно, показанное на рис. 5.2. 


роки ори ия одне свалил ь зълаелдр кали клвлддлль алалиюдюл кая овтри тва 


око | ‚ЕЁ. ‚уринерыгльва ь \мола\Нейонойв. дог 
`Сотрёло: | _ нейомона, Ч и 


корни кдь оилиь медиум ол чем и зижжль кн киь д пике нк зьчь», метр кре из пкрля предищньт 


 Ситеп ие: | | 1 "то бес: 


причине чим ии дя льду падали ли кожен + рик ори киеикрит иани + ежик: 


ПЕ — 5 метит а вый” == 


Рис. 5.2. Окно состояния 
компиляции 


\\ Алотабсайу бое оп ринит те 


Как видите, нет никаких сообщений, предупреждений или ошибок. Еще бы, 
ведь мы еще ничего не делали и не успели испортить созданную для нас заготовку. 
Программа скомпилирована. Просто нажмите кнопку ОК, чтобы закрыть это окно. 
Можно сделать так, чтобы окно автоматически исчезало по завершении компиля- 
ции, для этого поставьте галочку в Ашютайсайу ‹105е оп зиссе$$ Ри! сотрйе (Ав- 
томатически закрывать после удачной компиляции). 

Теперь перейдите в папку, где вы сохранили проект. Там появится исполня- 
емый файл НеЙо\!оп.ехе. Запустите его, и вы увидите пустое окно. 


58 | Глава 5 


Итак, осталось изменить заголовок на Нео УМоп4. Для этого вспоминаем ООП. 
В РаерН! все объекты, значит, и окно программы тоже объект. Заголовок окна — это 
скорей всего свойство окна. Для того чтобы изменить это свойство, нужно перейти в 
объектный инспектор (вкладка Ргорегйе$ (Свойства)), найти свойство Сарйоп (Заго- 
ловок) и ввести в его поле ввода слово НеЙо У/о|4 (рис. 5.3). После этого можно на- 
жать Етег или ‘просто перейти на другую строку с другим свойством. | 
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‚_.!БебаинмМолног ‘дтаснуеРогт 25| РИС. 5.3. Изменение свойства 
А! 5Поип | в объектном инспекторе 


Теперь давайте запустим нашу программу. Для этого можно снова скомпилиро- 
вать ее и запустить файл. Однако на этот раз мы будем действовать по-другому: 
Выберите из меню Кип (Выполнить) пункт Кип (или нажмите на клавиатуре кла- 
вишу <Е9>). е]рЫ сразу откомпилирует и запустит готовую программу. Как види- 
те, программирование не настолько страшно, как нас иногда пугают. 


СОВЕТ. Заведите себе в привычку перед каждой компиляцией сохранять весь проект 
(РИе | Зауе АП). Обидно будет, если полдня тяжелой работы пропадет даром от какой- 
нибудь внештатной ситуации. А они бывают, особенно если вы установите в среду 
Оерт! компоненты с ошибками. Поэтому лучше лишний раз сохраниться, чем полдня 
восстанавливать проделанную ранее работу. 


В принципе, на этом можно было бы остановиться и рассмотреть код модуля 
главной формы. Однако перед этим необходимо рассмотреть свойства проекта и 
изучить правила, по которым ими можно управлять. Выберите пункт меню 
Рго}ес! | Орйоп$, и вы увидите окно, как показано на рис. 5.4. Окно разбито на 
множество вкладок, и с некоторыми из них мы познакомимся сейчас, а остальные 
оставим на будущее. Слишком много информации ни к чему хорошему не приве- 
дет, тем более что нам пока большинство настроек не нужно. 
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Рис. 5.4. Окно свойств проекта 


Если раньше большинство форм настроек Оеры состояло из вкладок, то теперь 
большинство из них имеет дерево разделов слева. Так случилось и с окном настро- 
ек. В разделе Когпа$ (Формы) вы можете настраивать формы проекта. Вверху есть 
ниспадающий список Мат Ёогт (Главная форма). Здесь можно выбрать форму, 
которая будет являться главной для активного приложения. У нас только одна 
форма Еогт1, которая на данный момент является активной (находится в стадии 
редактирования), поэтому она будет главной. 

Чуть ниже расположены два списка. Слева находится список Аш®-сгеже 
Гоги1$ — автоматически создаваемые формы. При запуске программы все описан- 
ные здесь формы будут инициализироваться автоматически. Справа находится 
список АуаЙаШе Ёогт$ — доступные формы. В этом списке будут находиться 
формы, которые не будут создаваться автоматически, но доступны проекту. Такие 
формы пользователь обязан инициализировать самостоятельно. Между списками 
расположены кнопки, с помощью которых можно перемещать имена форм из од- 
ного списка в другой и обратно. 

Теперь перейдем в раздел АррИсайот$ (Приложения). Здесь вы можете на- 
страивать следующие поля: 


О Те — заголовок, который будет отображаться в панели задач. 
СО Нер Ше — имя файла помощи. 


О соп — иконка приложения. По умолчанию используется иконка Оерш, но вы 
можете ее изменить, нажав на кнопку Г.оа4 1соп (Загрузить иконку). 


С Таге Ше ежептзюой — расширение результирующего файла. Если здесь ничего 
не указано, то запускаемый программный файл будет иметь стандартное расши- 
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рение ехе. Вы можете указать любое другое значение, но файл от этого не изме- 
нится. Это будет тот же самый программный файл, только ему присвоится дру- 
гое расширение. Такое действие равносильно простому переименованию файла 
после компиляции. Зачем же тогда нужно это поле? Простой пример — храни- 
тели экрана. Это те же самые исполняемые файлы, которые имеют расширение 
5сг. Чтобы каждый раз не переименовывать, можно задать расширение в на- 
стройках. | 


Следующий интересный раздел — УегЯюоп По (Информация о версии). Если 
‚ поставить галочку в шеш4е уегяоп иогтайоп ш рго]есё (Включить информа- 
цию о версии в проект), то в запускаемый программный файл будет встроена ин- 
формация о версии программы. Для этого нужно указать версию программы, раз- 
работчика ит. д. 

На этом рассмотрение работы со свойствами проекта временно завершим. По 
мере необходимости мы познакомимся и с другими параметрами. 

Следующий раздел, который вам может понадобиться — Огесюне/Соп опа] 
(Папки и условия) — показан на рис. 5.5. Самое интересное здесь то, что вы може-' 
те указать отдельные папки, куда нужно складывать файлы определенного типа. 

Например, вы не хотите, чтобы в папке, где расположен исходный код, появля- 
лись 4сч-файлы. Просто введите в поле Оп оирш @гесюгу путь к папке, куда 
нужно складывать промежуточные файлы. Можно указывать и относительный 
путь, например \4си. Если ваш проект находится в папке с:\рго]ес 1, то 4си-файлы` 
попадут в с:\рго]ес \аси. Только учтите, что этот путь должен существовать, иначе 
компиляция завершится ошибкой. 

В отдельную папку можно поместить и результирующий (исполняемый) файл. 
Его путь нужно указать в Ошрш Огесюгу (Результирующая папка). В поле 
беагсй рав (Путь поиска) можно указать дополнительные пути, где нужно искать 
модули программы. Например, один из модулей вы держите отдельно от всех ос- 
тальных и от 4рг-файлов, при этом этот модуль не добавлен В проект. Да, это впол- 
не возможно. При компиляции, чтобы Оерй! нашел нужный файл, просто укажите 
путь к нему в ЗеагеВ ра (Путь поиска). 

И последний раздел, который мы сейчас рассмотрим, — РасКагез (Пакеты) 
(рис. 5.6). Большую часть окна здесь занимает список Везет расКаге$ (Пакеты ди- 
зайна). Здесь перечислены все пакеты компонентов, установленные в Ое]рш. Если 
напротив пакета установлена галочка, то он будет активным, и его компоненты бу- 
дут доступны на панели инструментов. Здесь же вы можете добавить или удалить 
пакет с помощью кнопок А94 (Добавить) и Ветоуе (Удалить). 

Чуть ниже есть интересная галочка — ВиЙ@а уИЙ гаипите расКаге$ (Собрать 
с использованием пакетов исполнения). Она позволяет не компилировать в испол- 
няемый файл пакеты, указанные в поле чуть ниже этой галочки. Зачем это нужно? 
Дело в том, что библиотека УСТ, очень большая и содержит очень много кода. Ко- 
гда вы создаете монолитный исполняемый файл, то большая часть кода перекоче- 

вывает в этот исполняемый файл. Но если галочка стоит, то исполняемый файл бу- 
дет минимален, зато весь код будет подключаться динамически. Да, размер файла 
будет в несколько раз меньше, и из 500 килобайт мы можем получить 100; но про- 
грамма не запустится, если она не найдет библиотеки Ър1. 
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ПРИМЕЧАНИЕ. После изменения опции Вий@а мИП гипите раскКадез$ (Собрать с ис- 
пользованием пакетов исполнения) изменения вступают не сразу, а после сборки 
проекта. Не компиляции, а именно сборки. Если выбрать компиляцию, то не изменен- 
ные модули собираться не будут, а значит, вы не увидите эффекта. 


Если вы решили подключать библиотеки Кипите, то после компиляции проекта 
выберите меню Рго]есё ПМогтабоп (Информация о проекте). Перед вами появится 
окно с информацией. В разделе РасКаге4 изе4 (Использовались пакеты) будут пе- 
речислены используемые пакеты. Все указанные там файлы придется переносить 
на компьютеры пользователей, которые будут работать с вашей программой. По- 
верьте мне, эти файлы пакетов не маленькие, поэтому лучше строить монолитный 
исполняемый файл. 

В следующей части будет рассмотрен исходный код, который сгенерирован 
Реры для нашего проекта. Несмотря на то что он "пустой", кое-какая информация 
присутствует, и с ней нужно разобраться уже сейчас, пока мы не перешли к рас- 
смотрению более сложных программ. 


ПРИМЕЧАНИЕ. На компакт-диске, прилагаемом к данной книге, в папке \Примерыь\ 
Глава 5\Нео \\Мойд вы можете увидеть пример этой программы "Нео М/опа". 


5.2. Язык программирования берш 


Язык программирования Рер достаточно прост в обучении, но очень эффек- 
тивен и достаточно мощный. Самое первое, с чем надо познакомиться, — это ком- 
ментарии. 

Комментарии — это любой текст, который абсолютно не влияет на код про- 
граммы. Он никогда не компилируется и не вставляется в исполняемый файл, а ис- 
пользуется только для пояснений кода. Комментарии могут оформляться двумя 
способами: 


О все, что идет после двойного слеша, воспринимается как комментарий (так можно 
оформить только одну строку комментария). Обратите внимание, что именно по- 
сле двойного слеша. До него весь текст будет восприниматься как код; 


О все, что заключено в фигурные кавычки { и }, тоже является комментарием 
(в этом случае можно заключить в комментарий сколько угодно строк). 


Рассмотрим пример (листинг 5.1). 


//Это комментарий. 


Это уже не комментарий 
Это не комментарий // А это уже комментарий 


{Это снова комментарий 


И это тоже} 
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В данной книге постоянно будут использоваться комментарии для пояснения 
кода описываемых программ, потому что с их помощью очень хорошо показывать, 
что и для чего делается. Именно поэтому до начала разбора кода мы должны были 
познакомиться с ним. 

Теперь вы готовы к изучению языка программирования Реры. Создайте новый 
проект или откройте программу Не!о\ оп, разницы нет. После этого перейдите 
в редактор кода. Кстати, мы еще не знаем, как переключаться в исходный код про- 

‚граммы! Для этого используется горячая клавиша <Е12>. Нажимая ее, вы будете 
переключаться между кодом и визуальной формой. 

В исходном коде для вас уже написана заготовка будущей программы. Точнее 
сказать, только для этой формы. Если вы захотите, чтобы в программе было два 
окна, то в этом случае придется создать еще одну форму, а значит, появится еще 
один подобный модуль, т. к. каждое окно описывается в отдельном модуле. 

Давайте досконально рассмотрим, что тут написано. В листинге 5.2 приведены 
подробные комментарии для каждой строки созданного шаблона. Однако здесь 
кое-что упущено в целях удобства изучения программного кода. 


Е ет. 
В 2: А: 7 Е м 
и 


ип1е 01161; //Имя модуля 


// начало объявления интерфейсов 


1псе’гЁЕасе 


и5е5 //После этого слова идет перечисление подключенных модулей. 
`° ИМЗ паомз, Меззадцез, $5у$0%11$, Уаг1апЕ$, С1аззез, 


Сгарр1с$, Сопего1$, Роум$, П1а1оа$; 


Туре //После этого идет объявление типов 


ТЕогт]1 = С1аз$ (ТЕопм) //Начало описания нового объекта ТЕотгм1 
//Здесь описываются компоненты и события 


рх1уаее //После этого слова можно описывать закрытые данные объекта 


{ Рк1уабе аес1агаЕ1опз$ }//Подсказка, которую сгенерировал ПОе1рр1. 
{Здесь можно описывать переменные и методы, доступные только для объекта ТКГогт1} 


о 
руЬ11с //После этого слова можно описывать открытые данные объекта 


{РоБ11с аес1ахгае1опз}//Подсказка, которую сгенерировал Ре1Ъ1 


{Здесь можно описывать переменные и методы, 
доступные из любого другого модуля} 
ета; 
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Уаг //Объявление глобальных переменных 


Еохи1 : ТЕоум1; //Это описана переменная Рогм1 типа ‘объекта ТЕГоги1 


// начало реализации 
1пр1емепбае1оп . 


{58 *.а#а} //Подключение .ЯЁа файла (файл с данными о визуальных объектах) 


епа. // епа с точкой — конец модуля 


Если что-то осталось еще непонятным, то в процессе программирования реаль- 
ных программ все встанет на свои места. Не старайтесь запомнить все сразу, пото- 
му что это нереально. Слишком много новой информации, не подкрепленной прак- 
тикой. Старайтесь понять только смысл написанной программы. 

Практически все строчки заканчиваются знаком ";" (точка с запятой). Этот знак 
показывает конец оператора. Он ставится только после операторов и никогда не 
используется после ключевых слов типа’ чзез, буре, Беа1п, ‘1пр1етепеае1ол, 
рх1уаее, риЪ11с и т. д. Впоследствии вы познакомитесь со всеми ключевыми сло- 
вами, большинство которых выделяется жирным шрифтом. Сразу видно исключе- 
ние — епа, после которого точка с запятой не ставится. 

Итак, разберем структуру кода. В самом начале стоит имя модуля. Оно может 
быть любым, но таким же, как и имя файла (без учета его расширения). Изменять 
имя модуля вручную не желательно. Если все же надо изменить, то сохраните сна- 
чала модуль со старым именем. Для этого нужно выбрать меню ЕЙ | $ауе А$. 

После этого идет большой раздел 1пеегЕасе. В этом разделе описываются 
интерфейсы модуля, которые вы будете реализовывать. Концом данного 
раздела является ключевое слово 1пр1етепеае1опт (реализация). После 1пр1етепеае1оп 
начинается второй большой раздел, в котором реализуются интерфейсы. Этот раз- 
дел заканчивается словом епа с точкой на конце. 

Вернемся к разделу :пеегЕасе. Весь код, который прописан в этом разделе, бу- 
дет доступен другим модулям, которые будут подключать данный. А значит, все 
объявленные здесь переменные будут доступны и в других формах. Здесь могут 
быть следующие подразделы изез, куре, хахг И сопз®. Давайте рассмотрим каждый 
из них по отдельности. 

В разделе чзез идет подключение глобальных модулей. Все процедуры, функ- 
ции, константы описаны в нектором модуле, и прежде чем эти процедуры исполь- 
зовать, нужно его подключить. Вы можете знать о существовании какой-нибудь 
функции. Но чтобы об этом узнал компилятор, вы должны указать модуль, где 
описана эта функция, понятным для компилятора языком. Например, вам надо пре- 
вратить число в строку. Для этого в РерЫ уже есть функция тпетозех. Она описа- 
на в модуле 5уз0Е11з. Если вы хотите воспользоваться этой функцией, вам надо 
подключить этот модуль к своему модулю формы (напечатать название $уз$0Е115 
в разделе изез) и использовать уже готовую функцию. В этом случае вам не надо 
писать собственный вариант преобразования чисел в строку. 

В подразделе изез раздела 1пеекгасе нужно объявлять только те модули, кото- 
рые понадобятся для объявления интерфейсов. Бер по умолчанию помещает 
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свои модули, которые идут в поставке Ое|ры. Все модули, которые не нужны при 
описании интерфейсов, но нужны при реализации, нужно прописывать в подразде- 
Ле цчзез раздела 1пр1етепсае1оп. 

Самое сложное — разобраться с объявлениями типов. Весь код, который вы 
пишете, должен относиться к какому-нибудь типу. Их описывают после ключевого 
слова суре. Строка ТЕоги1 = с1азз(ТРоги) говорит о том, что создается новый 
класс с именем тгоги1, который будет происходить от объекта тгоги (используем 
наследование объектов). Таким образом, тгоги1 будет обладать всеми возможно- 
СТЯМИ ТЕогм, а также дополнительными свойствами и возможностями, которые мы 
определим для него в будущем. 

ТЕоги — это стандартный объект-форма, который входит в библиотеку УСГ, 
и СЁХ. Все окна в Веры относятся к этому объекту. | 

Итак, чтобы объявить какой-то объект, необходимо, в общем случае для раздела 
Буре, написать следующий код (листинг 5.3). 


Имя объекта = с]1аз$$ 
//Свойства, методы и события объекта 


епЯ; 


ПРИМЕЧАНИЕ. В Паскале использовалось понятие "объект". В Оерй! принято назы- 
вать объекты классами, как это делается в языке программирования С++. 


Если вы хотите, чтобы ваш класс наследовал свойства другого класса, то необ- 
ходимо указать после ключевого слова с1азз имя класса, который будет являться 
родителем для вашего, как это показано в листинге 5.4. 


Имя объекта = с1аз$ (Имя предка) 
//Свойства, методы и события объекта 


ета; 


Вот так и получается, что запись в шаблоне нашей формы — ТЕохи1 = с1азз (ТЕоги) 
создает новый класс тгогт1, который является производным (потомком) от объек- 
та ТРоги. 

После объявления объекта идет описание его свойств, методов и событий, кото- 
рые заканчиваются ключевым словом епа с точкой с запятой. Объявления делятся 
на три части: ре1уаее, ргосесее@, руЪ11с. Хотя по умолчанию Ое]рШ не создает 
раздел ргокесееа, вы можете написать его сами. 

До начала описания разделов (до ключевого слова рх1уа+е) идет описание ком- 
понентов, входящих в состав класса и событий класса. Тут нежелательно писать 
вручную, это делается самим Ре]рш. Зато внутри разделов рг1уаее, рхокескеа 
И руБ1 {с можно описывать любые переменные, процедуры и функции (листинг 5.5). 
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Имя объекта = с1аз$ (Имя предка) 
//Здесь описываются компоненты и события 
рг1уаее //После рх1уаее можно описывать закрытые данные объекта 


{Здесь можно описывать переменные и методы, доступные 


только для объекта класса ТЕРоуп1} 


Переменная1: Трбседег; 


Руоседиге Руос1; 


руБ11с //После этого слова можно описывать открытые данные объекта 
{Здесь можно описывать переменные 
и методы, доступные из любого другого модуля} 
Переменная2: Тпбедег; 
Переменная3З: 5Ех1па; 
Ргосеааге Ргос2; 
Ргоседиге Ргос3; 


ета; 


При описании действует одно правило — внутри раздела сначала описываются 
переменные, а потом процедуры и: функции. Нельзя описывать сначала процедуры, 
а потом переменные или делать это вперемешку. В листинге 5.6 можно увидеть 
пример объявления переменных и процедур в разделе ре1хуахе. 


рх1уасе 


Переменная1: Тпфедег; 
Рхосеаите Ргос1;//Это процедура, после нее не может быть переменных 


Переменная2: 5%х1па;//Это ошибка. Уже объявлена одна процедура. 


‚ Существует четыре типа разделов. 

С рк1уаее — свойства и методы из этого раздела доступны только этому объекту. 
Другие объекты не могут вызывать эти методы и читать записывать свойства; 

О ргобескеа — эти свойства и методы доступны только этому объекту и потом- 
кам (объектам, которые происходят от нашего и наследуют его свойства). 
Сторонние объекты не могут получить доступ к хранящимся здесь свойствам 
и методам; 


С Р%оь11с — все, что описано здесь, доступно всем, . 
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я РуЪ11зНеа — когда будут описываться собственные компоненты приложения, 
в этом разделе мы будем описывать свойства и события, которые должны быть. 
отображены в объектном инспекторе. Эти свойства: доступны всем: 


Надо заметить, что если два объекта объявлены в одном и том же модуле, они 
считаются дружественными и видят абсолютно все методы и свойства, даже если . 
объявление произведено в разделе рг1хуаее.. | 

После объявления объекта и его составляющих идет описание глобальных пе- 
ременных. Оно начинается после ключевого слова уаг и чаще всего идет после 
объявления типов. Чаще всего не значит, что обязательно. Главное, чтобы в разделе 
уах вы не пытались использовать типы, которые еще не были объявлены. В вашей 
программе может быть несколько разделов уах и Куре, и они могут идти в любом . 
порядке, например, как показано в листинге 5.7. 


1пседЁасе 


уах 
// объявление переменных 
суре 
// объявление типов 
уах 


// снова объявление переменных . 


Глобальные переменные — это переменные, которые хранятся в стеке, создают- 
ся при запуске программы и уничтожаются при выходе из. программы. Это значит, 
что они доступны всегда и везде, пока запущена программа. Но с другой стороны, 
такие переменные не будут иниЦциализироваться автоматически, если не считать 
простых типов (числа, строки), не являющихся указателями. 

Вернемся к нашему примеру: 

\уахг //Объявление глобальных переменных 


ЕКогм1: ТРоут1; //Это описана переменная Гоут1 типа объекта ТЕоги1 


В этом примере объявлена переменная гоги1 типа класса тгоги1. Когда будет 
создан объект ТРоги1, то его указатель будет записан в переменную гоги1. Данная 
переменная глобальная и существует, пока программа выполняется, а значит, к ней 
всегда можно получить доступ. Как инициализируется переменная гогш1, мы рас- 
смотрим позже. 

Далее идет раздел 1пр1етепеа{1оп, где должна быть реализация. У нас пока нече- 
го реализовывать. Если мы добавим какие-то методы (процедуры или функции) клас- 
СУ ТЕоги1, то код этих процедур должен быть именно в разделе 1пр1етепеае{ оп. 

Последнее, что осталось рассмотреть в этой главе, — ключ {$8 *.аЕт}. В фи- 
гурных скобках могут быть не только комментарии, но и ключи для компилятора. 
Они отличаются тем, что выглядят как {$Буква Параметр}. Буква указывает на тип 
ключа. В нашем случае используется буква в. Этот ключ указывает на то, что надо 
подключить файл ресурсов, в данном случае .аЕю файл (файл с данными о визу- 
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альных объектах) с тем же именем, что и имя модуля. Если имя модуля Ма1п0п1, 
то можно изменить этот ключ на {$8 Ма1п0п1е.аЕм}. | 

Ключ в — это единственный ключ, который пока понадобится. Если в процессе 
изучения нам понадобятся еще ключи, то мы их обязательно рассмотрим. 

Любой программный код в РерМ заключается между Ъед1п И епа. Бет — 
начало кода, а епа — конец. Например, когда вы пишете процедуру, то сначала 
нужно написать ее имя (как это делать, мы поговорим позже), а потом заключить 
ее код между операторными скобками — Ъед1п и епа. Мы говорили об этом, когда 
писали на абстрактном языке программирования, но я решил повториться, чтобы 
вы не забывали, что это относится и к Бары. 


5.3. Типы данных в Оерш 


Как уже говорилось, в языке программирования Рерш все должно иметь свой 
тип. Не все языки такие, но Реры требует явного указания всех типов. Мы уже 
знаем, что существует четыре простых типа данных: целые числа, вещественные 
числа (дробные), строки и булевы значения. 

Все переменные должны относиться к какому-то типу. Почему? Чтобы ответить 
на этот вопрос, надо вспомнить, ‘что такое переменная. Переменная — область па- 
мяти, где хранится определенная информация. Чтобы знать, что хранится в этой 
памяти, мы должны указать компилятору, к какому типу относится переменная. 
Если переменная относится к типу целых чисел, то в памяти, отведенной под пере- 
менную, хранится целое число. | | 


5.3.1. Целочисленные типы данных 


В переменных целого типа информация представлена в виде чисел, не имеющих 
дробной части. Они используются для математических вычислений и любых дру- 
гих операций, где нужна работа с числами. 

Существует несколько видов целых типов данных. Они в основном отличаются 
только размером отводимой переменным памяти для хранения данных. ` 

В табл. 5.1 перечислены все типы целых чисел. В примечании указано, какого 
типа могут быть эти числа — со знаком или без (т.е. только положительные или 
могут быть и отрицательными). В зависимости от объема памяти, отводимого пе- 
ременной для хранения данных, определяется максимальное число, которое можно 
записать в эту переменную. 


Таблица 5.1. Типы целочисленных переменных 


Диапазон возможных Размер памяти 
значений — для хранения данных 
—2147483648...2147483647 | 4 байта (32 бита) 


0...4294967295 4 байта (32 бита) | 
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Таблица 5.1 (окончание) 


Диапазон возможных Размер памяти 
значении для хранения данных 

-32768..32767 = 2 байта (16 бит) 

—2147483648...2147483647 | 4 байта (32 бита) 


Целочисленным переменным можно присваивать как десятичные числа, так 
и шестнадцатеричные. Для этого перед шестнадцатеричным числом нужно поста- 
вить знак доллара — $. Сразу же рассмотрим пример (листинг 5.8). 


уаг 


1:Тпбедег; 
Беа1п 

1:=10; 

1:=$А; 
епа; 


В этом примере сначала переменной 1: присваивается число 10, а потом $А — 
шестнадцатеричное А, что тоже равно десяти. Так что первая и вторая строки де- 
лают одно и то же, а значит, и результат будет одинаковый. 


5.3.2. Вещественные типы данных 


Вещественные или дробные типы данных предназначены для хранения чисел с 
плавающей точкой. Некоторые считают, что лучше использовать именно такие ти- 
пы данных вместо целочисленных. Это заблуждение. Операции с плавающей точ- 
кой отнимают у процессора больше времени и требуют больше памяти. Поэтому 
используйте переменные этого типа только там, где это действительно необходимо. 
В этой книге вещественные переменные будут использоваться минимально. 

Диапазон возможных Максимальное количество 


Тип . 
значений цифр в числе 


Веам8 2.9х10 39...1.7х 1033 11—12 — 
Ава = | 5.0х10`3241.7х 10308 15—16 


1.5х10 ®...3.4 х 1038 


Таблица 5.2. Типы вещественных переменных 


Размер 
в байтах 
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Таблица 5.2 (окончание) 


Тип Диапазон возможных Максимальное количество Размер 
значений цифр в числе в байтах 


5.0х 10-324“ 1.7х 10308 15—16 
Ежепаед 3.6х 10 *95'...1.1 х 10°? 19—20 


Ситепсу —922337203685477.5808... 
922337203685477.5807 


Очень важно помнить, что вещественные числа не равны целым. Например, ве- 
щественное число 3.0 не будет равно целому числу 3. Для того чтобы сравнить оба 
этих числа, желательно округлить вещественное число. Дело в том, что в компью- 
тере число 3 в вещественном виде может оказаться числом 3.00000000001 или 
2.999999999. | 


5.3.3. Символьные типы данных 


Символьные данные могут хранить текст, например, для вывода на экран или 
в окно диалога. Но ведь компьютер бинарен и не может хранить буквы, он опери- 
рует числами. Символьные данные — это простая цепочка из чисел. Каждое число 
в свою очередь определяет порядковый номер символа в таблице символов. 
Например, если представить наш алфавит в виде таблицы символов, то число 0 бу- 
дет означать букву "А", число | будет означать букву "Б" и т. д. Это значит, что 
слово "кот" в числовом виде будет выглядеть так: 

10 14 18 


Здесь 10 — это буква "К", 14 — "О", 18 — "Т". Именно в виде таких последова- 
тельностей чисел и выглядят строки в компьютерной памяти. 

Самые первые таблицы символов были 7-битными (АЗСП). А так как в 7 битах 
можно поместить максимум число 127, то и количество символов в таблице равня- 
лось [27. Хотя данные хранились в 7 битах, под каждый символ все же отводились 
8 бит, т. е. один байт. Это связано с тем, что память в компьютере разбита по ячей- 
кам в 8 бит. Поэтому один бит оставался свободным. 

Но тут возникает проблема, помимо букв в таблице должны содержаться еще 
и цифры от 0 до 9, а также служебные символы типа знака равно, больше, меньше 
и т. д. Таким образом, получилось, что в такой таблице не хватило места для букв 
из языков большинства: национальностей. | 

В табл. 5.3 вы можете увидеть таблицу АМ$Т, которая используется в \тдо\. 

Если посмотреть на табл. 5.3, то можно увидеть, что вместо английской буквы 
"А" в памяти будет стоять число 65, а вместо русской буквы "П" мы увидим 207. 
Получается, что слово "привет" в памяти машины будет выглядеть так: . | 

#207 #208.#200 #194 #210 


Я не зря поставил перед каждым числом символ решетки, дело в том, что она 
как раз указывает на то, что перед нами не просто число, а код символа в десятич- 
ной системе исчисления. | 


Основы языка программирования Берш 71 


Нулевой символ в таблице использовать не стали и зарезервировали как полный 
ноль. Чуть ниже вы увидите, как программисты нашли достойное применение это- 
му символу. Очень часто он используется в качестве индикатора конца строк (на- 
пример, для типа данных рстах). Первые символы в таблице (те, где в поле символ 
пусто) — это служебные символы, такие как символы клавиши ЕС, ТАВ, Ещег 
и др. Как вы понимаете, у этих символов нет графического отображения, но у них 
должны быть номера, чтобы реагировать на нажатие клавиш. 


Таблица 5.3. Таблица АМЗИ! 
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Таблица 5.3 (окончание) 
Сим- Сим- Сим- Сим- Сим- 
`| вол вол вол вол вол 
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192 213 

В Рефы может использоваться 8- и 16-битная (ОМСОПЕ) таблица символов, 
где задействованы все 8 бит (АМ$]-таблица). Эта таблица берется из самой опера- 
ционной системы \/1т4о\5. Таким образом, количество символов и их расположе- 
ние зависит от ОС. 

Для того чтобы удовлетворить все национальности, ввели поддержку ОМСООЕ 
(16-битная таблица символов). В ней первые 8 бит совпадают с таблицей АМ$, 
а остальные являются специфичными. Начиная с \Мтдо\/з 2000 эта кодировка ис- 
пользуется все шире и шире. 

Основные типы строк, которые присутствуют в Рары, приведены в табл. 5.4. 
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_ Таблица 5.4. Типы строк 


т помоч 


Максимальная длина 
строки, символы 


Память, отводимая 
для хранения строки 


МЛае па От 4 байт до 2 Гбайт ОМСООЕ 


Строки в Веры заключаются в одинарные кавычки. Например, как показано 


ниже (листинг 5.9), вы можете объявить переменную 3-х типа строка и присвоить 
ей значение 'не11о Мог1а'. | | 


уах 
ЗЕг:Ап$15Еу1па; 
Беа1п 
| ЗЕхг:='Не11о Мог1Аа'; //Присваиваем в 5Ег значение 'Не]11о Мог1а' 
‚ епа; 


Так как строка — это массив символов, значит, можно получить доступ к от- 
дельному символу строки. Для этого нужно после имени переменной указать 
в квадратных скобках номер ‘символа, который нужен, только не забывайте, что 
буквы в строках нумеруются начиная от 1. Большинство массивов в языках про- 
граммирования нумеруются с нуля (строки — это те же массивы, только симво- 
лов). В этом случае получается исключение, которое надо запомнить. 


ЗАМЕЧАНИЕ. Нулевой символ в строке указывает на длину строки. Его нельзя изменять 
прямым доступом, поэтому лучше вообще не обращаться напрямую к нулевому симво- 
лу. Для этого есть специальные функции, которые будут рассмотрены немного позже. 


Теперь посмотрим на примере (листинг 5.10), как-можно работать с отдельными 
символами в строке. 


уахг 
ЗЕг:Ап$156у1пта; 

Бедлп 
бехг:='Не11о Мох1а'; //Присваиваем в 56хг значение 'Не11о Мог]1а' 
Ех [1]:='Т';// В первый символ присваиваю значение 'Т' 

епа; 


После первого присваивания переменной 5х в нее будет записана строка 
'Не11о Мог1а'. Второе присвоение заменит в переменной зех первый символ стро- 
ки на символ 'тТ'. 
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Так как строка — это набор символов, а символ — число, указывающее на кон- 
кретный символ в таблице, мы можем создавать строки из чисел. Например, если 
мы хотим присвоить переменной $ег строку 'Не11о Мог1а' плюс символы конца 
строки и перевода каретки (символы перехода на новую строку), нужно воспользо- 
ваться числовыми значениями, потому что на клавиатуре нет этих символов, и мы 
не можем их набрать. Символ конца строки в таблице символов находится в пози- 
ции #13 (шестнадцатеричное значение — $0), а символ перевода каретки — в по- 
зиции #10 ($А). Обратите внимание на необходимость указания знака решетки пе- 
ред числовым значением. Таким образом, наш код будет выглядеть так, как 
показано в листинге 5.11. . 


56у:Ап$156у1па; 


ЗЕг:='Не11о Мог1Аа'#13#10; //Присваиваем 5Ег значение 'Не11о Мог1а'+#13#10. 
ЗЕг:=#100#123#89; //Присваиваю в 5х строку из символов 
//в числовом представлении. 


епа; 


В дальнейшем очень часто в примерах можно будет встретить тип Ссвах. Этот 
‚тип данных определяет только один символ. Мы редко будем использовать его 
в чистом виде, в основном он будет присутствовать в программах в виде массива 
СИМВОЛОВ РСВаг, О котором речь пойдет немного позже. 

Еще мы будем часто использовать тип 5Ех1па, потому что он очень удобен 


и практически ничем не отличается от остальных типов, которые описаны выше. 
Объявляется этот тип следующим образом (листинг 5.12). 


уахг 
5:56г1па; 
51:56у1па [200]; 


В этом примере объявляются две строковые переменные з и з1. Первая объяв- 
лена как простая строка типа 5Ех1па, а у второй после типа в квадратных скобках 
стоит число 200. Это число определяет длину строки в символах. 

Какой размер имеет тип $Ег1та? Это зависит от настроек. Выберите меню 
Рго]ес{-Орйоп$ (Опции проекта) и перейдите в раздел СотрИег (Компилятор). 
Если здесь установить параметр Ниге $@1т?$ (Громадные строки), то этот тип бу- 
дет идентичен Апз15ех1па, иначе строки будут короткими (как 5$ВоЕЗЕк1па). 

Когда переменная такого типа хранится в памяти, то ее символы нумеруются 
с единицы. Если вы хотите прочитать 2-й символ, нужно обращаться к нему как 

$ [2]. В этом случае тип зех1па схож с уже описанными. 
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Если нужно узнать длину строки, то для этого можно воспользоваться функцией 
тепаев, а чтобы установить длину, используйте зекьепаен. Хотя с процедурами и. 
функциями мы будем знакомиться немного позже, рассмотрим здесь маленький 
абстрактный пример (листинг 5.13). | 


уахг 
з:56г1па; 
]: Табедех 

Бедлп - 
$:='Привет!!!'; 
1:=Бераер ($); 
бееГепаЕВ (5, 50}; 


ета; 


В этом примере в первой строке кода строковой переменной з присваивается про- 
извольный текст (его содержимое не имеет значения). Во второй — определяется 
длина строки. Для этого в целочисленную переменную 1 записывается результат вы- 
полнения функции тепаев (з). Функции передается строка, а она возвращает нам ее 
размер. В последней строке кода вызывается функция 5е-Ъепаен, чтобы установить 
новую длину строки. Цифра 50 показывает значение новой длины строки. 


5.3.4. Булевы типы 


С помощью переменных этого типа очень удобно строить логику. Переменная 
булева типа может принимать только одно из двух значений — егае ИЛИ Еа15е. 
Вам это ничего не напоминает? Совсем недавно рассказывалось про биты, которые 
имеют два состояния | или 0, включен или выключен. Переменные булева типа 
занимают только один бит и принимают только два значения (1 или 0). Для удобст- 
ва в программировании эти. значения заменяются понятиями егие (истина) или 
а1зе (ложь) соответственно. 

Хотя тут нужно дать одно небольшое пояснение. Дело в том, что несмотря на то 
что для булева значения нужен только один бит, на самом деле в памяти будет вы- 
деляться число, кратное байту, просто значащим будет только один бит. 

Лучше и понятнее (на мой взгляд) булевы переменные называть логическими 
переменными. Для объявления логических переменных используется слово 
Воо1еап. Рассмотрим пример работы с такими типами переменных (листинг 5.14). 


\уах 
Ь:Воо1еап; // Объявляю логическую переменную Ь 
Зег:Ап$156у1па; // Объявляю строковую переменную 5Ех 
Бед1п 


Ъ: =Егие; 
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1Е ЪБ=Егое Етеп 
ЗЕх:='Истина' 

е1 зе 
ЗЕ’:='Ложь' 


епа; 


В этом примере объявляются две переменные: Ъ (логическая) и 5%х (строковая). 
Потом происходит присваивание переменной Ъ значения егое. Дальше требуются 
пояснения, потому что идет логическая конструкция 1Е ... ЕЪеп, которая до этого 
момента не изучалась. 

_Мы с вами уже рисовали блок-схемы и в них использовали логику типа "если 
` выполняется какое-то условие, то выполнить какое-то действие". Конструкция 
1Е ... ЕВеп действует так же. Слово 1Е переводится как "если". Слово Епеп пере- 
водится как "то". В результате получается конструкция "если условие выполнено, 
то ...” В программе она выглядит как 1Е условие выполнено ЕВеп 

_ Частным случаем этой конструкции является запись 1Е ... Енеп ... е]1зе. 
Слово е1зе переводится как "иначе". То есть если условие выполнено, то выпол- 
нится то, что написано после етеп, иначе выполнится то, что написано после е1 зе. 

Ранее говорилось, что все операторы в Веры заканчиваются точкой с запятой. 
Это нужно делать, чтобы отделить команды друг от друга, ведь одна команда мо- 
жет быть записана на две строки или две команды В одной. Так вот после операто- 
ра, идущего перед е1зе, никогда не ставится точка с запятой. В этом случае, в при- 
мере, который представлен в листинге 5.14, не стоит точка с запятой после 
ЗЕг:='Истина' , ПОТОМУ что ПОТОМ ИДЕТ е15е. Это правило надо запомнить. 

В примере проверяется условие, если переменная Ъ равна кхие, то переменной 
зе; присваивается значение "Истина", иначе значение "Ложь". 

В Реры можно сравнивать логические типы в упрощенном виде. Например, 
предыдущий код можно написать так, как показано в листинге 5.15. 


\уах 
Ь:Воо1еап; // Объявляю логическую переменную БЬ 
ЗЕг:Ай$156:1па; // Объявляю строковую переменную 5х 
Беа1п о 
Ь:=6хае; 
1Е Ь Вет 
ЗЕх:='Истина' 
е1 зе 
ЗЕг:='Ложь' 
епа; 


В этом примере просто написан оператор 1Е Ъ ЕЪеп. Если не указано, с чем мы 
сравниваем, то проверка происходит на правильное значение. Это значит, что пе- 
ременная будет проверяться на истину (равна ли она Ехое), а значит, этот код иден- 
тичен предыдущему. 
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Существует несколько типов для хранения логических значений: воо1еап (байт), 
ВусеВоо1 (байт), могЯВоо1 (слово) и гопаВоо1 (двойное слово). В скобках указан 
размер в памяти, выделяемый для хранения значения. Зачем выделять под логиче- 
скую переменную двойное слово? Ответ прост — только воо1еап тип может при- 
нимать два значения есгиае ИЛИ Еа1зе или если представить это в числах, то [1 и 0 
соответственно. Остальные типы в качестве ложного значения воспринимают ноль, 
а истинное значение — это любое число, не равное нулю. 

Тут есть еще одно отличие — в типе воо1еап значение Еа15е меньше +гие, ведь 
О меньше 1. В остальных булевых типах Еа1зе не равно ские. Это связано с тем, 
что отрицательные значения тоже воспринимаются как истина. 


5.3.5. Массивы 


Последним типом данных, с которым мы сейчас познакомимся, будут массивы. Ко- 
нечно же, сейчас не будут расписываться все возможные их типы, потому что здесь это 
еще рано делать. Мы познакомимся с остальными типами по мере надобности. 

Массив — это просто последовательность переменных одного типа. Например, 
массив целых чисел будет выглядеть так: 15, 23, 36, 41. Для того чтобы объявить 
переменную типа массив, нужно в разделе уаг сделать запись: 

Имя переменной : аггау [диапазон значений] оЁ Тип переменных в массиве 


Диапазон значений оформляется в виде "Начальное значение .. Конечное 
значение". Между начальным и конечным значениями ставятся две точки. Рас- 
смотрим пример объявления массива из 100 целых чисел (листинг 5.16). 


м Е ЕЕ м Е 
АЛТАЯ 


уахг 
Ъ:аггау [0..99] оЕ Тпбедег; 
Беа1п 
Ь[0] := 
Ъ[1]:= 


епа; 


В этом же примере показано, как осуществить доступ к элементам массива. Как 
видите, это делается так же, как мы получали доступ к отдельным буквам в стро- 
_ ках. Строки — это тоже массивы, поэтому доступ к их элементам одинаковый. 

Единственная разница — здесь мы обращаемся к элементам с нуля, потому что 
объявили массив значений от 0 до 99 включительно, что равно 100 числовым значе- 
ниям. Но никто не мешает нам объявить массив от 1 до 100. Просто в программиро- 
вании принято вести отсчет с нуля, и мы будем придерживаться этого правила. 


ПРИМЕЧАНИЕ. Почему все программисты считают начиная с нулевого значения? 
Вспомните, как компьютер работает с числами. Любое шестнадцатеричное значение 
(байт, слово, двойное слово) изменяется от 0 до какого-то значения. Именно поэтому 
ноль и должен использоваться. В противном случае мы ‘сразу сокращаем возможно- 
сти адресации ровно на единицу. 
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5.3.6. Странный РСпаг 


Из основных типов, которые нам понадобятся в будущем, мне осталось расска- 
зать только про Тип РСЪагк. Этот тип широко используется в \УтАР!-функциях 
(функции ОС У\У/тдо\5), и когда.мы будем обращаться к ним напрямую, то для пе- 
редачи строк придется использовать именно этот тип, потому что старые \/тАР]- 
функции не могут работать с типом $Ех1па. Да и новые тоже. У них строковый тип 
выглядит по-другому. 

Переменная типа Рсъах — это указатель на начало строки, т. е. переменная, ука- 
зывает на первый символ строки в памяти машины. Когда программе надо обратить- 
ся к этой переменной, она обращается по этому адресу и начинает читать строку. 
Но как же тогда программа узнает длину строки? Переменная — это только указа- 
тель на начало, символы нумеруются с нулевого, и где же тогда хранится длина стро- 
ки? Попробуйте догадаться. Если ничего не приходит в голову, я открою секрет — 
нигде. Действительно, у строк типа рРСтах нигде не указывается длина строки. 

Для того чтобы понять, как программа узнает ее длину, нужно вспомнить, как 
_ хранятся символы строк в памяти машины. Как вы помните, каждый символ — это 
число. Однако у нас есть одно число, которое не используется при кодировании 
символов — это ноль. Так вот когда программа читает строку рсъаг, то читаются 
все коды символов по указанному адресу, пока не встретится нулевой код. Именно 
нулевой код является признаком конца строки. | 

Тип РСВаг нельзя использовать напрямую, потому что это указатель на память. 
По этому указателю должна быть выделена какая-то ее область. Это значит, что 
следующий пример (листинг 5.17) будет недействителен. 


уахг 
з:Рераг; 
реал 
5:='Привет'; 


епа; 


В этом примере объявлена строка $ типа рсваг и сделана попытка присвоить ей 
текст. Такая операция невозможна, потому что з — указатель и пока ни на что не 
указывает. Мы просто его объявили, но не выделили ему память. Если предыдущие 
типы ограничены в размере и Ое|р№ может автоматически резервировать для них 
память, то для типа РСвах размер не ограничен и нигде не указывается его длина. 
С типом зех1па в этом отношении просто, если мы не указали его размер, то Реры 
может зарезервировать максимальный размер — 255 символов. У всвахг нет такого 
максимального размера, и поэтому вся ответственность за выделение памяти под 
эту переменную ложится на программиста. 

Про выделение памяти мы поговорим позже, здесь эту тему затрагивать слиш- 
ком рано, но один способ объявления такой переменной мы можем рассмотреть 
уже сейчас (листинг 5.18). 
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’ ргоседаге ТЕРоп1 .Виебоп1С11ск(5бепаег: ТОБ]есе); 
уаг 

5:агхгау[0..200] оЕЁ спаг; 

51:РСраг; , , 
Ъеа1п 

$1:=@5; 


епЯ; 


В этом примере объявлена переменная з как массив из 200 элементов типа стах. 
Тип сваг — это просто одиночный символ. Получается, что з — массив из 
200 символов или, проще говоря, та же самая строка. Здесь также объявлена пере- 
менная з1 типа рРСъах. | , 

Между ъед:п И епа имеется только одна строка кода. В ней присваивается пере- 
‚ менной з1 значение переменной з. Теперь з1 указывает на область памяти, в кото- 
рой находится массив из 200 символов. 

Этот способ мы будем использовать редко, потому что чаще всего будем рабо- 
тать с типом $Ег1па. 


5.3.7. Константы 


Константы — это переменные, значение которых нельзя изменить. В отличие от 
переменных, тут не надо указывать тип переменной. Вы просто пишете имя и зна- 
чение: 

соп5е 

Р1 = 3.14; 


МеззадчеТтехе = 'Текст сообщения об ошибке' 


Константы описываются в разделе сопз+, который может быть как в разделе объ- 
явления интерфейсов (1пеег{асе), так и в реализации (1пр1атепеаЕ1оп) внутри про- 
цедур, функций и методов. Если константа должна. быть видна в других модулях, то 
ее нужно объявить в разделе интерфейсов. После описания констант вы можете ис- 
пользовать их как простые переменные, но не можете изменять их значения. 

соп$Е 

Р1 = 3.14; 
уаг 
51:Тпеедег; 

Беач1п 

51:=Р1*5; 


епЯ; 


СОВЕТ. Я рекомендую вам всегда использовать константы, когда необходимо не- 
сколько раз использовать определенное число. При проектировании программы вы 
можете решить, что это число вам подходит, но потом окажется обратное и придется 
во всем коде изменять выбранное ранее число. При использовании константы, вам 
достаточно изменить только ее значение и не бегать по всему коду, изменяя числа. 
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Как вы уже поняли, тип констант определять не надо. Но если нужно указать при- 
надлежность их к определенному типу, то это можно сделать следующим образом: 


соп5е 
Р1: геа1 = 3.14; . 
МеззадеТехе : ЗЕг1па = 'Текст сообщения об ошибке'; 


Для простых типов все это не обязательно, но иногда возникает необходимость 
в явном указании типа. | 


5.3.8. Всемогущий Уапйат 


Когда на этапе проектирования программы мы не можем четко определить тий 
данных определенной переменной, можно воспользоваться очень мощным типом 
уах1апе. Этот тип вводился для поддержки ОГЕ (Одес ГТлпК апа Етбеддте или 
внедрение и связь объектов, — мы будем рассматривать эту технологию позже), . 
где он используется почти на каждом шагу. Но сейчас мы можем найти и другое 
применение этому типу данных. Переменные этого типа могут принимать любые 
значения. Вы присваиваете что угодно, а программа сама определяет ее тип на эта- 
пе выполнения. Давайте рассмотрим следующий пример: 

уаг 


У: \Уахлапе; 


Бед1п 

\У:=5; 

\У:='Это текст'!; 
\ :=Суае; 

У :=3.14; 

епа; 


В первой строке содержимое переменной \ будет восприниматься как целое 
число. Во второй строке как текст. Далее будет логическая переменная и в послед- 
ней строке мы превращаем переменную У в число с плавающей точкой. Таким об- 
разом, при выполнении этого кода переменная изменит свой тип четыре раза, и код 
выполнится корректно. 

Когда программа встречает переменную типа уах1апе, она автоматически выде- 
ляет для нее память в зависимости от хранимого значения. Если значение не указа- 
но, то переменная инициализируется нулевыми значениями. 


СОВЕТ. Старайтесь использовать этот тип только там, где это действительно необхо- 
димо. Не надо все переменные объявлять как Уах1апЕ только потому, что это можно. 
Отлаживать такие приложения сложно, и когда вы попытаетесь, например, сложить 
переменную типа Уахг1апе, содержащую число со строкой, можно получить не тот 
результат, который ожидали. Поэтому старайтесь указывать реальные типы. 


Рассмотрим следующий программный код. 
уах 

\1,\2,\3 : уахг1апе; 
ред1п 
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\1:='1'; 

\2:='5'; 

\3:=10; 

\1 : =У1+У2+\3; 
епа; 


Как вы думаете, какой результат будет в переменной \%1? На первый взгляд 
должно быть число 16, если программа попытается сложить все как числа, или 
строка "1510", если сложит как строку. А реально будет 25, потому что сначала бу- 
дет сложение строк "1" и "5", в результате чего получится 15, а потом произойдет 
сложение чисел 15 + 10. 


5.4. Процедуры и функции в Берн 


Мы уже познакомились с процедурным программированием теоретически. 
Теперь нам предстоит узнать, как это выглядит на практике. 

Процедуры и функции — это некий участок кода, который выделен в отдельный 
блок. Простая процедура выглядит так, как показано в листинге 5.19. 


Ргоседиге Ехапр1 (); 
\хуаг 
1:Тобедег; //Объявление локальной переменной 
Беа1п | 
1:=10;//Присваиваю переменной значение 


ета; 


Любая процедура начинается с ключевого слова ргоседиге. После этого слова 
идет ее имя. В нашем примере она называется кхапр1. После имени идут скобки, 
в которых можно указывать параметры, передаваемые в процедуру. Что такое па- 
раметры, мы узнаем чуть позже, а пока мы должны знать, что если параметров нет, 
то нужно ставить пустые скобки или вообще ничего не ставить. | 

Внутри процедуры может быть раздел уах, где можно объявить локальные пе- 
ременные. В листинге 5.19 объявляется одна переменная 1 типа 1пеедех (целое 
число). Мы уже знакомы с глобальными переменными, которые появляются при 
старте программы и уничтожаются после выхода. 1 — это локальная переменная, 
и ее можно использовать только внутри процедуры. После выхода из нее перемен- 
ная автоматически уничтожается. 


ВНИМАНИЕ. Обратите внимание, что локальные переменные после выхода из про- 
цедуры автоматически уничтожаются. В связи с этим, если снова вызвать процедуру, 
то значения локальных переменных будут пустыми или будут содержать мусор (зави- 
сит от типа переменных), но никак не будут хранить значение, которое было во время 
выполнения процедуры в последний раз. 
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Внутри процедуры может быть и раздел сопзе для объявления констант. Разде- 
ЛЫ тах И сопзЕ должны быть после объявления имени, но до начала, т. е. до ключе- 
вого слова Ъез1п. 

Код процедуры начинается после слова ъед:1п и заканчивается после слова епа. 
Внутри блока ъед1п ... епа процедуры переменной 1 присваивается значение 10. 
В принципе, ничего не происходит, потому что после присваивания числа про- 
цедура заканчивается, и переменная 1 уничтожается. 

Для вызова процедуры достаточно указать ее имя Ехапр1. . 

Если процедура относится к объекту (т. е. является его методом), то нужно на- 
писать в объявлении имя объекта, а после точки — имя процедуры: Вот пример 
процедуры (листинг 5.20), относящейся к объекту формы Еогш1. 


854 


Ргоседоге ТЕогт1 .Ехапр2; 
Беа1п 

Ехапр1; //Вызываем процедуру Ехапр]1, написанную ранее. 
ева; 


В процедуре кхатр2 вызывается написанная ранее ехапр1. Все имена процедуры 
должны начинаться с латинских букв и могут заканчиваться цифрами. Нельзя исполь- 
зовать в имени русские буквы, а также имена процедур не могут начинаться с цифр. 


ВНИМАНИЕ. Если процедура не относится к объекту, она должна быть описана до 
начала использования. 


Рассмотрим еще один пример использования процедур. 


ргоседите Ехапр2; 
Беа1п | 

Ехапр1; //Произойдет ошибка, потому что процедура Ехапр1 описана ниже 
епа; 


ргоседоте Ехапр]; 
уах | 
1:Тшбедег; 
Беа1п 
1:=10; 


епа; 


ргоседите Ехапр4; 
Бед1п 

Ехаптр1(); //Здесь ошибки не будет, потому что Ехапр]1 описан выше. 
епа; | | 
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В листинге 5.21 дважды вызывается одна и та же процедура. В первом случае 
произойдет ошибка, потому что вызов процедуры происходит раньше. чем ее опи- 
сание. Во втором случае ошибки не будет. 

Чтобы процедуру можно было использовать до ее реализации, нужно в разделе 
1псегЕасе описать ее, например: 


016 имя 


1пбе’Ёасе 
ргосеаиге Ехапр1; 


Суре 
// описание типов 


1пр1етепкае1оп 


// здесь идет код из листинга 5.21 


Вот теперь в разделе 1пеехгЕасе компилятор видит, что где-то в модуле есть реа- 
лизация процедуры Ехамр1, а значит, можно использовать ее до объявления. Другое 
дело, что. если реализации не будет, то компилятор выдаст ошибку, что код про- 
цедуры не найден. 

При первом вызове мы написали только имя без указания скобок, потому что 
у процедуры нет параметров. Во втором случае скобки опущены. Оба вызова иден- 
тичны. Таким образом, когда у процедуры нет параметров, можно указывать скоб- 
ки или не указывать. Это остается на ваше усмотрение, но желательно для про- 
цедур и функций при вызове всегда указывать скобки. Без скобок вы не поймете, 
что такое Ехатр1 — процедура или переменная. Вот если скобки указаны, то сразу 
видно, что это вызов именно процедуры. 

Кода будут писаться большие проекты, то уследить за всеми именами будет тя- 
жело. Вы должны при первом взгляде определять, что перед вами. Компилятор 
РерЬ! дает вам небольшую свободу, но пользоваться ею надо аккуратно, чтобы 
потом не усложнить себе жизнь. 

Если процедура относится к объекту (является его методом), то не имеет значе- 
ния, где она написана и где вызывается, т. к. классы имеют область описания (ко- 
торую ‘мы уже рассматривали) и она доступна компилятору. 


Суре 
ТЕогм1 = с1аз$$ (ТЕогм) 


рг1уасе: 
ргосеаиге Ехапр1; 
ргосеаите Ехапр2; 
раБ]1с: 
ргоседауе Ехапр3; 
ргосеацге Ехапр4; 
ера; 
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По этому описанию компилятор узнает о существовании процедур, поэтому вы 
можете их реализовывать в любом порядке, ошибок не будет. Мы уже знакомы 
с такими описаниями, они находятся, как показано в листинге 5.22, в начале модуля. 

Теперь разберемся с функциями. Это те же процедуры, только они умеют возвра- 
щать значения. Простейшая функция выглядит так, как это показано в листинге 5.23. 


уахг 
1:Тпбедег; //Объявление локальной переменной 
Беа1п 
1:=10; //Присваиваю переменной значение 
Кези1е:=1; // Возвращаю значение 1 


ета; 


Я объявил функцию, которая будет возвращать значение типа 1пЕедех (целое 
ЧИСЛО) ЕипсЕ1оп Ехатр1: Тпеедег. Тип возвращаемого функцией значения указы- 
вается после имени и двоеточия. Для возврата значения, его нужно присвоить пе- 
ременной вези1%, как это делается в примере. 

Вызов функции осуществляется следующим образом  пистинг 5.24). 


аи 


и 


Рхоседиге ТРогт1 .Ехапр2; 
уахг 

х: табеаех; 

Бед1п | | 

х := Ехатр1; //Вызываем функцию Ехапр1, написанную ранее. 
епа; | 


В этом примере переменной х присваивается значение, возвращаемое функцией 
Ехапр1. 

Все остальные правила объявления функций такие же, как и у процедур. 
Теперь посмотрим, как можно передавать значения внутрь процедур и функций. 


ЕипсЕ1оп Ехапр1 (1п4ех: ТпЕедег) : Тпбедег! 

Беа1п 

Вези1е:=1паех*2; // Возвращаю переданное значение 1паех 
// умноженное на 2. 

епа; 


Как показано в листинге 5.25, после имени функции в скобках указывается тип 
переменной, который можно передать внутрь ее или процедуры. В данном случае 
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это переменная 1п49ех ТИПа Тпеедег. После скобок указывается двоеточие и тип 
возвращаемого значения. Здесь возвращается значение также типа тпеедег. 

Что же будет возвращать наша функция? Результат ее выполнения можно запи- 
сывать в кези1Е или присваивать самому имени функции. В приведенном примере 
переменной вези1е присваивается результат вычисления выражения 1пдех*2. Эта 
переменная нигде не описана, но она зарезервирована как переменная, возвра- 
щающая значения из функции, и она всегда имеет тип возвращаемого значения 
функции. Результат можно присваивать и имени функции. Как это будет выгля- 
деть, показано в листинге 5.26. 


Еопсе1оп Ехапр1 (1паех: Тпбедег) : Тпбедег; 


Ъеа1п 
Ехапр1:=1п4ех*2; // Возвращаю переданное значение 1паех 
// умноженное на 2 


епа; 


‚Вызов функции, определенной в предыдущем примере, будет осуществляться 
следующим образом (листинг 5.27). 


ргоседиге ТРогт1 .Ехатр2 ; 


уаг 
х:шбевдег; 

Ъеа1п | 
х:=Ехаир1 (20); //Вызываем процедуру Ехапр1, написанную ранее. 


епа; 


Здесь в функцию Ехатр1 передается значение 20, а она вернет 20, умноженное на 
2, т. е. 40 (листинг 5.26). | 

Все рассмотренные примеры оперировали функциями. Однако точно так же 
можно поступать и с процедурами, передавая им значения. 


ПРИМЕЧАНИЕ. Помните, что процедуры и функции — это практически одно и то же.. 
Разница только в том, что функции умеют возвращать значения. С этим мы уже зна- 
комы из теории, но теперь увидели и на реальных примерах. 


Попробуйте сейчас внимательно посмотреть на следующий пример (листинг 5.28) 
и найти в нем ошибку. 


Ргоседиуе ТЕоупш1 .Ехапр2; 
уах 


х: шеедег; 
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Бед1п 
Веза]1$:=х*20; 


ера; 


В этом примере переменной вези1е присваивается значение, вычисляемое из 
выражения — х*20. Вроде все правильно, но это же процедура, а она не может воз-. 
вращать значение. Значит, компилятор выдаст ошибку на то, что переменная 
Кез\и1е не определена. 

И последнее, что необходимо здесь рассмотреть, — это досрочный выход из 
процедур или функций. Когда процедура выполняет заложенные внутри нее опера- 
торы и встречает среди них оператор ех1+, производится моментальный выход из 
этой процедуры. Рассмотрим эту ситуацию на примере (листинг 5.29). 


ргоседиге ТЕогт1.Ехатр2; 
уах 
х:Тпседег; 
Беч1п | 
_х:=20; 
ех1(; 
х:=10; // Этот код никогда не будет выполнен. 


еп; 


Здесь переменной х присваивается значение 20. Потом программа встречает 
оператор ех1е и производит мгновенный выход из процедуры, поэтому строчка 
с присваиванием переменной х значения 10 никогда не будет выполнена. 

Этот пример не совсем удачный, потому что мы еще не изучали логические опе- 
рации. Внеплановый выход из процедуры — нужная вещь, но чтобы это увидеть, 
нужен хороший пример. Допустим, что процедура должна сохранять какое-то зна- 
чение в файл. Мы пытаемся открыть файл, но узнаем, что пользователь выбрал со- 
хранение данных на компакт-диск, куда нереально записать данные. Результат — 
мы должны прервать выполнение функции, чтобы не стало хуже. Итак, в самом 
начале должна быть примерно следующая проверка: если в файл нельзя записывать 
данные, то следует выйти из функции. 

Давайте теперь рассмотрим функцию, которая будет возвращать результат де- 
ления двух переданных значений. 


_ ЕапсЕ10п Ехапр] (1пех1 , 1п@ех2 : Тпбедег) :Веа1; 
Беч1п 

Ехагр1 : =1пЯех1 /1п4ех2; 

епа; 


ргоседаге Ехапр2; 
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уах 

х: Кеа1; 
Беа1п 

х:=Ехапр1 (20,10); //Вызываем функцию Ехапр1, написанную ранее. 


ера; 


В этом примере функции Ехашр1 передается два значения. Обе переменные, 
1паех1 И 1паех2, в которых хранятся эти значения, — целого типа. В качестве ре- 
зультата функции возвращается частное от деления 1п4ех1 на 1паех2. В процедуре 
Ехапр2 показан пример вызова функции. 

Какому-то параметру может быть задано значение по умолчанию. Такие пара- 
метры должны быть -в конце объявления. Вот как преобразовать в этом случае код, 
представленный. в листинге 5.30. 


ЕапсЕ1оп Ехатр1 (1пех1:Тпбедехг; 1птаех2: Тибедег=2) :Кеа1; 
Бед1п 
Ехагпр]1 : =1пЯех1 /1паех2; 


ета; 


‚ ргоседате Ехапр2; 

уах 
х:Кеа1; 

Беа1п 
х:=Ехапр1 (20); _ //Вызываем процедуру Ехапр1, написанную ранее. 
х:=Ехапр1 (20, 3); //Вызываем процедуру Ехатр1, написанную ранее. 


еп; 


В листинге 5.31 у нас объявлена функция с двумя параметрами. Второму пара- 
метру указывается значение по умолчанию, равное 2. Далее показано два примера 
вызова этой функции. В первом случае указан только один параметр. В качестве 
второго будет значение по умолчанию. Это значит, что число 20 будет разделено на 2. 
Во втором случае указано два параметра, и здесь число 20 будет разделено на то 
число, которое мы указали в качестве значения второго параметра. 

Теперь допустим, что в 1п4ех2 было передано значение 0. В этом случае будет 
произведена попытка деления на 0, что вызовет ошибку. Вполне логичным было 
бы сделать проверку, если в 1п4ех2 содержится 0, то выйти из функции. На прак- 
тике это будет выглядеть следующим образом. 


ЕапсЕ1оп Ехашр1 (1п4ех1 , 1п4ех2 : Тпеедег) :Веа1; 


Беа1п 


Если 1паех2 равен 0, то ех1*; 
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Ехагпр1 : =1пех1 /1паех2; 
епа; 


ргоседиге Ехапр2; 

уах | 
х:Веа1; 

Беа1п 
х:=Ехаптр]1 (20, 0); //Вызываем процедуру Ехапр], написанную ранее. 
х:=х*2; // Здесь произойдет ошибка 


епа; 


В этом примере логика программы записана обычными словами, потому что бо- 
лее подробно мы будем изучать ее в следующей главе. Сейчас нам достаточно 
только понимать смысл записанного кода. | 

В этом примере, показанном в листинге 5.32, проверяется значение переменной 
1 пдех2 на ноль, и в'случае равенства выполняется немедленный выход из функции. 

Если 1пдех2 действительно будет равна нулю, то в этом случае функция вернет 
неопределенное значение, потому что результат вычисляется после оператора вы- 
хода. Если потом попробовать воспользоваться возвращенным неопределенным 
значением, то произойдет ошибка. В примере специально показана строка с попыт- 
кой умножения переменной х на 2. Неопределенное значение нельзя использовать. 
В переменную х мы пока еще не заносили никакого значения, поэтому не исполь- 
зуйте ее. 

Чтобы избавиться от таких проблем, можно при входе в функцию сразу задавать 
значение по умолчанию (листинг 5.33). 


РапсЕ1оп Ехапр1 (1п4ех1 , 1п4ех2 : Тпеедет) :Веа1; 


Бед1п 
Веза16:=1; 


Если 1паех2 равен 0, то ех1е. 


Кеза1 : =1п9ех1 /1паех2; 


ета; 


В этом примере мы в первой же строке присваиваем переменной вези1* значе- 
ние 1. Теперь’у нас результат определен с самого начала. После этого проверяется 
второй параметр на ноль, и если равенство верно, то произойдет выход. Однако 
после такого выхода у нас не будет неопределенных значений, потому что вези1е 
уже содержит значение [. 

Если второй параметр не равен нулю, то выполнится деление первого параметра 
функции на второй и результат запишется в кезу1е. 
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Этот пример наглядно показывает, что вези1е работает как простая переменная, 
хотя она нигде не описана. Она всегда ‚ существует в функциях и имеет тип возвра- 
щаемого функцией значения. 


ПРИМЕЧАНИЕ. Если кто-то подумал, что переменной везо1е надо присваивать зна- 
чение только в самом конце программного кода или по ней происходит выход из 
функции, это не так. везц1еЕ можно изменять где угодно и можно даже использовать 


как простую переменную. Помните эту особенность, когда будете использовать пере- 
менную Кезёо1 6. 


5.5. Рекурсивный вызов процедур 


Вы, наверно, уже слышали: про такое понятие, как рекурсивный вызов. Если не 
слышали, то сейчас нам предстоит с ним познакомиться. Рекурсивный вызов — это 
когда процедура вызывает сама себя. Допустим, что внутри процедуры нужно вы- 
полнять абсолютно один и тот же код, только с другими параметрами. Писать из-за 
этого новую процедуру нет смысла, потому что код повторится. А если таких вызо- 
вов будет десять? Тогда программа может необоснованно вырасти. 

Вспомним нашу классическую задачу — расчет факториала. Мы уже научились 
ее решать с помощью цикла, а теперь будет показано, как рассчитать факториал 
с помощью рекурсивного вызова процедур. Хотя этот пример неэффективен и лег- 
че (да и быстрее) сделать то же самое с помощью простого цикла, все же рассмот- 
рим его чисто в познавательных целях. В реальной жизни никогда не решайте та- 
кие задачи с помощью рекурсии. 

Для расчета нам понадобится функция, назовем ее мо1мольег. Ей будет переда- 
ваться одно число, а возвращаться будет результат умножения переданного числа 
на число, меньшее на единицу (листинг 5.34). 


РарпсЕ1оп ТЁРои1. Молишьех (пех: ‘Такедег) : Табедег; 


Бед1п 
Веза1+ : =Тпаех* Тпаех-1; 


ета; 


Если мы будем пользоваться такой функцией, то потребуется вызывать ее для 
каждого числа факториала. Это никому не нужно, поэтому давайте добавим сюда 
рекурсию, как показано в листинге 5.35. 


РопсЕ1оп ТЕоги1.Ма1Маопоег (1паех: ТпЕедег): Тпбедег; 
реа1п 

Безо : =Ттпаех*Ма1 №апрег (1паех-1); 

епа; 
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Теперь переменная 1паех умножается на результат вызова функции Ми1Мотьех 
с параметром на единицу меньшим, ‘чем тпаех. Получается, что прежде чем пере- 
МНОЖИТЬ Тпдех И Ми1М№пьех, сначала выполнится процедура Ми1М№опьех и потом уже 
произойдет умножение. Но при расчете мо1мипьех с новым значением опять будет 
вызвана эта же функция, но с еще более маленьким значением. В принципе, нас это 
устраивает, потому что нужно произвести перемножение всех чисел от начального 
значения тпдех и до 1. Но как программа узнает о том, что нам нужно остановиться 
на этой единице? Да никак. Она будет продолжать уменьшать 1пдех и снова вызы- 
вать саму себя с новым параметром. Так переменная тпаех уменьшится до отрица- 
тельного значения и будет быстро уходить в бесконечность. Такая ситуация плачевна 
и приводит к ошибке программы, потому что рекурсию невозможно прервать. 

Мы сами должны написать код, который будет прерывать рекурсию, представ- 
ленный в листинге 5.30. 


Рапсе1о0йп ТЕогт1 .Ма1Моньег (1паех: Тпседех): Табеаег; 
Бед1п | 
1Е Тодех=1 ЕВеп 
Бед1п 
Везо16:=1; 
ех1(; 
епа; 
Везо1 : =Тпаех*Ма1Мапрег (1п9ех-1); 


епа; 


Здесь сначала происходит проверка равенства тпаех и 1. Дальше уже рассчиты- 
вать не надо и нужно выходить из процедуры. В качестве результата возвращается 1, 
потому что его перемножение на другое число при расчете факториала не повлияет 
на общий результат. Что бы мы ни умножали на единицу, результат не изменится. 
Таким образом, мы сделали прерывание на 1, и после этого рекурсия заканчивается. 
При тпдех, равной единице, не произойдет очередного вызова процедуры ми1мопьег. 

° Теперь, чтобы рассчитать пример, мы должны всего лишь из любой точки вы- 
звать эту процедуру и указать в качестве параметра число, факториал которого нам 
надо рассчитать. 

Рассмотрим более полезный алгоритм с использованием рекурсии — поиск 
файла на диске. Это будет именно алгоритм, потому что показывать сейчас код будет 
слишком сложным занятием. В дальнейшем этот алгоритм мы реализуем в реальной 
программе, а пока ограничимся его абстрактным. определением (листинг 5.37). 


РипсЕ1оп Е1пЯЕ11е(Имя файла, папка); 
реали | , " 
Получить список содержимого папки; 


Проверить содержимое папки; 
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Если среди файлов нет искомого, 
То вызвать функцию Е1паЕР11е для вложенных папок, 
Чтобы повторить поиск там. 


ета; 


Это чисто абстрактный алгоритм и в реальности код будет работать немного по- 
другому. Но главная его цель — показать принцип рекурсии и более полезный 
пример ее использования. 


СОВЕТ. Работать с рекурсивным вызовом нужно осторожно, потому что он может вы- 
звать зависание программы. Хотя в большинстве случаев программа вылетит с ошиб- 
кой переполнения стека и ОС не пострадает, плюсов вашей программе это не даст. 
Когда пишете рекурсию, убедитесь, что обязательно существует ситуация, при кото- 
рой рекурсия будет прервана. 


5.6. Встроенные процедуры 


Есть еще один очень интересный способ использования процедур. Допустим, 
что у вас есть какой-то часто повторяющийся код, который может вызываться 
только из одной процедуры. Если вы опишете этот код в виде отдельной, незави- 
симой процедуры, то его можно будет вызывать где угодно. Но зачем это нужно? 
Если вы уверены, что код будет вызываться только из одной процедуры, то имеет 
смысл написать его внутри именно этой процедуры. 

В этом есть определенный смысл. В одном модуле не может быть двух про- 
цедур с одним и тем же именем. Поэтому, когда вы создаете процедуру внутри 
другой, вы не блокируете имя и можете создать такую же процедуру с таким же 
именем, но внутри другой. Посмотрим на код, приведенный в листинге 5.38. 


Ргоседаге Ехапр1 (бепаехг: ТОБ)ес®); 


РипсЕ1оп бита (1,3 :Тпбедег).: Тпбедег; 
`Ъеа1т 
Везо1е:=1+); 


ева; 


\уах 

1:Тпбедег; 
Ъеа1п 

1: =бита (10,20); 


епа; 


Здесь объявлена функция Зита внутри процедуры Ехашр1, 0б этом говорит то, 
что функция описана после объявления процедуры ;хамр1 и до начала ее раздела 
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уаг. Такую функцию можно без проблем вызывать, но только из кода процедуры 
Ехапр1. Если попытаться ее вызвать из другого места, то произойдет ошибка. 


ргоседиге Ехапр1 (бепаег: ТОБзесе); 
Рипсе1оп бита (1,3 :Тобедег) : Тпбедег; 
Бед1п 
Везё\а16:=1+7; 
епа; 
уах 
1;:Тпбедег; 
Беа1п 
1:=бита (10,20); 
епа; 


рхоседиге Ехагр2 (бепдет: ТОБЗес®); 
_уах 

1: Тпбседег; 
Беч1п 

1:=бама (10,20); //Здесь будет ошибка. 
епа; 


В последнем примере, приведенном в листинге 5.39, добавлена новая процедура 
Ехатр2 и сделана попытка вызвать из нее функцию $5ипа. Но это не возможно, по- 
тому что здесь эта функция недоступна. Ее можно вызывать только из Ехаптр1, где 
она и описана. | | 


5.7. Возврат значений через параметры 


Когда говорилось, что функции отличаются от процедур возможностью возвра- 
та параметров, имелось в виду, что сама процедура не может возвращать значения. 
Но и те и другие могут изменять значения передаваемых параметров, а значит, воз- 
вращать результаты через параметры. Для этого в процедуре или в функции пара- 
метр должен быть объявлен как уах (листинг 5.40). 


5% в 


ргоседиге Ехапр11 (уаг 5%х:56:1п9); 
Ъед1п 
ЗЕг:='Тест'; 


епа; 


ргосеааге Ехатр12 (уаг 5Ег:5ег1па); 
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уах 
5:96у1па; 
фед1п 
Ехапр11 ($5); 
//Здесь $ содержит значение 'Привет' 


еп; 


Здесь параметр функции Ехатр11 объявлен как уах, и мы присваиваем ему стро- 
ку. В процедуре ехапр12 вызывается первая процедура, передавая в качестве пара- 
метра в строковую переменную $. Если бы в процедуре екхапр11 параметр не был 
бы объявлен как ухаг, то после выхода из Ехашр11 переменная $ не получила бы 
присвоенное ей значение, а так значение переменной изменилось. 


СОВЕТ. Можно объявить хоть все параметры изменяемыми (поставить перед ними 
ключевое слово ах), и наша процедура или функция сможет изменять их, т. е. воз- 
вращать через них свои значения. Иногда это очень полезно, но если нужно вернуть 
только одно значение, то желательно пользоваться функциями и прибегать к такому 
трюку только в крайних случаях, например, когда нужно вернуть два или более пара- 
метров. 


5.8. Перегрузка 


Внутри модуля или объекта имена процедур и функций должны быть уникаль- 
ными. Если вы попытаетесь создать две процедуры или процедуру и функцию 
с одним и тем же именем, то компилятор выдаст ошибку. Но что делать, если вам 
нужно выполнить схожие действия с разным количеством параметров или с раз- 
ными типами данных? Неужели придется каждый раз выдумывать новое имя? Ко- 
нечно же, нет. Начиная с Оеры 4, появилась новая возможность — перегрузка 
процедур, функций и методов объектов. 

Благодаря перегрузке можно создавать любое количество процедур с одним 
и тем же именем, главное, чтобы количество или тип передаваемых параметров 
отличались. Именно по параметрам программа и определит, какая именно про- 
цедура вызывается. | 

Чтобы определить перегружаемую процедуру, после ее имени нужно написать, 
как показано в листинге 5.4], слово оуег1оаа: 


учи а и ен 
Е ВУ НЕ 
емой лр 


; 
ела д 
Е 1 нае 
НА и И я $ 


рхоседихе бит (1,):Тпбедехг); оуег1оаа; 
Беа1п 
епа; 


В листинге 5.42 показан пример трех функций 5им с разным количеством и ти-_ 
пом параметров. При вызове процедур программа правильно определяет, какую из 
них вызвать. о 
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Еопсе1оп Зим(1,7:Тпбедег) : Тпбедех; оуег1оа@; 
Беа1п 
Кезо1:=1+); 


епа; 


Ропсе1оп 5$и(1,),2:Тпбедег) : Тпеедег; оуег1оа@; 
Бед1п 

Ве5о1*:=1+)+2; 

епа; 


ЕаопсЕ1оп бим(1,]:56г1па):б6Ег1па;оуег1оа@; 
Беа1п | 
Вези1е:=1+3; 


ева; 


ргоседиге (е5(Е; 
\уах 


1:Тибседег; 


ред1п 
1:=8\0(10, 5)+5и1(1,2,2); 
била ('Привет', 'Как жизнь'); 
епа; 


СОВЕТ. Если есть возможность, то желательно в первое время не использовать пе- 
регрузку. Если вы ошибетесь при вызове и забудете указать какой-то параметр, то вы- 
зовется не та функция, которую вы ожидаете. Такую ошибку потом определить очень 
сложно. Компилятор при сборке программы проверяет только синтаксис и может 
предсказать некоторые ошибки, но не может найти ошибки в логике программы. Вам 
нужно набраться немного опыта в программировании, и тогда вы сможете вылавли- 
вать опечатки, приводящие к неверной работе программы. 


5.9. Методы объектов 


Методы — это процедуры и функции, которые принадлежат объекту. Мы уже 
с ними немного познакомились. Теперь предстоит узнать о них немного больше. 

Как вы уже знаете, методы описываются внутри объявления объекта и бывают 
нескольких типов. | 


О 5еаетс (статические) — это простые процедуры и функции. Если при описании 
метода вы ничего не указали, то используется именно этот тип. Для компилято- 
ра это самый простой тип метода, потому что в потомках такой метод не может 
быть изменен, и поэтому заранее можно узнать адрес этого метода в памяти. 


О у:хела1 (виртуальные) — такие методы могут быть переопределены в потомках 
объекта. Например, если у вас есть объект гараж и метод ворота, То в его потом- 
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ке этот метод может быть заменен улучшенной версией. Для определения адре- 
са Рерш строит таблицу виртуальных методов, которая позволяет во время вы- 
полнения программы определить адрес метода. В такой таблице хранятся все 
методы текущего объекта и его предка. 


О рупат1с (динамические) — эти методы схожи с виртуальными, но для опреде- 
ления адреса используется другой способ. Для каждого объекта строится табли- 
ца только из его методов. Каждому методу назначается уникальный индекс. 
В данном случае экономится память, потому что не надо хранить адреса мето- 
дов предков, но для поиска любого из них тратится намного больше времени. 


О меззаае (сообщения) — такие методы реагируют на события операционной 
системы. Для большинства сообщений ОС У/тдо\з в Реры уже есть специаль- 

- ные обработчики событий, но если вам нужно, чтобы метод реагировал на опре- 
деленное событие, которого нет у компонента, необходимо определить его 
вручную (подробную информацию см. в гл. 23). 

О льзегасе (абстрактный) — такой метод будет только объявлен в объекте, а реа- 
лизации у него не будет. Если в объекте есть хотя бы один такой метод, то он 
считается абстрактным. Такой объект нельзя использовать. Реализацию метода 
должны сделать потомки, и именно с потомками можно работать. Таким обра- 
зом, вы можете в каком-либо объекте зарезервировать имя метода для потомков, 
чтобы они реализовали в нем какое-то действие. 


Если вы объявили метод как у1хЕла1 ИЛИ упатс, то можно переопределить его 
действия В наследнике/потомке. 


5.10. Наследование объектов 


Мы уже знаем, что такое наследование. Теперь предстоит познакомиться с этой 
возможностью на практике. Допустим, что у нас есть объект, описывающий точ- 
ку, — ТМуРо1пЕ. Он может выглядеть следующим образом: 
ТиуРо1пЕ = с1аз$$ 
ргосесееа 
Ро1пЕХ, Ро1пЕУ:Тифедег; 

рчЬ11с 
сопзегисвог Сгеабе(Х,У : Тибесег); \1у6ца1; 
ргосеацге Пхгам; \1хбца1; 


еп; 


В данном случае у нас объект, который не имеет предков. В таких случаях бе- 
рется базовый объект тоь3ес-. Он дает нам базовые функции, необходимые любо- 
му объекту. В разделе ргосескеа объявлены две переменные ро1пЕХ и РО1пЕУ, КО- 
торые будут являться координатами точки. Это значит, что доступ к ним сможет 
получить только этот объект или его потомок. | | 

В разделе риь11с объявлены две процедуры, которые будут доступны всем. 
Первая — это конструктор (сопзекискохг) с именем сгеаее. Конструктор — это та- 
кая же процедура, только вместо ключевого’ слова ргоседиге нужно написать 
сопзЕкисвог И дать имя Сгеаке. Этой процедурой мы будем создавать данный.объ- 
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ект во время выполнения программы. Внутри нее можно выполнить какие-то на- 
чальные действия (выделить необходимую память, установить значение перемен- 
‘ных по умолчанию ит. д.). 

В данном случае конструктору передаются координаты точки, и в нем мы мо- 
жем сохранить эти значения, используя переменные Ро1псх И Ро1пкУу. Вот как это 
° будет выглядеть: 
| сопзегасеог ТМуРо1пе.Сгеаее(Х, У: Тпеедег); 
| Беа1п 

Ро1пЕХ:=Х; 
Ро1пЕУ:=У; 


епа; _ 


Процедуру рогам мы не будем описывать, просто представим, что она выводит на` 
экран точку. 
Конструктор и процедура у нашего объекта объявлены виртуальными. Об этом 
говорит соответствующее ключевое слово (у1хеиа1) в конце объявления. Это сде- 
лано для того, чтобы потомки могли создавать свою реализацию конструктора 
и метода рисования. 
Теперь допустим, что требуется создать объект линии. Для этого нам нужно 
описать свойства четырех координат, конструктор и метод рисования. Можно все 
это создать с нуля, а можно вывести из объекта ТОЧКИ, который уже имеет полови- 
ну необходимого. Объявление объекта линии может выглядеть примерно так: 
ту ле = сС1аз$ (ТМуРо1пе) 
ргосесееа 
Ро1пЕХ1, Ро1пЕУ1: Тпбедег; 

руБ11с 
сопзЕгасеог Сгеаке(х,У,хХ1,У1 : ТпЕедег); гелпегоаисе; 
ргосеаиге Пгам; оуехгхт1ае; 


еп; 


Этот объект у нас является наследником от тмуРо1пе, а значит, наследует все 
его свойства и методы. О том, что у нас объект-наследник, говорится в объявлении 
имени базового объекта (в скобках после ключевого слова с1азз). 

В этом объекте объявлены две переменные РозпЕхХ1 И Ро1пЕу1, которые описы- 
вают координаты второй точки. Координаты первой точки наследуются из базового 
объекта, поэтому нам не надо их описывать. 

Метод сгеаке уже содержит четыре параметра, которые будут описывать коор- 
динаты двух точек. После объявления этого метода стоит ключевое слово 
ге1пехго4исе. Зачем оно нужно? У базового объекта тоже есть конструктор, но у 
него два параметра, а у нашего конструктора четыре. Когда мы переопределяем 
метод, и в новой версии количество параметров изменилось, то мы должны поста- 
вить такое ключевое слово, чтобы показать компилятору, что мы изменили пара- 
метры корректно. 

Реализация конструктора может выглядеть следующим  бразом: 

СопзЕгисеог ТМуЁлпе.Сгеаке (Х,У,Х1 ,У1:Тпеедег); 

Бели 
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1прег1$еЯ Сгеаее(Хх,У); 
Ро1пЕХ1:=Х1; 
РозпЕУ1 : =У1; 


епа; 


В самом начале стоит ключевое слово 1пъег1ееа. Этим мы говорим, что нужно 
вызвать конструктор предка (объекта тмуро1пте). После этого ключевого слова мы 
пишем имя конструктора предка и указываем, какие параметры нужно ему пере- 
дать. В данном случае передаются координаты первой точки. Предок сохранит эти 
координаты в переменных ро1пЕХ И Ро1пеу. Когда количество параметров у предка 
и наследника одинаковы, то можно просто указать ключевое слово 1пнег1ееа;. 

После этого мы сохраняем координаты второй точки в переменных Ро1пех1 
И Ро1п6У1. | | 

`После объявления метода Охам у нас стоит ключевое слово оуегх1ае. Оно гово- 
рит о том, что мы перекрываем такой же виртуальный метод в объекте предка. 

‚Чуть позже мы на практике научимся создавать объекты и работать с ними, 
а пока достаточно теории. 

Внутри каждого объекта существует переменная 5е1 Е, которая указывает на не- 
го самого. Если вам нужно обратиться к переменной или методу объекта, явно ука- 
зав принадлежность, то можно написать 5е1{.Имя. В принципе, эту переменную мы 
будем использовать, когда нужно вызвать какую-то процедуру и передать ей объ- 
ект, из которого мы делали вызов. 

Са11Ропс (бе1ЕЁ); 


В приведенном выше примере мы вызвали процедуру са11Еипс, а в качестве па- 
раметра передали текущий объект. | 


Глава 6 


Работа с компонентами 


Мы уже создали первую и самую простую программу, а также разобрались, из 
чего она состоит. Помимо этого, мы рассмотрели достаточно теории и готовы ис- 
пользовать эти знания на практике. 

Первое, с чем мы начнем знакомиться, — это компоненты языка, и писать при- 
меры с их использованием. Вот это как раз то, с чего начинаются некоторые само- 
учители или книги по Деры. 

Изучение компонентов будет постепенным. Сначала мы попробуем эти компо- 
ненты в действии и познакомимся с их основными возможностями. Это необходи- 
мо, чтобы дальнейшая теория подкреплялась практическими примерами, а книга 
читалась легче и проще. Начиная с этого момента теория будет более запоминаю- 
щаяся, и все будет лучше усваиваться. Когда будет набран достаточный запас зна- 
ний, тогда мы заглянем внутрь компонентов и увидим, что находится у них внутри. 


6.1. Основная форма и ее свойства 


Классы в Ое]рШ продуманы очень хорошо. Если посмотреть на структуру всех 
доступных нам компонентов, то получится громадное дерево. В этой главе мы бу- 
дем знакомиться с классом формы и ее свойствами. Но прежде чем перейти к это- 
му, мы рассмотрим иерархию классов, от которых происходит форма: 

О зузЕем. ТОБзесе — базовый объект для всего; 

С слаззез.ТРехгз1зкепЕ — класс реализует возможность назначения себя другому 
классу; | | 

С с1аззез.ТСотшропепе — класс реализует функционал для не визуального компо- 
нента; | 

О сопего1$.ТбопЕко1 — все визуальные компоненты, которые имеют форму; 


О сорего15$.ТИ1пСорЕхо1 — все компоненты \У/т4о\з$, которые имеют идентифи- 
катор, происходят от этого класса; 


С] Еогшз.Т$сго111п9М1пСопехго1 — базовый класс для компонентов с возможно- 
стью прокрутки; | 


О гогтз.ТСазкощЕоги — ЭТО базовый класс для форм и диалогов. 


Перед точкой можно увидеть имя модуля, в котором объявлен класс, а после 
точки имя класса. Классы перечислены в том порядке, в котором они наследуются, 
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т.е. самый первый идет тоь3есе, его свойства и методы наследует трегз1зЕепе.. 
Далее идет тбопропепе, который наследует свойства и методы тРегз1зеепе 
И ТОБЗесе. Таким образом, функционал класса постепенно наращивается, а каждый 
последующий класс добавляет к функционалу что-то новое и необходимое для 
компонентов определенного вида. 

В приложении 1 приведено описание основных компонентов, являющихся базо- 
_выми для большинства УСГ-компонентов. Там же вы найдете основные свойства 
и методы. | 

Обратите внимание, что все визуальные компоненты происходят от тСопегол1, 
а значит, все они будут обладать его свойствами. Возможно, что-то еще не очень 
понятно, но со временем все встанет на свои места. Знакомясь с компонентом, 
я буду показывать вам иерархию объектов, от которых он происходит. 

Теперь рассмотрим класс тРогт, на основе которого вы будете создавать формы 
для своего будущего приложения. Вы просто создаете новый класс от тгога, По- 
мещаете на него свои компоненты, добавляете функционал — и новая форма готова. 

В Беры расстановка элементов управления происходит визуально, и все дела- 
ется одним нажатием клавиши мыши. Даже самый сложный пользовательский ин- 
терфейс можно сделать в считанные минуты. | 

Как вы уже знаете, если выделить какой-то компонент, то в объектном инспек- 
торе появятся его свойства и события. Сейчас мы рассмотрим основные свойства 
и события формы. Большинство из них присутствуют и у компонентов. Поэтому 
в будущем уже не будем повторяться. Итак, начнем рассмотрение. 

О Асе1уеСсопеко1 — указывает на компонент, который должен быть активным по 
умолчанию. 


О А119п — выравнивание компонента. Любой компонент может быть выровнен по 
одной из сторон родительского компонента (на поверхности которого он распо- 
ложен). Этому свойству можно присвоить следующие значения: 


® А1Мопе — нет выравнивания, как нарисовал, так и будет; 
® А1ВоЕком — выравнивание по нижнему краю; 

® А1ЪеЕС — выравнивание по левому краю; 

® А1В19НЕ — выравнивание по правому краю; 

® А1Тор — выравнивание по верхнему краю. 


Компоненты выравниваются относительно формы, а форма выравнивается 
относительно экрана. 


О А1рьав1епа (тип свойства — логический) — свойство формы, которое означает, 
имеет ли форма прозрачность. Если это свойство равно гие, то окно будет про- 
зрачным. На рис. 6.1 показан пример полупрозрачного окна. Степень прозрач- 
ности задается через свойство А1рраВ1епаУа1ще. 


ВНИМАНИЕ. Прозрачность работает не на всех системах. Пример отлично выполнит- 
ся в \/1т2000, ХР и старше, но выдаст ошибку в \ММт9х, МЕ, МТ. 


О А1рьав1еп@Уа1ие (тип свойства — целое число) — степень прозрачности фор- 
мы. Здесь можно задавать числовое значение степени прозрачности от 0 до 255. 


Работа с компонентами | 101 


Если поставить 0, то форма будет абсолютно прозрачной. 255 означает полную 
непрозрачность. Чтобы сделать форму полупрозрачной, нужно выставить какое- 
нибудь промежуточное значение (например, 127). 


ПРИМЕЧАНИЕ. На компакт-диске, прилагаемом к книге, в папке \Примеры\Глава 6\ 
Прозрачное окно вы можете увидеть пример программы. 


Роти1: ТРоги1; > 


019 етелфа тол 
5 *, Чы 


24, 


Рис. 6.1. Полупрозрачное окно 


О Аасвогз — это свойство есть и у формы, и у компонентов. Оно показывает, как 
происходит закрепление к родительскому объекту. Это свойство раскрываю- 
щееся. Если щелкнуть по квадрату слева от имени свойства, то раскроется спи- 
сок из четырех дополнительных свойств: 
® акгеЕЕ — прикреплять левый край (по умолчанию гие); 
® аКкТор — прикреплять верхний край (по умолчанию кгие); 
® аквзане — прикреплять правый край (по умолчанию {1азе); 
® аКквоЕсом — прикреплять нижний край (по умолчанию. Еа1зе). 

По умолчанию прикрепление происходит по левому и верхнему краю. Это 

значит, что при изменении размера окна расстояние от компонента до левого 

- верхнего угла не изменяется. Если прикрепить компонент к правой кромке окна, 
то при изменении размера не изменится расстояние до правой кромки. 

О] Аиео$ско11 (Тип свойства — логический) — указывает на то, будет ли форма 
автоматически производить скроллинг или нет. 

С] Ачео5$1ге (тип свойства — логический) — если параметр равен схие, то форма/ 
компонент будет автоматически подгонять свой размер в соответствии с содер- 
ЖИМыЫмМ. 

О вогаегтсопз — свойство, определяющее, какие кнопки должны присутствовать 
у окна (рис. 6.2). Это свойство раскрывающееся. Если щелкнуть по квадрату 
слева от имени свойства, то раскроется список из четырех свойств: 
® р1бузеетМепо — показать меню (иконка слева в строке заголовка окна) 

и другие кнопки заголовка окна; 
® 51М1п11012е — кнопка минимизации окна; 
® Ь1Мах1112е — кнопка максимизации окна; 
® Б:Не1р — кнопка помощи. 


102 


Глава 6 


ЫМахитхе 


ЫЗу<етМепи ыЫМитие 


Рис. 6.2. Элементы заголовка окна 


Рис. 6.3. Окно с оборкой 5$ 5хеаЫе Рис. 6.4. Окно с оборкой 6$ 1ао49 


О вогдег5еу1е — свойство формы. Отвечает за вид оборки окна. Это свойство 
может принимать следующие значения: 


Ь$512геаЪ1е — установлено по умолчанию. Стандартное окно с нормальной 
оборкой, которое может изменять свои размеры (рис. 6.3); 

Ь$Р21а1од — окно выглядит в виде диалога (рис. 6.4); | 

ЬзМопе — окно вообще без оборки. У такого окна нет оборки и меню, просто 
(квадрат с цветом фона) рабочая область; | | 

551191е — на первый взгляд это простое окно, но у него нельзя изменить 
размеры. Оно имеет фиксированный размер, и изменять его мышкой нельзя; 
Ь5512еТоо1\1п — окно с тонкой оборкой. Особенно это заметно в заголовке 
окна (рис. 6.5); 

ЬзТоо1 М1 пдом — оно ничем не отличается от предыдущего (рис. 6.6). Единст- 
венная разница — у этого окна нельзя изменять размеры окна. 


ПРИМЕЧАНИЕ. Все примеры окон можно найти на компакт-диске, прилагаемом к кни- 
ге, в папке \Примеры\Глава 6\Окна. Попробуйте создать приложение и самостоятель- 
но поэкспериментировать с описанными свойствами. 


Вогхдеги1Акв — ширина оборки окна. Пока что все окна, которые здесь рассмат- 


ривались, имели ширину оборки, равную нулю. На рис. 6.6 показано окно 
с оборкой, равной 10. В центре окна растянуто на всю площадь поле для ввода 
текста, и несмотря на это, в окне по краям видны широкие оборки. Для больше- 
го эффекта на форму помещена еще и кнопка, которая исчезает при пересечении 
с оборкой. 
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Рис. 6.5. Окно с оборкой з$еТооМ/п Рис. 6.6. Окно с широкой оборкой | 


О сарё1оп — это строковое свойство, которое отвечает за заголовок окна. Мы уже 
использовали его, когда писали программу "НеПо \/’оп9". 


О с11епеНезаве — это свойство в виде целого числа. Показывает высоту клиент- 
ской области окна. Высота берется без учета ширины оборки и системного ме- 
ню, только рабочая область. | 


О с11епемзаен — это свойство в виде целого числа показывает ширину клиент- 
ской области окна. Ширина берется без учета ширины оборки и системного ме- 
ню, только рабочая область. 


С со1ох — цвет клиентской области окна. 


ПРИМЕЧАНИЕ. На компакт-диске, прилагаемом к книге, в папке \Примеры\Глава 6\ 
Цвет окна вы можете увидеть пример программы с желтым цветом окна. 


В списке выбора есть все системные цвета, которые вы можете выбрать. 
Но если вы хотите использовать какой-то специфичный цвет, можете дважды 
щелкнуть по этому параметру, и перед вами откроется стандартное окно выбора 
цвета. В этом окне можно выбрать любой цвет. Но лучше использовать систем- 
ные цвета. 


О сопзегазпез — в этом свойстве содержатся максимальные и минимальные зна- 
чения размеров окна. Таким образом, можно ограничить размеры окна, в кото- 
рых оно будет изменяться. Это свойство раскрывающееся и содержит следую- 
щие параметры: | | 


® МахНезаве — максимальная высота окна; 
® Махи1аЕен — максимальная ширина окна, 
® М1оНезаве — минимальная высота окна; 
е мМ`оупаев — минимальная ширина окна. 


Если вы установите эти значения, то окно нельзя будет растянуть больше 
максимального размера и уменьшить меньше минимального. 


ПРИМЕЧАНИЕ. На компакт-диске, прилагаемом к книге, в папке \Примерыь\Глава 6\Размер 
окна вы можете увидеть пример программы, в которой главное окно нельзя увеличить 
более чем 400х400 и меньше 200х200. 
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О се1зр — (тип свойства — логический). — указывает показывать окно/компонент 
в псевдо-3)-плоскости или нет. Этот параметр остался еще от УИтдо\ 3.1, ко- 
гда он действительно имел смысл. Сейчас даже если вы отключите ЗО, окно 
сильно не изменится. Поэтому про это свойство можно забыть. 

О сигзог — это свойство отвечает за курсор, который будет отображаться при на- 
ведении указателя мыши на форму/компонент. Здесь могут быть, как показано 


в табл. 6.1, доступны несколько форм курсоров. 
Таблица 6.1. Виды курсоров 


скс | о 
сгб1хемЕ$м Су$12ем№м$ 


в 
=- 


ка 


СгНе1р | ® сгНапаРо1пЕ | $ 


1 


сухМа1610газ 


©" 


2 


: 


С роскз1Ее — (тип свойства — логический) — указывает, можно ли на форму/ 
компонент бросать другие компоненты с помощью Огаз & Огор. Это свойство 
создает эффект, который вы могли наблюдать в М ОЁ#се, когда панели инст- 
рументов можно отрывать от формы. и прикреплять обратно. Это свойство как 
раз и разрешает прикреплять компоненты. 


ПРИМЕЧАНИЕ. На компакт-диске, прилагаемом к книге, в папке \Примерь\Глава 6\Ооск 
вы можете увидеть пример программы, в которой можно отрывать панель от формы 
и прикреплять обратно. 


О охгадк1па — вид перетаскивания объекта при Ога? & Огор. Здесь вам доступны 
два варианта: 

® ЧКОгач — стандартный Огаз & Огор, при котором объект остается на месте. 

Этот тип удобен при копировании объектов. Вы как бы перетаскиваете ком- 
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понент на то место, где. должна быть создана копия, но при этом исходный 
объект остается на месте, 


» аКкроск — перетаскивает сам объект. Этот параметр следует выбрать, если 
нужно, чтобы компонент мог прикрепляться к другим компонентам или фор- 
ме. В примере к предыдущему свойству панель имеет именно такое свойство, 
чтобы могла прикрепиться к форме. 


О рохгадмоае — режим Ога? & Огор. Здесь доступны также два варианта: 


»® ОпМапиаа1 — ручной режим. При таком режиме вы сами должны запускать 
перетаскивание объекта; 


»® ОтАисопак1с — режим Огав & Огор. Он будет включаться автоматически, 
если пользователь Начал перетаскивать компонент мышью. При этом не 
нужно писать дополнительный код, как при ручном режиме. 


О кпаЪ1еа — (тип свойства — логический) — определяет доступность компонен- 
та. Если это свойство равно егие, то пользователь может работать с этим ком- 
понентом. Иначе компонент недоступен, окрашен серым цветом, и вы, как поль- 
зователь, не сможете его использовать (например, рис. 6.7). Если это кнопка, то 
вы не сможете на нее нажать. | 


ПРИМЕЧАНИЕ. На компакт-диске, прилагаемом к книге, в папке \Примеры\Глава 6\ 
ЕпаЫе вы можете увидеть пример программы, в которой есть две кнопки на форме. 
Одна из них доступна, а другая нет. 


С горе — шрифт, используемый при выводе текста на форме. Если вы дважды 
щелкнете по этой строке, то перед вами появится стандартное окно У ш4до\$ 
выбора шрифта. 


2.1 паев о 


Рис. 6.7. Доступность компонента 


С гогизеу1е — стиль формы. Здесь доступны для выбора следующие ва- 
рианты: 


® Е5Могиа1 — нормальное окно; 


® ЕЗМОТЕОГИ — ОКНО Является родительским для МО]-окон. Если вы помните 
старый ОЁйсе, то должны знать, что там внутри основного окна можно было 
перемещать другие окна. Эти окна относятся к классу МОГ — мультидоку- 
ментные окна. Хотя Мисгозой не рекомендует использовать МП]-окна, и вро- 
де как сама отказалась от их использования, но в \Мт4до\$ 2000, ХР и даже 
в У/т4до\$ 7 консоль ММС выполнена именно так (рис. 6.8). В некоторых 
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случаях многодокументная архитектура остается неизменной и будет жить 
еще долго: 

Е5МОТСЬ:1а — окно является дочерним МО]-окном. Езмотгоги создает глав- 
ное окно, а Езмотсн:1а создает дочернее, т. е. то окно, которое будет внутри 
главного; | 


ВНИМАНИЕ. Если вы попытаетесь создать главное окно с таким параметром, то про- 
грамма не запустится, и вы увидите ошибку. 


‚ Ез5кауОпТор — окно с этим параметром всегда будет находиться поверх ос- 


тальных. 


Незопе (тип свойства — целое число) — высота окна. 
Н1пеЕ (тип свойства — строка) — текст подсказки, который будет появляться 


в строке состояния при наведении указателя мыши на форму/компонент. 


Ног25сго11Вак — параметры горизонтальной полосы прокрутки. Этот параметр 


пока не будет рассматриваться, потому что если его раскрыть, то там будет 
столько настроек, что это тема для отдельного разговора. 


й $3 Корень консоли 


Нет элементов для отображения в этом виде. 


Рис. 6.8. МО\-интерфейс консоли \\Лп9о\м$ 


С тсоп — иконка, отображающаяся в заголовке окна. Если дважды щелкнуть по 
этому свойству, то появится окно загрузки иконки (рис. 6.9). В. этом окне есть 
ряд кнопок: | 


Гоаа — загрузить иконку из файла; 
За\уе — сохранить иконку в файл; 
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» — Сору — копировать иконку в буфер обмена; 
о  рРазке — вставить иконку из буфера обмена; 
е — С1еаг — очистить текущую иконку. 
С] теЕеё (тип свойства — целое число) — левая позиция окна. 


С] мепо — меню, которое используется в главном окне. Этот параметр стоит рас- 
смотреть отдельно. 


С маме — имя формы/компонента. Запомните, что имя, которое вы здесь укажете, 
будет использоваться в качестве названия объекта. Если это форма, то в коде 
будет создан шаблон объекта с таким же именем, но с добавлением в начале 
имени буквы "Т". Мы с вами уже рассмотрели исходный код, который сгенери- 
ровал РерШ для пустого проекта. Там объект назывался ТЕоги1. Обратите вни- 
мание, что здесь, а именно в шаблоне, написано просто ггот1. Если вы попро- 
буете изменить свойство Мапе, ТО и имя объекта в исходном коде изменится. 


СОВЕТ. Старайтесь давать формам/компонентам понятные имена. Так легче будет 
понять, для чего они предназначены. Я думаю, что удобней будет работать с компо- 
нентом, если у него имя будет Ех1ЕВиесоп или МемЕ11еВиекоп, а не просто 
ВаЕбоп1 И Вибсоп2. 


Рог 1 1соп 


Г’ Бесазе о 16 сое иеорае ^^. 


Рис. 6.9. Окно загрузки иконки 


О РагепЕРопе (тип свойства — логический). Если это свойство равно Егие, ТО ДЛЯ 
вывода текста оно будет использовать тот же шрифт, что и у родительского объ- 
екта. Иначе используется тот, что укажете вы в свойстве гопЕ компонента/окна. 


С 2оз1Е1оп — позиция окна при старте приложения. Здесь доступны следующие 
варианты (в старых версиях Ое]ры могут присутствовать не все значения): 
® РоПреЁац1Е — \Ш40\5 сама будет решать, где расположить окно и какие 
будут его размеры; 
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»е рореЁачц1ЕРозОп1у — \/Ш40\$ сама будет решать только, где расположить 
окно, а размеры его будут такими, какие установите вы в свойствах; 


® РореЁау1е512е0т1у — \/ш4до\5 будет решать только, какими будут размеры 
окна, а позиция будет такая, какую вы укажете в свойствах; 


»е Рорез19теа — и размер, и позиция будут такими, какими вы укажете 
в свойствах: | 


»® рРорезкЕорСепеег — окно будет располагаться по центру рабочего стола; . 
® РоМа1пРОгИСепеег — окно будет располагаться по центру основной формы; 


® РОоОмпегРохиСепеЕег — окно будет располагаться по центру окна владельца. 
То есть того окна, которое вызвало это; 


® РобсгеепСепеег — окно будет располагаться по центру экрана. 


С 5помн1ае (тип свойства — логический) — оно показывает, нужно ли показывать 
подсказки. | 


С] таз — это свойство имеет тип — целое число. Оно ни на что не влияет, и вы 
можете его использовать в своих целях. 


О тор (тип свойства — целое число). Верхняя позиция окна. 


С тгапзрагепЕСо1ог (тип свойства — логический) — определяет, являются ли 
форма или компонент прозрачными. В отличие от А1рьаВ1епа, эта прозрачность 
работает всегда. 


С тхапзракепЕСо1охУа1ие — значение прозрачного цвета. 


О уеге$ско11Ваг — вертикальная полоса прокрутки. Она имеет те же параметры, 
что и горизонтальная. Мы рассмотрим ее отдельно. 


О \:5151е (тип свойства — логический) — если оно равно Егие, то форма/ 
компонент видимые. Иначе форма/компонент невидимы. 


О и:акь (тип свойства — целое число) — ширина окна. 


0 и:птаомзекаее — состояние окна после запуска. Здесь доступны следующие па- 
раметры: =, | 


® \М5Могиа1 — окно показывается в нормальном состоянии; 
® И-Мах1и1хеа — окно показывается максимизированным, 
® ИМ-М1п1т12еа — окно показывается минимизированным.. 


На этом обзор свойств формы считаю законченным. 


6.2. Событийная модель \М/тдо\м$ 


Вся работа операционной системы \!тдо\5$ основана на понятии события. Что 
это значит? Давайте попробуем разобраться. 

Внутри ядра У т4до\$ создается очередь событий. Когда какое-нибудь прило- 
жение или устройство изменило свое состояние и хочет сообщить об этом опера- 
° ционной системе, то оно помещает в эту очередь соответствующее сообщение. ОС 
\Мтао\5$ обрабатывает его и, если необходимо, реагирует на изменения. 
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Давайте рассмотрим реальный пример события и реакцию на него. Допустим, 
что мы передвинули курсор мыши. Она генерирует событие и помещает его в оче- 
редь сообщений. Когда \Мт4до\5 доходит до обработки этого сообщения, то полу- 
чает новые координаты курсора мыши. Так как положение курсора изменилось, ОС 
должна перерисовать его в новой позиции на экране. Если какое-то окно тоже же- 
лает обработать это событие, то система помещает событие в очередь окна. После 
этого \У/лт4о\5 переходит к обработке следующего сообщения. 

Если в очереди нет сообщений, то \тдо\$ переходит в состояние ожидания. 
Но такое бывает очень редко. Даже когда вы не работаете за компьютером (он про- 
стаивает), в фоне работает очень много процессов, которые отнимают процессор- 
ное время и генерируют собственные события. 

Когда вы нажимаете на кнопку мыши, генерируется событие, извещающее ОС, 
что кнопка нажата. Любое действие, которое несет в себе какие-либо изменения, 
может генерировать системное или оконное (относящееся к определенному окну) 
событие. Это очень эффективная и удобная модель, благодаря которой и реализу- 
ется многозадачность УМ т4о\5. 

Давайте взглянем на простую очередь (табл. 6.2 не является очередью ОС У по\, 
это просто пример). 


Таблица 6.2. Абстрактная очередь сообщений 


Первая колонка показывает тип события. Вторая колонка показывает идентифи- 
катор приложения, которое сгенерировало событие. В третьей показываются 
дополнительные параметры. Например, при нажатии клавиши на клавиатуре в ка- 
честве дополнительного параметра идет буква, которую нажали. Конечно же, в ре-_ 
альной ситуации будет не буква, а код, но у нас же это просто пример. 

ОС Утдо\5 берет первую строку из очереди и обрабатывает ее. Потом берет вто- 
рую строку. Она уже относится к другому приложению. Третья строка опять отно- 
сится к первому приложению. Таким образом, ОС последовательно обрабатывает 
события разных приложений, что дает многозадачность. 

Конечно же, многозадачность построена не только на сообщениях и здесь много 
дополнительных факторов. Однако очереди играют достаточно большую роль. 

В Реры все компоненты также работают через события. Вы будете постоянно 
создавать обработчики событий для разных ситуаций. Например, можно создать 
обработчик события для нажатия клавиши на клавиатуре и производить в нем ка-. 
кие-то действия. По нажатии определенной клавиши можно, например, выводить 
окно (действие как у горячих клавиш). 

Таким образом, подводя итог сказанному, можно заключить, что в Рер обра- 
ботчик события — это простая процедура или функция, которая вызывается по на- 
ступлению какого-то вполне определенного события. 
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6.3. События главной формы 


Здесь мы рассмотрим описание большинства событий, которые может отлавли- 
вать главная форма приложения. Конечно же, вам доступно намного больше, и вы 
можете создать еще и свои обработчики, но здесь будут рассмотрены те, которые 
наиболее часто используются в Ое]рЫ!1. События можно увидеть на вкладке Еует $ 
объектного инспектора (табл. 6.3). 


Таблица 6.3. Основные события, генерируемые формой (окном) 


О ООО 


Это событие генерируется перед тем, как изменить размер окна. 


ОпПАСЕ1уаее | Когда приложение стало активным 
Здесь можно запретить какие-либо изменения или производить 
Генерируется, когда окно закрывается | 
ОпС1оз5ебдчеку Генерируется до закрытия окна. В этом обработчике происходит 
Такие подтверждения можно увидеть в каждом втором приложении 
типа "Вы уверены, что хотите закрыть окно?" 
Опреасе1уаее Генерируется, когда окно деактивируется 
ОпрезЕгоу Когда окно уничтожается 


ОпСапВез12е 
какие-то подготовительные действия 
запрос на закрытие, поэтому из этого обработчика можно вывести 
Генерируется, когда окно создается 
Генерируется, когда окно исчезает из виду. Событие генерируется 


ОпС11ск _ | Генерируется, когда пользователь щелкнул по форме 

окно, которое будет запрашивать подтверждение на закрытие. 
0п0Ь1С11ск Генерируется, когда пользователь дважды щелкнул по окну 

даже тогда, когда память, выделенная для окна, не уничтожается 
ОпКеуро\мп Генерируется, когда нажата клавиша на клавиатуре 
ОпКеуРгезз Генерируется, когда нажата и отпущена клавиша на клавиатуре 


опКеу/р Генерируется, когда отпущена клавиша на клавиатуре | 
Генерируется, когда нажата кнопка мыши 
) 


[озмозвеноуе | Генерируется, когда двиветямыь 
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Таблица 6.3 (окончание) 


Оп5рокЕСие Генерируется, когда нажата горячая клавиша 


Оп5Вом Генерируется, когда показывается окно, но до фактической прори- 
совки. В этот момент окно уже создано и готово к отображению, 
но еще не прорисовалось на экране 


Это основные события, которые может генерировать форма. Когда мы будем 
рассматривать компоненты, то я не буду снова расписывать те события, которые 
уже перечислены здесь, потому что разницы в них нет. 

Не забываем, что форма наследует свойства и события всех классов, от которых 
Происходит тРоги. 


6.4. Палитра компонентов 


Начиная со следующей главы, мы начнем знакомиться с предоставляемыми сре- 
дой разработки РерШ компонентами, поэтому сейчас нам надо познакомиться с па- 
литрой компонентов и узнать, из чего она состоит (рис. 6.10). 


Г а | АдНопа!| маза | Зущет Бава Ассез$ |. база Сопнов |. „ЧБЕкогезз || Факабпао | ВО 
к М % АЕШЕ ® Е а ГЕ Г. м 


Рис. 6.10. Палитра компонентов 


Палитра компонентов состоит из нескольких вкладок. 
С) Мапдага — все эти компоненты являются аналогами компслентов \/11д0\%$. 


О 


АЗЯЧ1!8Яопа! — дополнительные компоненты. 


О У! ш32 — компоненты, которые есть только в семействе ОС \/т32. В это семей- 
ство входят \/шао\$ Эх, У/Лтдо\$ МЕ, УМ тадо\м$ 2000, УМтдо\и$ МТ, У/шдо\з ХР. 
Наверное, легче было сказать, что не входит, потому что это только \/тао\ 3.1. 


О Зу$ет — системные компоненты, с помощью которых облегчается до- 
ступ к системе. 


аа Ассеб$$ — компоненты доступа к базам данных. 


ов 


Даа СопЫ`0]|$ — компоненты для работы с базами данных. 


О 9ЪЕхрге$$ — компоненты доступа к базам данных, которые пришли на смену 
ВПЕ. 


С ВБЕ — старые компоненты доступа к базам данных. 


О АБО — это тоже компоненты для доступа к базам данных, только по техноло- 
гии Аспуе аа ОБуес! (АБО). Данные компоненты удобны при работе с базами 
данных от Мпсгозой. — 


О ШегВа$зе — компоненты доступа к базе данных ПиегВазе. 
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\УУе5Зегу1се$ — компоненты доступа к сети Интернет. 

Пицегпе Е хргез$ — компоненты доступа к сети Интернет. 

Ка$(М№её — сетевые компоненты. Мы вряд ли будем их использовать. 
ОгерогЕ — компоненты для создания отчетности. | 

0121025 — компоненты, облегчающие доступ к стандартным диалогам. 
\УУт3.11 — компоненты доступа к компонентам \М т 3.1. 


Оооо. ооо 


Зашрез — различные примеры компонентов. Некоторые из этих компонентов 
доступны в исходных кодах и поставляются вместе с Реры. 


На этом пока хватит. В следующей главе мы познакомимся с палитрой компо- 
_ нентов 5 апдага и входящими в нее компонентами. В процессе этого будем учить- 
ся работать не только с компонентами, но и изучать язык программирования Оеры 
на конкретных примерах. 
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В этой главе будут рассматриваться компоненты, которые находятся на вкладке 
$апдаг4 палитры компонентов. Одновременно с этим мы будем писать програм- 
мы с использованием этих компонентов и изучать язык программирования Ое]р|и. 

Здесь не будут просто перечисляться компоненты и их свойства. Мы будем 
писать вполне работающие приложения. Функциональность их пока будет очень 
слабая, но все же эти программы будут вполне рабочими и даже полезными не 
только для обучения, но и при написании реальных программ. 

По ходу изложения материала будет рассмотрено большое количество довольно 
интересных примеров, но это уже зависит от самих компонентов. С некоторыми 
можно создать что-то полезное без дополнительных знаний, но в большинстве слу- 
чаев ничего сложного сделать невозможно, потому что сами компоненты просты. 

Рассмотрение компонентов на данном этапе изучения языка Ое]рЬ! необходимо 
для получения практических знаний при написании программ с простым интер- 
фейсом пользователя. В связи с этим необходимо еще раз напомнить о необходи- 
мости повторять все действия по ходу изложения материала книги. На компакт- 
диске, прилагаемом к книге, есть все исходные коды примеров, но это готовые 
примеры. Вы сможете чему-то научиться, только если сами попробуете програм- 
мировать. Пробуйте не только воссоздать описываемые примеры самостоятельно, 
но и улучшать их. 


7.1. Кнопка (ТВиНоп) 


Итак, переходим к рассмотрению компонента — кнопка ТВаЕЕоп. Хотя этот 
компонент находится в середине вкладки, рассмотрение компонентов целесообраз- 
но начать именно с него. Этот компонент самый простой, и при рассмотрении дру- 
гих компонентов мы будем постоянно его использовать. 

Когда вы устанавливаете на форму новую кнопку; то ей присваивается имя по 
умолчанию ВиЕЕоп1. Следующая кнопка получит название воуеЕоп2 и т. д. Таким 
образом Реры именует все новые компоненты на форме — берет имя класса ком- 
понента, отбрасывает букву "Т" в начале и добавляет в конец цифру, определяю- 
щую порядковый номер компонента. 

Давайте напишем маленькую программу с использованием кнопки (при наведе- 
нии курсора на этот компонент должна появляться подсказка ваЕкоп). Для этого. 
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создайте новое приложение. Щелкните мышью по изображению кнопки на палитре 
компонентов. После этого щелкните мышью в любом месте формы. На форме сра- 
зу же появится кнопка с заголовком Ви{Ноп1 (рис. 7.1). Можно не щелкать по фор- 
ме, а растягивать, как бы прорисовать квадрат (происходит при нажатой клавише 
мыши). В этом случае кнопка примет размеры нарисованного квадрата. 


_вщыт | 


Рис. 7.1. Форма с кнопкой 


Есть еще один способ установить кнопку на форме. Для этого дважды щелкните 
мышью по изображению кнопки на палитре компонентов. Но в этом случае кнопка 
окажется в центре формы, а не там, где мы хотим. 


Выделите кнопку и перейдите в объект- 
ный инспектор. В нем (рис. 7.2) показаны 
свойства кнопки. Как видите, большинство 
свойств нам уже знакомо по свойствам 
формы, поэтому не будем их рассматри- 
вать. Есть только одно интересное свойст- 
ВО — Модба1Кези1е, Но с ним мы познако- 
мимся позже. 

Давайте изменим заголовок кнопки. За 
заголовок формы отвечает свойство СарЕ1оп. 
Здесь то же самое. Найдите свойство СарЕ1оп 
и измените содержащийся в нем текст на 
"Нажми меня" 

Сразу изменим и СВОЙСТВО Маше у кноп- 
ки. Ранее говорилось, что любым компо- 
нентам и формам лучше давать понятные 
имена. Поэтому давайте с самого начала 
будем привыкать к нормальному стилю 
программирования. Найдите свойство Маме 
и измените его на МуЕ1хзЕВаееоп. Пускай 
имя кнопки пока не отражает никакого 
смысла, ведь она еще ничего не делает. 

Теперь изменим имя формы. Для этого 
снимите выделение с кнопки (щелкните 
мышью в любом месте формы). Вверху 
окна объектного инспектора должна заго- 
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Рис. 7.2. Объектный инспектор 
со свойствами кнопки 


Палитра компонентов З{апаага 115 


реться надпись Рохи1 ТРоги1, как это показано на рис. 7.3. Нужный для редактиро- 
вания компонент можно выбрать и в этом списке. 


ОБесе 1преског ии и 2] 


Гог] 


Рюрешез | ыы] о 
| Або _ ых изме .`- . : ал _ ^ | 


‘Рис. 7.3. Объектный инспектор 
с выделенной главной формой 


Теперь найдите здесь свойство Маме (оно должно быть равно гогхт1) и измените 
его значение на Ма1пРогхт (это переводится как главная форма). 

Попробуйте запустить программу (нажмите клавишу <Н9>). Оболочка Реарш 
скомпилирует программу и запустит на выполнение. Теперь можно спокойно на- 
жимать на кнопку, только ничего в этом случае происходить не будет. 

Давайте усложним пример и введем реакцию на событие, когда нажимается 
кнопка. Для этого перейдите на вкладку Еуеп5 (События) в окне объектного ин- 
спектора. Когда мы рассматривали события формы, говорилось, что за щелчок 
клавиши мыши отвечает событие опс11ск. Для кнопки есть такое же событие. 
Найдите его (для этого надо перейти на вкладку объектного инспектора Еуепё$ 
(События)) и щелкните по нему дважды. Вер! должен создать в редакторе кода 
процедуру — обработчик события о0пс11ск. По умолчанию ей присваивается 
имя в виде имени компонента (нашей кнопки) плюс имя события без пристав- 
ки оп. В нашем случае получается, что имя процедуры обработчика будет 
МуЕР1г5ЕВаебопсС11ск: 

Ргоседиге ТЕоги1.МуЕг1х5ЕВиевопС11ск (бепаег: ТОБ)ес®); 

Бед1п 


ева; 


В объектном инспекторе напротив строки опс11ск также должно появиться 
имя процедуры обработчика. Вы можете изменить его, просто напечатав новое имя 
или выбрав уже существующий обработчик из ниспадающего списка в этой же 
строке. В нашем случае ниспадающий список пуст, потому что мы больше не дела- 
ли схожих обработчиков событий, и оно у нас пока единственное. | 

Давайте вернемся в редактор кода и посмотрим, что там создал для нас 
Ре!рН!? Это процедура муг1хзЕВоеЕопс11ск. Ей передается один параметр зепаехг 
объектного типа тоь3есе. В начале выполнения процедуры в переменной зепдег 
будет находиться указатель на объект, который вызвал этот обработчик. Это 
очень важно, потому что вы без проблем можете сделать. так, что одна процеду- 
ра-обработчик сможет обрабатывать нажатия сразу нескольких кнопок или во- 
обще компоненты разного типа. По содержимому этой переменной можно уз- 
нать, какой именно компонент сгенерировал событие. Чуть позже вы увидите 
этот трюк на практике. 
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Давайте напишем внутри процедуры (между операторными скобками Ъед1п 
И епа) команду с1озе. Это метод формы, который закрывает процедуру. Теперь 
наша процедура должна выглядеть как: 
Ргоседиге ТЕоги1 .МуЕ1узЕВаесопС11ск (бепаехг: ТОБЗесе); 
Бед1п | 
С1о5е(); 
епа; 


Попробуйте запустить программу и нажать на кнопку. Программа закроется. 


ПРИМЕЧАНИЕ. На компакт-диске, прилагаемом к данной книге, в папке \Примерь\_ 
Глава 7\Вицкоп вы можете увидеть пример программы. 


Так как с1озе — это метод формы, мы могли написать и так: 
Ргоседиге ТЕогт1 .Муг1у5ЕВаебопС]11ск (5епаег: ТОБзесе); 
Ъечлп 

Еогт1 .С1о5е; 
ера; 


Разницы между первым и вторым вариантом нет абсолютно никакой. Так поче- 
му же в первом случае написано просто с1озе; не указывая имя объекта, метод ко- 
торого используется? Мы же знаем, что методы нужно вызывать в форме 
Имя_Объекта .Имя_Метода. Все очень просто. Процедура обработчика события отно- 
сится к объекту Еогит (06 этом говорит объявление процедуры 
ТРог1 .МуЕ1хзЕВиекопС11ск), И внутри нее можно использовать его свойства и ме- 
тоды без указания владельца. По умолчанию будет браться коги1. Но если мы за- 
хотим из этой процедуры закрыть другую форму, например, гохт2, то придется 
указать, что необходим объект именно гоги2. 

ргоседике ТЕогт1.МуР1хзЕВиесопС11ск (бепаег: ТОБуес®); 

реали | 

Рога .С1о5е; 
епа; 


Если мы просто напишем с1озе, то закроется гоги1, а не гохи2. Когда вы пише- 
те имя какой-то процедуры, то сначала поиск этого имени осуществляется среди 
членов класса, внутри которого написан код. 


7.2. Изменение свойств кнопки 
(логические операции) 


В этом разделе мы напишем программу, у которой на форме будет только одна 
кнопка. При наведении на нее указателя мыши кнопка будет убегать. 

Воспользуемся предыдущим примером из разд. 7.2 и улучшим его. Для начала 
выделите форму и измените свойство Аицко$сго11 на Еа1зе, чтобы на форме авто- 
матически не появлялись полосы прокрутки. 

Теперь создайте для кнопки обработчик события опмоиземоте. Для этого выде-. 
° лите кнопку и перейдите. в объектном инспекторе на вкладку Еуеп5 (События). 
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Здесь вы уже создавали обработчик опс11ск, теперь щелкните дважды напротив 
строки опмоизеМоуе, чтобы создать соответствующий обработчик. 
Если вы все сделали правильно, то Ое!рЫ должен создать процедуру для обра- 
ботки сообщения — опмоцзеМоте. 
Рхосеаиге ТРогта1 .МуР1езеВиевопМочзеМоуе (5еп4ег: ТОБ]есе; 
511ЕЕ: Т$р1ЕЕббабе; Х, У: Тпбедег); 
Беа1п 


ета; 


Не будем пока вдаваться в подробности передаваемых параметров. Просто на- 
пишите здесь код, показанный в листинге 7.1. 


Ргосебиге ТРогт1 .МуЕ1у$сВиббопМочзеМоуе (бепаехг: ТОБ)ес®; 
ЗВ1ЕЕ: Т5Ь1ЕЕббабе; Х, У: Тпбедег); 


хат | | . 


1паех: 1п%седег; 
Беа1п 

{пдех:=гапдом(4); 

сазе 1паех оЕ 
0: МуР1Е5ЕВиЕЕоп .ГеЕЕ: =Муг1хзЕВаевоп .ГеЕс+МуР1хзеВиееоп .М1аер; 
1: МуЕ1ЕЗЕВие коп .ГеЕ®: =МуЕ1кзЕВаевоп .ЬеЕЕ-МуЕ1езЕВиекоп .ИЗаеВ; 
2: МуЕ1узЕВаееоп .Тор: =МуЕ1у$Ваебоп .Тор+МуЕ1г5Вобеоп.Нелаве; 
3: Муг1узЕВиЕееоп .Тор: =МуР1узЕВиееоп .Тор-МуЕ1узЕВаееоп .Не1оНе; 

епЯ; 


1Е МуЕР1хзеВиевоп.ТеЕе<0 (Веп 
МуЕ1г5ЕВиебоп .ГеЁес:=0;. 


1Е (МуР1езЕВаевоп .ЬеЕе+МуР1гзЕВаееоп.ИМ1АЕН)> Ма1пРога.М1аАЕй реп 
МуЕг1изЕВаббоп .ГеЁс:= Ма1пРохм.М1АВ-МуЕ1узеВаебоп.. ИтаЕи; 


1Е МуР1гзеВиебоп.Тор<0 ЕВеп 
МуР1г5ЕВаЕбоп.Тор:=0; 


1Е (МуР1узЕВиесоп. Тор+МуЕР1"зЕВиееоп.Незате)> МалпРогм.Не1аие ЕПеп 
МуЕг1узеВаебоп.Тор:= МазпРохт.Нелайе-МуР1узЕВасеоп .Незаре; 
епа; 


Пока просто перепишите содержимое этого листинга. Скоро мы подробно рас- 
смотрим, что тут написано. Запустите программу и попробуйте нажать на кнопку. 
Как только попытаетесь навести на нее указатель мыши, кнопка будет убегать от вас. 
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ПРИМЕЧАНИЕ. На компакт-диске, прилагаемом к книге, в папке \Примерь\ 
Глава 7\Вицоп1 вы можете увидеть пример этой программы. 


Обязательно сначала посмотрите, как работает пример. Когда поймете принцип дей- 
ствия программы, возвращайтесь к чтению книги, и мы рассмотрим исходный КОД. _ 

В разделе уах объявлена одна переменная 1паех типа целое число. В первой 
строке этой переменной присваивается случайное число с помощью функции 
гапа оп: 


1паех: =хап@Яон (4); 


Функция гапаою возвращает случайное число. В качестве единственного пара- 
метра ей нужно передать число, которое будет означать максимально возможное 
случайное значение. В операторе передается цифра 4. Это значит, что функция 
` вернет число от нуля до четырех (0 <Х <4). Само число 4 в диапазон возможных 
значений не входит, все случайные числа будут меньше него. 

После этого проверяется, какое число сгенерировала функция гапдом с помо- 
щью конструкции сазе: 

сазе Переменная оЁ 

Значение1: Действие]; 


Значение? : Действие2; 


еп; 


Конструкция сазе сравнивает переменную с перечисленными между ключевы- 
ми словами оЕ И епа значениями, и если одно из них совпадает, то выполняет соот- 
ветствующее действие. Например, допустим, что наша переменная равна числу 
"Значение2". В этом случае будет выполнено "Действие2". При этом "Действие1" 
и другие выполняться не будут. 

_ Если вам нужно, чтобы при равенстве значений выполнялось несколько дейст- 
вий, то необходимо заключить их в логические кавычки Ъед1п ... епа, как это 
показано в листинге 7.2. 


сазе Переменная оЕЁ 
Значение]: 
Беа1п 
Действие1_1; 


Действие1_2; 
епЯ; 
Значение: 


Бед1п 


Действие2_1; 
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Действие2_2; 


епа; 


еп; 


Теперь вернемся к нашему примеру. В нем используется следующий оператор сазе: 
сазе 1п4ех оЁ | 

`о: Муг1узЕВаесоп .ГеЕс: =МуЕ1узВиасбоп .ГеЁе+Муг1узЕВаевоп .И1аЕн; 

1: Муг1узЕВиебоп . ГеЕЕ : =Муг1у$ЕВаббоп .ГеЕс-МуЕР1узЕВаееоп .Маер; 

2: Муг1гзЕВаебоп .Тор: =МурР1изЕВиевоп .Тор+МуЕ1:5ЕВиееоп .Не1аНс; 

3: МуЕ1езЕВиЕсоп .Тор: =МуЕ1гзЕВие оп .Тор-МуР1хзЕВчеЕоп.Незане; 


епа; 


Если переменная тпаех равна 0, то выполнится действие: 
МуЕ1гзЕВаебоп .ЦеЕ® : =МуР1узЕВаебоп .ГеЁЕс+МуЕ1у$Ваебоп .Мтаев 


Что это? Здесь свойству ЪеЕе (левая позиция) кнопки МуЕ1гзЕВиееоп присваи- 
вается значение левой позиции этой же кнопки плюс ее ширина. Это значит, если. 
вы попытались навести мышкой на кнопку, и функция вапаов сгенерировала 0, то 
левое значение кнопки будет увеличено на ширину кнопки. А это уже значит, что 
кнопка сдвинется от вас вправо. Если вы уже запускали пример, то поняли это. 

Если значение переменной тпаех равно 1, то наоборот, уменьшается левая по- 
зиция кнопки на ее ширину, т. е. кнопка убежит влево. Если значение переменной 
Тпаех равно 2, то увеличивается верхняя позиция кнопки на ее высоту, а кнопка 
убежит вниз. Надеюсь, что смысл понятен. Давайте двигаться дальше. 

После конструкции сазе ... оЁ ... епа идет проверка: "Не убежала ли кноп- 
ка за пределы окна?" Сначала проверяется левая позиция кнопки. 


1ЁЕ МуЕР1узЕВаебоп.ЬеЕе<0 Ереп 
МуЕ1х5ЕВаебсоп .ГеЕе:=0; 


Здесь идет проверка, если левая позиция кнопки муР1хзЕВаЕкоп.ТеЁЕе меньше 
нуля, то установить ее в ноль. | 
В следующей строке проверяется, если левая позиция кнопки плюс ее ширина 
больше ширины окна, то левой позиции присвоить значение "ширина окна" минус 
"ширина кнопки": | 
1Е (МуР1езЕВаееоп.ГеЕ+МуР1г5 Ви еоп .М1аер) >Рогт1.М1аев ЕБеп 
МуЕ1ез ЕВЕ оп .ЬеЁе: =Ротт1 .И1ЯЕВ-МуЕ1г5ЕВиЕеоп.И1асВ; 


Точно так же проверяем и верхнюю позицию, чтобы она не вышла за пределы 
окна. и 

С оператором 1, который здесь используется, мы уже немного познакомились 
в разо. 5.3.4. Конструкция 1Е ... ЕВеп выглядит следующим образом: 

1Е Условие ЕВеп 


Выполнить „действие; 


5 Зак. 1273 
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Если условие выполнено, то будет выполнено и действие. Если вы хотите вы- 
полнить два действия, то должны заключить их в логические скобки Бед1п 
епа. Например: 
ТЕ Условие ЕВеп 
реа1п 
Действие]; 
Действие2; 


Действие3; 


еп; 


В этом случае все действия между Ъъед1п И епа будут выполнены, если условие 
верно. Таким образом, Бед1п ... епа группирует последовательность действий 
В ОДНО. | 


7.3. Надписи (ТГаБе/ 


Этим компонентом мы будем пользоваться практически в каждом примере для 
вывода информации и надписей для других компонентов. | 

Создайте новое приложение. Установите на форму один компонент тгаъе1 
и измените у него свойство СарЕ1оп на "Это моя первая программа". 


ПРИМЕЧАНИЕ. На компакт-диске, прилагаемом к книге, в папке \Примеры\Глава 7\ЁаБе! 
вы можете увидеть пример этой программы. 


Компонент простой, и мы почти всегда будем использовать у него только свой- 
СТВО СарЕ1оп. Возможно, что иногда понадобится еще свойство Тгапзрагепе (про- 
зрачность). В следующем примере мы создадим один простой текстовый эффект и. 
воспользуемся свойством прозрачности тгаЪе1. 

Продолжим программирование. Щелкните дважды по свойству ЕопЕ (шрифт). 
компонента ГаЪе11. Перед вами появится окно свойств шрифта. Сделайте шрифт 
побольше (можно использовать 12 или 14) и измените цвет на белый. 

Теперь запомните значения свойств геЕЕ И Тор (левая и верхняя позиция) ком- 
понента. Пусть оба эти свойства равны 16. Теперь скопируйте гаЪъе1 в буфер обме- 
на, выбрав из меню ЕЧИ | Сору. Щелкните по форме, чтобы снять выделение. 
с компонента гаЪе11. Теперь вставьте копию 
компонента из буфера обмена с помощью меню 
ЕЗИ | Рае. Пер создаст новый компонент |5 
Гаъе12, который будет копией первого. Выдели- |. 
те новую копию и измените свойства теЕЕ И Тор 
на 18 и 18, что на пару единиц больше позиции 
первого компонента. Это сделает второй компо- 
нент как бы немного сдвинутым поверх первого. 
Щелкните дважды по свойству гопЕ и измените 
цвет шрифта на синий. И последнее — измените 
СВОЙСТВО Тгапзрагеп+ На + гие. Рис. 7.4. Текст с тенью 


-. Это моя первая программа _ 
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Если вы все сделали правильно, то у вас должно получиться нечто похожее 
на то, что показано на рис. 7.4. Получается как бы надпись с тенью. 


ПРИМЕЧАНИЕ. На компакт-диске, прилагаемом к книге, в папке \Примеры\Глава 7\ 
Соо\!абе! вы можете увидеть пример этой программы. 


7.4. Строки ввода (ТЕоП) 


С помощью строк ввода мы постоянно будем получать от пользователя различ- 
ную информацию. Давайте попробуем написать несколько программ с использова- 


нием этого компонента, чтобы понять все 
тонкости работы с ним. 

Создайте новый проект. Установите в окне 
формы два компонента тЕа1е и одну кнопку. 
У вас должно ‘получиться нечто похожее 
на рис. 7.5. 

Давайте очистим у обоих компонентов 
ТЕЗ1Е СВОЙСТВО Техе. Это свойство отвечает 
‘за содержимое строки ввода. Мы просто очи- 
стим, чтобы после запуска программы обе 
строки ввода были пустыми. 

Теперь создайте для кнопки обработчик 
события опс11ск. Мы это уже делали, поэто- 


Рис. 7.5. Форма будущей программы 


® 


муу вас не должно быть с этим проблем. Кстати, если дважды щелкнуть по кнопке 
или по компоненту на форме, то Оер№! автоматически создаст этот обработчик со-_ 
бытия. Ну а если он уже создан, то просто перенесет вас в то место, где написан 


код этого обработчика. 


Итак, создайте обработчик и напишите в нем: 


ргоседиге ТЕогт1 .МуЕ1уз (Ви опС11ск (бепаег: ТОБ)есе); 


Ъеа1п 
Еа12.Техё:=Еа1е1.ТехЕ; 


еп; 


По нажатии кнопки мы копируем содержимое свойства Техе компонента Еа1 2 
В СВОЙСТВО ТехЕ компонента ка1е1. Попробуйте запустить программу. Теперь вве- 
дите в первую строку ввода какой-нибудь текст, а потом нажмите кнопку. Во вто- 


рой строке ввода появится тот же текст. 


ПРИМЕЧАНИЕ. На компакт-диске, прилагаемом к книге, в папке \Примеры\Глава 7\ТЕдй 


вы можете увидеть пример этой программы. 


Давайте немного улучшим пример. Теперь измените у первой строки ввода 
СВОЙСТВО РаззмохгАСВах на звездочку "*". Запустите программу и попробуйте ввести 
в эту строку текст. Вместо текста будут появляться звездочки, как при вводе пароля 
в какой-нибудь программе. Именно таким образом делаются строки ввода паролей. 
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Попробуйте нажать на кнопку, и во вторую строку ввода перенесется текст, кото- 
рый ВЫ ВВОДИЛИ. 


ПРИМЕЧАНИЕ. На компакт-диске, прилагаемом к книге, в папке \Примеры\Глава 7\ 
Раззм/огаСПаг вы можете увидеть пример этой программы. 


Теперь сделаем проверку на ввод пароля. Найдите в процедуре. обработчик со- 
бытия 0пС11ск для кнопки и напишите там следующее: 


рхоседиге ТГогт1 .МуЕ1узЕВаевопС11ск (бепаег; ТОБ)ес®); 
Беач1п 

1Е Еа11.ТехЕ='раззмога' ЕВеп 

Еа162.Техе:='Пароль верный' 

е1зе | 

Е41Е2.Техе:='Пароль неверный '; 


епа; 


Теперь попробуйте запустить программу. Если вы введете в первую строку вво- 
да слово раззмога и нажмете кнопку, то во второй строке появится надпись Пароль 
верный, Иначе будет надпись Пароль неверный. 


ПРИМЕЧАНИЕ. На компакт-диске, прилагаемом к книге, в папке \Примеры\Глава 7\ 
РаззмиогаСКаг1 вы можете увидеть пример этой программы. 


7.5. Многострочное поле ввода (ТМето) 


‚ Теперь мы познакомимся с многострочными компонентами ввода. Для этого на 
вкладке Эфапдаг есть компонент тмепо. Как всегда, в качестве примера напишем не- 
большую программу. Создайте новый проект и установите на форму компонент тмепо. | 

По умолчанию в нем уже присутствует одна строка текста, равная имени компо- 
нента. За содержимое текста отвечает свойство т,1пез. Это свойство — целый объ- 
ект типа Т5Ег1паз, и имеет свои свойства и методы. Немного позже мы познако- 
мимся с некоторыми из них. | 

Давайте сначала просто очистим содержимое компонента Мето1. Для этого два- 
жды щелкните по свойству Г1пез. Перед вами откроется окно редактора строк 
(рис. 7.6). Это окно содержит простой текстовый редактор, в котором можно на- 
брать многострочный текст. Мы не будем этого делать, а просто удалим все его 
содержимое. Как только сделаете это, нажмите кнопку ОК. 

Теперь давайте напишем небольшую программу, которая будет выполнять про- 
стые функции текстового редактора. Сложные вещи не получатся, потому что 
ТМето — это простой компонент, да и еще рано делать что-то сложное. Для созда- 
ния более сложных текстовых редакторов есть другой компонент. 

Итак, добавьте на форму пока только одну кнопку. Измените ее свойство 
СарЕ1оп на Очистить И имя На С1еахВаеЕЕорв. Кстати, давайте изменим имя компо- 
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нента Мето1 на Ма1пМемо. Создайте для кнопки обработчик события опс1+1ск. В нем 
‘напишите следующее. 
ргоседиге ТЕогт1.С1еахВа*опС11сК (5еп@ег: ТОБЗес®); 
Бед1п 
Ма1пМемо .Г1пез.С1еаг; 
епа; 
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Рис. 7.6. Редактор строк в компоненте Мето1 


В этом программном коде вызывается метод с1еахг объекта т1пез, который 
в свою очередь принадлежит объекту ма1пМето. Немного запутано, но со време- 
нем вы поймете, что это очень даже удобно. У компонента ма1пМешо есть свой- 
ство Г1пез, значит, чтобы получить к нему доступ, мы должны написать 
Ма1пМепо .Г1пез. Свойство Г1пез — это целый объект, и у него есть метод с1еах, 
который очищает содержимое строк редактора. | 

Попробуйте запустить программу и написать внутри компонента мето какой- 
нибудь текст. Потом нажмите кнопку Очистить, чтобы уничтожить все, что вы 
ввели. 


ПРИМЕЧАНИЕ. На компакт-диске, прилагаемом к книге, в папке \Примеры\Глава 7\Мето 
вы можете увидеть пример этой программы. 


Теперь давайте усложним наш пример, добавив ВОЗМОЖНОСТЬ сохранения вве- 
денного текста и загрузки его обратно. 

Создайте обработчик события оп5ном (срабатывает, когда отображается окно) 
ДЛЯ формы и напишите в нем следующее: 

ргоседиге ТЕГоги1 .Рохтабвом (бепаег: ТОБЗесе); 

Беа1п 

Ма1пМето .Г1пез.ГоаЯЕРкопЕ11е ('шешо.ехе'); 


ева; 
Здесь вызывается метод гоа9ЕховЕ11е объекта 11пез. Ему нужно передать толь- 


’ ко один параметр — имя файла, откуда будет происходить загрузка данных. Есть 
только один недостаток — если вы сейчас попытаетесь запустить программу, то во 
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время загрузки произойдет ошибка, потому что файла тето.(хЕ нет. Тут есть два 
выхода: 


О заранее создать файл; 


О при старте программы проверять, есть ли файл, и только если он существует, 
производить загрузку текста. 


С первым способом все понятно. А вот для реализации второго способа можно 
воспользоваться функцией Е11еЕх1зез. Ей нужно передать имя файла, существо- 
вание которого надо проверить, и если такой файл существует, функция вернет 
Егие. Давайте изменим обработчик события оп5вом следующим образом: 

ргоседаге ТЕГоиут1 .Рогтбром (бепаег: ТОБзесе); | 

Бед1п | 

1Е 2Р1]еЕх1565 ('шешо.6схе') ЕВеп 
Ма1пМето .Г1пез.ГоаЯЕгомЕ11е ('мешо.Ехе'); 
епа; 


Теперь создадим обработчик события опс1озе (срабатывает на закрытие окна). 
В нем напишем процедуру сохранения содержимого ма1пмепо. 

ргоседоге ТЕРогпт1 .РЕогиС1озе (беп4ег: ТОБес®; уаг Асе1оп: ТС1озеАсе1оп); 

Беа1п 

Ма1пМемо .Г1пе5.бауеТоЕ11е ('метшо.ехе'); 

ева; 


Здесь используется метод зауеТоЕ11е, который работает так же, как и 
ГоаЯ9ЕхощЕ11е, ТОлько сохраняет данные. 


ПРИМЕЧАНИЕ. На компакт-диске, прилагаемом к книге, в папке \Примеры\Глава 7\ 
Мето1 вы можете увидеть пример этой программы. Не запускайте пример с привода 
СО-ВОМ, потому что при выходе из программы происходит попытка сохранить имею- 
щиеся данные. А так как на СО-ВОМ записать невозможно, произойдет ошибка. 


Теперь осталось только научиться программно добавлять, удалять и изменять 
строки в компоненте тео, и можно считать, что мы досконально изучили этот 
компонент. | | 

В этом компоненте текст хранится как простая последовательность строк — 
массив. Используя предыдущий пример, наберите текст и после закрытия про- 
граммы посмотрите, как он выглядит в файле. Вот содержимое моего примера 
тето. хе 


Библия для программиста в среде Рерш 


Михаил Фленов 
и’иги’. Депоу.сот 


Как видите, в файле четыре строки (вторая пустая). Точно так же строки распо- 
ложены и в файле. 

Для доступа к каждой строке можно воспользоваться свойством 5$Ех1п9з свой- 
ства Г:пез. На рис. 7.6 наглядно показано, как получить доступ к строкам. Чтобы 
получить нулевую строку, нужно написать ма1пМемо .Г1пез.5ех1паз[0], для пер- 
вой строки — Ма1пМемо .Г1пез.5Ех1паз [1] ИТ. Д. 
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Давайте напишем пример, кото- 


рый будет получать доступ к стро- | ай Мето 

кам, чтобы увидеть все это на | -— — -- | = = УК 
— амМето. пез. /и9д$ 

практике. Добавьте к предыдуще- в МамМегто. тез. 793[1] | 


‚му примеру три кнопки. В МапМето пез. ое] 
С Добавить. Дадим этой кнопке | 
ИМЯ — АааВиЕ оп. 


О Удалить. Дадим этой кнопке 
имя — Ре1Ваесоп. 


О Изменить. Дадим этой кнопке 
ИМЯ — СРапдаеВаЕсоп. | 
Можете расположить их, как 

показано на рис. 7.7. Теперь созда- 

дим обработчик события 0опс11ск для кнопки’ Добавить. Здесь мы будем про- 
граммно добавлять новую строку в Ма1пМепо. Для этого у объекта т,1пез есть метод 

Ааа, у которого только один параметр — текст новой строки: | 
ргоседиге ТГоги1 .Виебоп1С11сК (бепаег: ТОБзесе); 


Рис. 7.7. Хранение строк в компоненте Мето 


Бед1п 
Ма1пМето .Г.1пез.Ааа('Новая строка’); 


ета; 


Теперь создадим обработчик события опс11ск для кнопки Удалить. По этому 
событию мы должны удалить строку, в которой находится сейчас курсор. Для это- 
го напишите в обработчике следующий текст: 

ргоседоге ТРогт1 .Ре1ВаеЕопС11ск (5епаег: ТОБ]есе); 

Ъед1п | 

1Е Ма1пМето .Г1пе$ .СоцпЕ<>0 ЕВеп = 
Ма1пМемо .Г.1пез .Пе1еее (Ма1пМето .СагеерРоз.У); 


епЯ; 


В первой строке кода проверяется, сколько строк в компоненте ма1пмМето. 
Для этого есть свойство Г1пез.СоипЕ. Если оно не равно нулю 
(Ма1пМето .Ь1пез .Соипе<>0), значит, строки есть, и мы можем удалить текущую строку. 

Для удаления используется метод ре1еке объекта г1пез. В качестве единствен- 
ного параметра нужно передать номер строки для удаления. Но как. 
узнать, какая строка сейчас является текущей? Для этого у Ма1пМето есть свойство 
СахекРоз, которое указывает на текущую позицию курсора. 

СагекРоз — это переменная типа ТРо1пеЕ. Этот тип определяется как запись. 
С таким типом мы подробно познакомимся немного позже. Единственное, что сей- 
час необходимо знать, так это то, что данный тип похож на объект, только у него 
нет методов, а только свойства. У ТРо1пе есть два свойства Х и у: х указывает на 
текущую колонку, а у — на текущую строку. Таким образом можно узнать теку- 
щую строку с ПОМОЩЬЮ Ма1пМемо.СагееРоз.уУ. 

Итак, ма1пМето.Т3пез.Ре1еёсе удаляет указанную строку. Указание текущей 
строки происходит с ПОМОЩЬЮ Ма1пМемо .СагеЕРоз.уУ. 
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‘Теперь осталось только написать обработчик события 0пСс11ск для кнопки 
Изменить. В нем напишите следующий код: 


Рхгоседиге. ТРогт1 .СВапаеВаесопСс11ск (бепаег: ТОБзес®); 


Бед1п 

Ма1пМето .Т1пез.5ех1паз [Ма1пМето.СагееРоз.У]:='Ногг1Е1с' 
Ма1пМемо.Т1пез.5Ех1п9$[0]:='Текст изменен’; 

епа; 


В первой строке мы изменяем текущую строку на `Ногийс. Второй строкой ко- 
да я изменяю первую строку МапМепо на "Текст изменен" 

Здесь вам уже все должно быть знакомым. Так что теперь можно считать, что 
мы изучили основные возможности компонента тмепо. 


ПРИМЕЧАНИЕ. На компакт-диске, прилагаемом к книге, в папке \Примерь\Г лава 7\Мето2. 
вы можете увидеть пример этой программы. 


7.6. Класс Тбнтд$ 


В предыдущем разделе мы познакомились на практике с классом Т$Ег1падз. 
Свойство Г1пез компонента тмемо имеет такой тип. Это очень мощный класс, с ко- 
торым мы будем очень часто встречаться на протяжении всей книги, поэтому не- 
обходимо остановиться и рассказать о нем подробнее. 

Класс тзЕг1паз — это набор строк. Везде, где информация поделена на строки, 
этот объект является мощнейшим средством для хранения и работы с ними. Пред- 
ставьте себе простой текстовый файл. Как хорошо, когда с ним можно работать, 
именно разбив содержимое на строки, а не со всей сплошной информацией. Когда 
мы будем рассматривать работу с файлами, то этот объект тоже будет присутство- 
вать. Вы еще не раз будете возвращаться к этой главе, чтобы вспомнить, для чего 
предназначено то или иное свойство или метод. 


7.6.1. Свойства Т5№та5$ 


СоппЕ — это СВОЙСТВО, которое вы можете только читать. Здесь хранится коли- 
чество ‘строк, содержащихся в объекте. 

5Ег1п95 — здесь хранится набор строк. К любой строке можно получить доступ, 
написав такую конструкцию: 

Переменная: =Имя Объекта. 5Ех1п9$ [Номер строки]; 


Имя Объекта. $Ех1паз [Номер строки] := Переменная; 


Первая строка кода запишет в переменную содержимое указанной строки. Вто- 
рая строка, наоборот, запишет содержимое переменной в указанную строку. За- 
помните, что строки в этом объекте нумеруются с нуля. 

ТехЕ — в этом свойстве хранятся все строки в виде одной целой строки, разде- 
ленные кодами конца строки и перевода каретки. 
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7.6.2. Методы объекта Т5#п9$ 


ААА (Строка) — метод добавляет строку, указанную в качестве параметра в ко- 
нец набора строк объекта. Возвращает номер, под которым добавлена новая строка. 

Арреп@ (Строка) — этот метод тоже добавляет строку, указанную в качестве па- 
раметра, в конец набора строк объекта. Он ничего не возвращает. 

АЧаЗЕг1паз (Набор строк типа Т$Ег1паз) — метод добавляет все строки из 
другого объекта типа т5Ех1 паз. 

Аз5191 — метод присваивает вместо своего набора строк новый, указанный 
в качестве параметра. _ | | 

С1еах — метод удаляет все строки из объекта. 

Ре1еке (Номер строки) — позволяет удалить строку под указанным номером. 

Еача]1$ (Набор строк типа Т5Ех1паз$) — метод допускает сравнение собствен- 
ного набора строк с указанным в качестве параметра. Если наборы равны, то метод 
вернет егое, иначе Еа1зе. 


Ехспапае (Номер1, Номер2) — метод меняет местами строки указанных номеров. 
сее (Номер строки) — метод возвращает строку указанного номера. 
ТпдехОЕ (Строка) — этот метод позволяет найти указанную в качестве парамет- 


ра строку. Если такая строка существует в наборе, то метод вернет ее индекс, ина- 
че — 1. - 


Тпзеге (Номер, Строка) — метод позволяет вставить в набор новую строку под 
указанным номером. | 

ГоаЯЕхотЕ11е (Имя файла) — данный метод используется, чтобы загрузить на- 
бор строк из указанного текстового файла. | 

ЗауеТоЕ11е(Имя файла) — метод обеспечивает сохранение набора строк в ука- 
занном текстовом файле. — | 

Моуе (Номер1, Номер?) — метод перемещает строку под номером номер1 на ме- 


сто строки Номер2. 
Пока этих свойств и методов больше чем достаточно. В этой книге будут рас- 
сматриваться в основном эти методы, хотя это далеко не все. 


7.7. Компонент СЛескВох 


Теперь перейдем к рассмотрению компонента снесквох. Как всегда, давайте 
создадим маленькую программу, которая будет использовать этот компонент. 

Создайте новое приложение, поместите на главную форму одну кнопку и два 
компонента тсвескВох. Первому компоненту дадим заголовок (свойство СарЕ1оп) 
"Разрешить закрытие программы" и имя (свойство мате) А11о\С1о5'еСтескКвВох. Вто- 
рому компоненту дадим заголовок (СарЕзоп) "Отключить кнопку" и имя (Мапе) 
ЕпаЪ1еваекопСВесквВох. Кнопке дадим имя МуЕ1узЕВаЕвоп. 

Создайте обработчик события опс11ск для компонента кпаь1евиекопСвесквох 
(это второй снесквох). В нем напишем следующее: | 


МуЕг1гзЕВиебоп .ЕпаЪ1еЯ := поё ЕпаБ1еВасбопСпескКВох .Свескея; 
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Здесь свойству паь1еа нашей кнопки присваивается значение по 
Епаь1еВаесопСпескВох.Спескеа. Что это значит? Свойство СпескеЯ компонента’ 
ЕпаЪ1еВиЕЕопСьескВох показывает, стоит ли флажок на этом компоненте спесквох. 
Если да, ТО СВОЙСТВО СНескеа будет равно ткие, иначе га1зе. Оператор поЕ меняет 
булево значение на противоположное. Это значит, что если свойство снескеа было 
равно Тгие, ТО В МуР1хезЕВчЕвоп. ЕпаЪ1еа будет присвоено противоположное 
(Еа1зе). 

Можете попробовать запустить пример и посмотреть, что происходит. Когда вы 
ставите флажок против компонента с надписью "Отключить кнопку", свойство 
Свескеяа этого компонента меняется на Тхгае. Срабатывает событие опс11ск 
и В СВОЙСТВО ЕпаЪ1еа кнопки присваивается значение свойства снескеа компонента 
СрескВох, измененное на противоположное, т. е. га1зе. А когда свойство ЕпаБ1еа 
кнопки равно га1зе, она становится недоступной. 

Чтобы окончательно разобраться с работой примера, нажмите на 
Епаь1еваскопСвескВох при запущенной программе. Потом попробуйте убрать из 
исходного кода оператор по и снова запустите программу. 

Теперь давайте создадим обработчик опс11ск для кнопки. В нем напишите сле- 
дующий код: 

ЧЕ А] 1 омс1озеСвескВох .СНескея ЕВеп 

СТозе; 


Здесь проверяется, если свойство Сьескеа компонента А11омс1озесвескВох 
(первый СвескВох на форме) равно Ткие, то закрыть программу (вызвать метод 
С1озе). Иначе ничего не произойдет. Снова запустите пример и попробуйте выйти 
из программы с помощью установленной кнопки. 

Как видите, работа этого компонента очень проста. 


ПРИМЕЧАНИЕ. На компакт-диске, прилагаемом к книге, в папке \Примеры\Глава 7 
СпескКВох вы можете увидеть пример этой программы. 


7.8. Панели (ТРапе) 


Если идти по порядку, то сейчас должен был быть компонент ткаа1оВох. Но мы 
перескочим сразу на тРапе1. Это сделано потому, что она будет использоваться 
уже в следующих примерах. 

ТРапе1 — это компонент в виде панели. Он ведет себя почти так же, как форма, 
и между ними есть что-то общее. Вы можете на нем располагать компоненты, 
и если вы передвинете панель, то все компоненты, установленные на ней, тоже пе- 
редвинутся. | | 

Панель может выглядеть по-разному. За внешний вид отвечают два свойства: 
Веуе1Тппег И Веуе1Оеег. Рассмотрим маленькую программу, которая. ничего не 
Делает, зато она показывает, как может выглядеть панель с различными вариантами 
установленных параметров. На панели шрифтом выделены установленные значе- 
НИЯ Веуе1Тппег И Веуе1Очкек (рис. 7.8). Г 
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ПРИМЕЧАНИЕ. На компакт-диске, прилагаемом к книге, в папке \Примеры\Глава 7\ 
Рапе| вы можете увидеть пример этой программы. 


Давайте напишем пример, в котором 
будем программно менять внешний вид 
панели. Для этого создайте новое при- 
ложение и установите на форму два 
компонента ТРапе1 с палитры компо- 
нентов в апдага. о 

В этом примере не будут меняться 
имена' панелей. Они останутся по умол- 
чанию Рапе11 И Рапе12. Так будет на- 
гляднее. | 

Единственное, что мы поменяем, — 
это свойства СарЕ1оп обеих панелей. 
`У первой я написал ВиЕЕоп1, а у вто- 
рой — Сс1озе. | 

Теперь создадим обработчик события 
ОПМоцзеромп (срабатывает, когда нажа- 
ли кнопку мыши) для первой панели 
и в нем напишем следующий код: 


| Е } > ре Е вы > _ , _Вемей ли 


съейнлег ыы . : |: ме ег. 


№ "ве еше УВ Бане ] Вече щегбу оные 3 


|. ‚Вечейптег! Бане || | еуаесь БАонетед 


С | Веуемес тонн . веет нано 


Рис. 7.8. Различные состояния 
компонента Рапе] 


ргоседике ТЁРохт1.Рапе11Моцзер,омла (бепаег: ТОБЗесе; 


ВиЕбоп: ТМоцзеВиееоп; $511ЁЕ6: Т5Р1ЕЕбеаее; Х, У: Тпёедег); 


Беа1п 
Рапе11.Вехе1О4аеех : =БУТГ.ометеа; 


’ера; 


Одна строка кода меняет вид панели. Создадим еще обработчик события 
ОПМоцзер (срабатывает, когда отпустили нажатую кнопку мыши) для первой па- 
нели. По этому событию меняется вид панели на исходный: 


ргоседиге ТЁГопи1 .Рапе11Мочзе0р (бепдет: ТОБЗесе; 


Висбоп: ТМоцзеВаееоп; $511ЕЁС: Т551 ЕЕЗкасе; Хх, У: Таеедег); 


Беа1п 
Рапе11.Вехе]Олеех : =БУКа1зеа; 


ера; 


Попробуйте запустить программу и нажать на первую панель. Когда вы нажи- 
маете кнопку мыши, панель изменит внешний вид на вогнутый. При отпускании 
мыши панель возвращает исходный вид. Таким образом, панель начинает работать 


как. кнопка. 


Раз так, давайте создадим экзотичную кнопку. Для второй панели изменим 


свойства: 
С веуе1Оцеег на БУВа1зей; 


С веуе1Тппехг на ЪуГомегеа. 
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Теперь создадим обработчик события опмоизерома для второй панели и в нем 
напишем следующее: 
Ргоседиге ТЕопт1.Рапе12Моцзеро\т (бепаег: ТОБзесе; 
Вабсоп: ТМоицзеВиебоп; $5р1Ё6: Т5р1ЕЕ бабе; Х, У: Тобедег); 
Бед1п 
Рапе12.Веуе1Оиеех : =БУомегеа; 
Рапе]12 .Веуе]1Трпех : =БУВа1зеа; 


еп; 


Здесь меняется внешний вид панели на вогнутый. Теперь создадим обработчик 
события ОпМоц5е0р для второй панели. По этому событию мы меняем вид панели 
на ИСХОДНЫЙ: ы 

ргосейдиге ТЕРогит1 .Рапе12МоицзеОр (5епаег: ОБЗесь; 

Виееоп: ТМоцзеВиЕкоп; 5$11Ее: Т$р1Ес5саее; Х, У: Треедег); 
Беа1п | 
Рапе12.Веуе1Ойеехг : =БУКа1зеа; 
Рапе12.Веуе]1Типпехг : =БуГомегеад; 
С1о5е; 


еп; 


ПРИМЕЧАНИЕ. На компакт-диске, прилагаемом к книге, в папке \Примерыь\Глава 7\ 
Рапе!1 вы можете увидеть пример этой программы. 


7.9. Кнопки выбора ТРНад!'оВиНоп 


Эти кнопки очень похожи на ТСвескВох даже по методу работы. У них также 
есть свойство Съескеа, которое отображает их состояние. Если ваа1оВиекоп выде- 
лен, то это свойство равно тгое, иначе равно га1зе. Единственная разница — если 
у. вас на форме есть несколько таких компонентов, то одновременно может быть 
выделен только один. о | 

Давайте посмотрим работу данного механизма селекции кнопок на примере. 
Бросьте на форму несколько компонентов ваа1оВиЕкоп, запустите программу и по- 
пробуйте пощелкать мышью по этим компо- 


нентам. 
ПРИМЕЧАНИЕ. На компакт-диске, прила- ее И 
гаемом к книге, в папке \Примерыь\Глава 7\ о 
АВадюВийоп вы можете увидеть пример этой в "Вадовыетт 
программы. 


с Паевийог2 


Как видите, вы не можете выделить сразу 
два компонента ваа1оВиекоп. А как же тогда 
сделать возможность двойного выбора на 
форме? Например, вам нужно выбрать с по- Рис. 7.9. Группирование 
МОЩЬЮ Кад1оВиЕЕоп пол и семейное положе- компонентов ТваатовиЕЕоп 


. _ С Надо 


_ Палитра компонентов З{апдага 131 


ние человека. Если вы расположите на форме компоненты выбора пола и семейно- 
го положения, то выбрать сможете что-то одно. Для решения этой проблемы ком- 
поненты каа1оВуекоп можно поместить на панели (форма на рис. 7.9). Например, 
на левой панели будет выбор пола, а на правой можно выбирать семейное положе- 
ние. Таким образом на форме будет выбрано два компонента ваа1оВиекоп. = 


ПРИМЕЧАНИЕ. На компакт-диске, прилагаемом к книге, в папке \Примеры\Глава 7\ 
ВадюВийоп1 вы можете увидеть пример этой программы. 


‚Больше ничего нового здесь не скажешь. Работа с этим компонентам происхо- 
дит так же, как и с съесКВох. 


7.10. Списки выбора (7Т1/$1Вох) 


Списки выбора хранят в себе какие-то списки (например, параметров) и дают 
пользователям возможность выбирать из них один или несколько параметров. 

Чтобы получить доступ к строкам списка, нужно воспользоваться свойством 
Теетз объекта тт1з+Вох. Это свойство имеет тип тзег1паз. Это ничего вам не на- 
поминает? Такой же тип у свойства т,1пез класса ТМепо. Значит, работа со строками 
списка нам уже известна и не вызовет затруднений, потому что все, что мы говори- 
ли про эти методы и свойства т,1пез класса тмемо, так же относится и к свойству 
Теешз объекта ть1зЕВох. 

Давайте напишем маленькое приложение с использованием этого компонента. 
Создайте новый проект. Установите на форме один компонент ть+зеВох и один 
компонент тТЕазе. Теперь дважды щелкните по свойству теетз компонента 
.1$ЕВох1, И перед вами откроется уже знакомый редактор строк. Наберем в нем 
названия всех основных цветов: 


О белый; О черный; С салатный; 

С красный; — О оранжевый; С голубой; 

С желтый; С фиолетовый; С выбирай себе любой :). 
С зеленый; О бирюзовый; 


После этого нажмите кнопку ОК, чтобы 
сохранить введенные данные. У вас должна вн 
получиться форма, как показано на рис. 7.10. :. Белый 


>“ ‚ 1 Красный 
Давайте теперь создадим обработчик со- 
бытия 0пс11ск для списка выбора. В нем на- 
пишем следующее: 


Еа161.Техе: =11$6Вох1. Теешс. 
ЗЕг1па$ [111$6Вох1.ТбемТпаех]; 


Свойство ТЕештидех объекта 115ЕВох1 указы- 
вает на выделенную строку списка выбора. С по- 


МОЩЬЮ —1Г15$%Вох1.ТЕетз.бег1лтаз Мы можем. 


получить доступ ко всем строкам списка. В ре- 
зультате получается, что. мы присваиваем в ЕЯ1е1 
текст выделенной строки в списке выбора. 


"| Желтый 
. ] Зеленый 
; Черный 


Оранжевый 
. | Фиолетовый 
']Бирюзовый _ 
- Салатный 


. ЭГолпибес 


Рис. 7.10. Форма будущей программы . 
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ПРИМЕЧАНИЕ. На компакт-диске, прилагаемом к книге, в папке \Примеры\Глава 7\И$Вох 
вы можете увидеть пример этой программы. 


Все очень похоже на работу с тмемо. Для большей ясности давайте добавим 
к нашему приложению еще две кнопки Добавить и Удалить строку. 

Для кнопки Добавить | В обработчике события 0пс11ск напишем следую- 
щий КОД: 

.153ЕВох1.Теемз .Ааа('Новая строка’) 


Для кнопки Удалить напишем такой текст программы: 
Г1$ЕВох1.Теемз .Ре1еее (.1$ЕВох1 .ТЕешТпаех); 


Очевидно, что комментарии здесь излишни. Получилась полная аналогия 
с ТМепо. — 

‚ Бывают ситуации, когда необходимо выбрать несколько элементов в списке. 
Для этого у компонента 1,1 зЕВох есть свойство Ми115е1ес+е. Если в нем установить 
значение сгое, то можно будет выбирать мышью несколько строк. Для этого мож- 
но щелкать по нужным элементам, удерживая на клавиатуре кнопку.<СИТ>. 

Создадим пример, который проиллюстрирует работу компонента т,1з%Вох с воЗз- 
можностью множественного выбора. Для ‘этого на форму поместим один компо- 
нент т15зЕВох (назовем его Ма1е111зЕВох), один компонент мемо (назовем его 
Вези1ЕМето) и одну кнопку. В компонент 11зЕВох нужно ввести несколько значе- 
ний, чтобы было что выделять, и установить у него свойство Ми1Е15е1есе В Егхие. 

По нажатии кнопки мы будем искать все выделенные строки и переносить их 
В Вези1 ЕМето. По событию опс11ск для кнопки мыши напишем код, который при- 
веден в листинге 7.3. 


ргоседиге ТЕоги1 .СрескВаебопСс11ск (Зепаег: ТОБЗесе) ; 
Бед1п | 


Веза1ЕМето.С1еаг; 


1Е Мо111156Вох.бе1есееа[0] ЕПеп 
Веза1ЕМемо .Г1пез.Ааа (Ми1 6 1115ЕВох. Теет$ .бех1паз[0]);- 


1Е Ми1Е1Т15ЕВох.5е1ескеа[1] ЕВеп 
Вези1ЕМемо.Т1пез.АЯа (Ми1е1т1 Вох. ТЕеше .5ех1паз[1]); 
‚ еп; 

В первой строке очищается содержимое компонента мемо. Это чисто косметиче- 
ское действие, чтобы наша программа выглядела более эргономично. 

У компонента 11зеВох есть свойство 5е1есееа. Это свойство имеет тип массива 
в виде булевых значений. Таких значений ровно столько же, сколько и строк в ком- 
поненте т,15ЕВох. Чтобы узнать, выделена ли определенная строка, нужно прове- 
рить соответствующий элемент в массиве 5е1есе+. 

Для иллюстрации сказанного проверяется, выделена ли нулевая строка 
Ми111,15ЕВох.бе1ессеа[0]. Если да, то текст этой строки добавляется в компонент 
Мето. Точно таким же образом проверяется первая строка. 
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‚Алгоритм проверки, показанный здесь, далеко не совершенен, потому что мы 
еще не знаем, что такое циклы, и не увидели их работу на практике. В дальнейшем 
вы сможете улучшить этот пример и сделать его более универсальным, а пока нам 
достаточно и этого. | 


7.11. Ниспадающие списки (ТСотБоВох) 


Ниспадающие списки по работе своих свойств и методов похожи на списки вы- 
бора. Я бы сказал, что это полная копия, только выглядит по-другому и в них нель- 
зя выбирать сразу несколько элементов. 

Давайте создадим приложение, похожее 
на предыдущее, только вместо т,1зЕВох бу- 
дем использовать СопровВох. На рис. 7.11] 
можно увидеть форму будущей программы. 

Теперь создадим обработчик события 
ОпСпепде для  ниспадающего списка и Дрели: 
СопфоВох1. Это событие происходит, когда Добавить. | Е брать 
пользователь выбрал какой-нибудь элемент НА УИ 
списка. Здесь напишем следующий код. 


ЕЯ1%1.Техе : =СотроВох1 .Теемз. 
бЕ’г1па$ [СошбоВох1 .ТбемТпаех]; 


Рот РГ. 


Рис. 7.11. Форма будущей программы. 


Как видите, это полная копия кода из 
предыдущего примера, только используется другое имя компонента. 


Теперь напишем код для кнопки Добавить. 
СотроВох1 .Теемз .Ааа ('Новая строка’) 


Для кнопки Удалить код будет следующим: 
СопроВох1 .ТеЕем$ .Ре1еее (СопфоВох1 .ТеешТпаех); 


ПРИМЕЧАНИЕ. На компакт-диске, прилагаемом к книге, в папке \Примеры\Глава 7\ 
СотБоВох вы можете увидеть пример этой программы. 


Как видите, здесь наблюдается полная аналогия со списком выбора 
И ТМепо. Содержимое списков МОЖНО сохранять С ПОМОЩЬЮ 
СоптфоВох1 .Теемз .бахуеТоЕ11е (‘Имя файла’), а загружать С ПОМОЩЬЮ 
СопЬоВох1 . ТЕешмз .ГоаЯЕхомЕ11е (‘Имя файла’). | 

Существует несколько типов ниспадающих списков. За-тип списка отвечает 
СВОЙСТВО ЗЕ УТе. 


ПРИМЕЧАНИЕ. Это свойство можно изучить на примере маленькой программы, кото- 
рую вы можете найти на компакт-диске, прилагаемом к книге, в папке \Примеры\ 
Глава 7\СотБоВох1. Она демонстрирует все типы списков в действии. На рис. 7.12 
показано главное окно этой программы. 


Этот пример не может показать всей разницы стилей, поэтому рассмотрим еще 
небольшое описание. 


О] сзогорромпт — основной стиль. При нем вы можете не только выбирать значения 
из списка, но и вводить в поле ввода свое значение. 
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С] сзргорромп11$Е — при этом стиле 
можно только выбирать из списка. АНИ 

С сзоупегргам1хеа — при этом стиле — ‘овбордони- 
вы можете рисовать элементы сами г 
с помощью графических средств (чуть 
позже будет показано, как это делает- 
ся). Высота элементов фиксированная. 


_ абон он: 


С] сзомтекрхам\Уаг1аЪ1е — при этом сти- 
ле вы можете рисовать элементы сами. 
Отличается от предыдущего тем, что 
высота элементов не фиксированная. 


Рис. 7.12. Программа, отображающая 


О с55$1р1е — только строка ввода без 
разные типы ниспадающих списков 


ниспадающего списка. Компонент бу- 
дет выглядеть, как ТЕЗ: с. 


Позже в этой книге вам будет показа- 
но, как рисовать внутри списков выбора и ниспадающих списков. Пока что мы 
графику не рассматривали и не будем торопиться. 


7.12. Полосы прокрутки (ТЗсгоПВаг) 


Полосы прокрутки очень часто используются для прокручивания какого-либо 
действия. Например, когда вы слушаете музыку, вы можете прокрутить ее в любое 
место с помощью простой полосы прокрутки. Если информация не помещается 
в окно, ее также прокручивают с помощью таких полос, но в большинстве случаев 
это делается автоматически. 

Давайте посмотрим на полосу прокрутки в действии. Создайте новое приложение. 
Сформируйте на форме один компонент тгаЪе1 и одну полосу прокрутки Т5сго1Ваг. 

У компонента гаье11 измените свойство Саре1оп на "0". Теперь создайте обра- 
ботчик события опсвапае для полосы прокрутки и напишите там следующее: 

Тафе11.Саре1оп: =ТпЕТобег (5$сго11]1Вау1.Роз1Е1оп);. 


В этом коде мы присваиваем свойству СарЕ1оп компонента гаъе11 значение те- 
кущей позиции ползунка полосы прокрутки. Текущее значение ползунка можно 
получить с помощью свойства Роз1Е1оп ОбЪекта $сго11Вах1. Только тут есть одно 
"НО". Это свойство имеет тип "целое число", а свойство СарЕ1зоп компонента 
Тафе11 — это строка. Поэтому нам надо превратить целое число в строку. Для это- 
го есть функция тпЕТобех. Ей нужно передать число, а она нам вернет строку. По- 
этому если вызвать эту функцию с параметром текущей позиции ползунка 
ТпЕТобеЕх ($сго11Вах1.Роз$1Е1оп), результат ее работы можно присвоить свойству 
СарЕ1оп КОМПОНента ГаЪе11. 

Попробуйте запустить программу и подвигать ползунок. Значение позиции бу- 
дет отображаться в компоненте гаЪе11. 


ПРИМЕЧАНИЕ. На компакт-диске, прилагаемом к книге, в папке \Примеры\Глава 7\ 
эсго!Ваг вы можете увидеть пример этой программы. 
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В этой программе мы написали пример горизонтальной полосы прокрутки. Что- 
бы сделать ее вертикальной, нужно свойство кзпа поменять на з5УегЕ1са1. И еще, 
значение ползунка изменяется от 0 до 100. Чтобы изменить эти значения, есть 
свойства м1п (по умолчанию равно нулю) и мах (по умолчанию равно 100). Больше 
ничего особенного в работе полос прокрутки нет. 


7.13. Группировка объектов (ТСгоирВох) 


Компонент сгорВох очень удобно использовать для группировки каких-то ком- 
понентов. На вид это простая панель с заголовком наверху (рис. 7.13). 


|. Пример работы с @гоирВох 


Основные 7 `г7Диапазон-————^-1 “Дополнительные 


и ® : а 1 Е Г _Заг оловок _ | 


и : с Текущую в . - 


| 
| 
} 
} 
| 
} 
1 
1 
1 
] 
} 
+ 


Рис. 7.13. Внешний вид компонента Рис. 7.14. Пример, отображающий работу 
СгоарВох компонента СгозрВох 


За текст, отображаемый в заголовке, отвечает свойство СарЕ1оп. Больше ничего 
особенного эта панель делать не умеет. У нее нет никаких особых свойств или ме- 
тодов. Ниже указывается маленькая программа, чтобы показать, как можно исполь- 
зовать компонент ТсгопрВох. 


ПРИМЕЧАНИЕ. Пример этой программы вы можете увидеть на компакт-диске, прилагае- 
мом ккниге, в папке \Примерь\Глава 7\СгоурВох, а результат ее работы — на рис. 7.14. 


Панель тскопрвох в основном используют для группировки компонентов о 
ТКаа1оВаекоп, и мы будем делать так же. 


7.14. Группа компонентов АадГоВиНоп 
(ТРафо@гоир) — 


Если установить этот компонент на форму, то на первый взгляд он выглядит как 
простой ТбгоцрВох. Но это только на первый взгляд. 

Создайте новый проект и бросьте на него один компонент тваа1овох. Щелкните 
по свойству тЕемз, и перед вами появится уже знакомый редактор строк. Введите 
туда три строки: 

Все 

Выделенные 


Текущую 
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Нажмите ОК, и вы увидите сгорВох, содержащий в себе три компонента 
ТВаа1оВох (рис. 7.15). Зачем же нужен такой гибрид? Потерпите немного, пока мы 
не напишем программный код до конца. Тогда вы сможете оценить все прелести 
этого гибрида и, возможно, полюбите его. 


ГП араметры печати|? 


г Всё о т. | 


| 
| 
| 


Рис. 7.15. Внешний вид компонента 
ТВаЯ1оСгоир — Рис. 7.16. Форма будущей программы 


Установите на форму еще одну кнопку, одну строку ввода и один ТЬаье1. Рас- 
положите их так, как показано на рис. 7.16. Теперь создадим обработчик события 
0пС11ск для компонента ваЯ1обголр1. В нем напишем следующее: 

Гаъе11.Саре1оп: =ТиЕТобег (Ва@1обкоцр1 .теештидех); 


Свойство ТЕептпдех компонента Каа1оСбгоир1 Показывает, какой компонент 
сейчас выделен. Компоненты пронумерованы В таком же порядке, как записаны их 
имена в списке. Это свойство имеет тип целого числа, поэтому его приходится пре- 
вращать в строку с помощью функции тпЕТобек. 

Для события, вызываемого нажатием кнопки, напишем следующую строку кода: 

Еа1Е1.Техе: =ТпЕТобех (Каа1оСгоцр1 .тЕештпаех); | 


В этом программном коде номер выделенного компонента помещается в каз к1. 

А теперь посмотрим на преимущества данного компонента. Представим, что 
у нас просто стоит три компонента тваа1оВае коп. Чтобы узнать, какой из них сей- 
час выделен, нужно проверить свойство спескеа всех этих компонентов. А при ис- 
пользовании группы тва@{обгоир ничего этого делать не надо. Достаточно прове- 
рить СВОЙСТВО ТЕешТпаех Компонента. Ткад1обгоир, и нам уже известен номер 
выделенного элемента. 

Несмотря на это преимущество, программисты им очень редко пользуются 
в своих программах, потому что невозможно точно позиционировать элементы 
ВаЯ1оВиесоп Внутри группы. | 


7.15. Список действий ТАСНОоПЫ$1 


Когда в Реры впервые появился компонент ТАсЕ1опт1зе, я не увидел преиму- 
ществ от его использования и не видел еще долгое время, пока не познакомился 
с компонентом тАсЕ1опМападех. Компоненты в чем-то схожи, но второй более про- 
двинутый и имеет лучшие возможности. Но несмотря на это, тасЕ1опт1зЕ устарел 
не до конца, и вы найдете ему применение. 
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Чтобы понять, для чего нужен компонент, достаточно внимательно рассмотреть 

его название, которое можно перевести как список действий. Компонент хранит 
список действий, которые вы можете использовать в приложении. А зачем они 

нужны в виде списка? | 

Допустим, что какое-то событие может вызываться из нескольких мест про- 
граммы или от разных компонентов. Классический пример — пункт меню и дубли- 
рующая кнопка в панели задач. В большинстве программ присутствует панель за- 
дач, в которой есть кнопки, дублирующие действия меню. Вы можете. и пункту 
меню и кнопке назначить один и тот же обработчик события, но управлять этим 
будет все равно не так удобно. Намного лучше будет создать действие дАсЕ1оп 
В СПИСКЕ АсЕ1опт.1$Е и назначить его кнопке и пункту меню. 

Давайте создадим пример, который будет использовать действия. Создайте но- 
вое приложение и поместите на него компонент Асе1опь1зе. Обратите внимание, 
что он выглядит как прямоугольник с иконкой, и такой компонент не будет види- 
мым во время выполнения программы. 

Список действий и не должен быть 
виден, поэтому данный класс проис- ИН 
ХОДИТ Не ОТ ТСопЕго1, а ОТ ТСомропепе. 5, х | & + — —_ о 

Дважды щелкните по компоненту а 
АСЕ1опт1зе, и перед вами откроется от 
редактор действий (рис. 7.17). Окно 
разделено на две половины, слева вы 
можете видеть категории, а справа 
список действий выбранной катего- 
рии. На панели инструментов четыре Рис. 7.17. Окно управления действиями 
кнопки. Давайте посмотрим, для чего 
они предназначены, начиная с левой: 


С] создание нового действия; 


С) удалить выделенное действие; 
О) поднять выделенное действие на одну позицию вверх; 
С опустить выделенное действие на одну позицию вниз. 


Последние две кнопки используются для упорядочивания действий и чисто для 
эстетических целей. 

Итак, создадим новое действие. Для этого можно нажать соответствующую кноп- 
ку на панели задач или просто нажать клавишу <[15>. Выделите созданное действие 
и посмотрите в объектный инспектор. Здесь у нас есть следующие действия: 


С дллеосвеск — если это свойство равно истине, то свойство съескеа будет авто- 
матически переключаться при выполнении действия; 


С] саре1оп — заголовок действия. Этот заголовок будет копироваться в свойство 
СарЕ1оп всем компонентам, которым будет назначено данное действие; 


О сакедогу — категория. Здесь можно выбрать уже существующую или напеча- 
тать новое имя для создания новой категории; 


С ЕлаБ1еа — доступно ли действие; 
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С скгоиртпдех — индекс группы. Если у двух действий указан один и тот же ин- 
декс группы, т. е. они сгруппированы в одну группу, то при выделении одного 
действия (свойства съескеа устанавливаются ские) другие действия этой группы 
сбрасываются (свойства свескеа устанавливаются Еа1зе); 


(С тпадетпаех — индекс иконки. С иконками мы еще не работали, но пару слов 
скажу. У самого компонента АсЕ1опЪ1зЕ есть свойство Тмадез, где можно ука- 
зать список иконок (компонент тпадезт1з(). Так вот, назначив действию кар- 
тинку из этого списка, т. е. указав индекс картинки, она будет появляться на па- 
нелях и меню, поддерживающих картинки; 


С $зесопдагу$вогесиЕ — вторичное сочетание клавиш быстрого. вызова; 
С зтогесие — первичное сочетание клавиш быстрого вызова. 


Давайте назовем действие Выход, а на вкладке Еуеп($ создадим обработчик со- 
бытия опЕхесиее и напишем в нем всего одну строку — вызов метода с1озе(). 

Теперь в свойстве 5вогЕсое напишите езс, т. е. горячей клавишей будет клави- 
ша <Е$с>. Уже сейчас вы можете запустить программу, нажать <Е5с> — и соот- 
ветствующее событие сработает, и будет вызван метод С1озе(). И это несмотря на 
то, что действие еще ничему не было назначено. 

Теперь попробуем поместить на форму кнопку твоееоп и в свойстве АсЕ1оп ука- 
зать имя созданного вами ранее действия. Обратите внимание, что заголовок кноп- 
ки автоматически изменится. Обратное действие также работает. Если изменить 
СВОЙСТВО СарЕ1оп У действия, то изменится заголовок у всех компонентов, которым 
назначено действие. Это очень удобно — из одного контейнера действий управлять 
ими, изменять заголовки, горячие клавиши, обработку сообщения ит. д. 


Глава 8 


‚Учимся программировать 


В’этой главе будут рассматриваться основные принципы программирования. 
Здесь мы познакомимся с циклами на практике, увидим различные приемы про- 
граммирования, и все это будет сопровождаться большим количеством полезных 
примеров. 

Все знания приходят с практикой. Поэтому только самостоятельная работа по- 
зволит закрепить изучаемый материал: Здесь следует учесть тот факт, что все ис- 
ходные коды, которые представлены на компакт-диске, прилагаемом к книге, при- 
ведены только для того случая, когда у вас что-то не получается или если что-то не 
понятно из рисунков в книге, и нужно увидеть реальную форму. Вы можете по- 
смотреть их содержимое, но после этого должны повторить все действия самостоя- 
тельно, чтобы знания лучше отложились в памяти. 


8.1. Циклы ГОг...10...Ч0 


Циклы — это основа любого программирования. Мы будем использовать их 
достаточно часто. Когда ранее строилась логика программы, циклы использовались 
для решения задачи с факториалом. Тогда мы писали программу в форме блок- 
схемы. Напомню, как выглядит логика цикла (листинг 8.1). 


От 1'до 5 выполнять 
Начало цикла 
В: =К* ПМОЕХ; 
ТМОЕХ : =1МОЕХ+1; 


Конец цикла 


Это логика расчета факториала. Давайте перенесем ее на язык программирова- 
ния Реары. Цикл в Реары оформляется следующим образом: 
Еог счетчик := начальное_значение во конечное_значение ао 
действие; 


После слова Еог нужно присвоить какой-нибудь переменной начальное значе- 
ние. Эта переменная будет использоваться в качестве счетчика выполнения цикла. 
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После каждого выполнения действия этот счетчик будет увеличиваться на единицу, 
пока переменная не превысит конечного значения. В качестве счетчика я привык 
использовать переменную с именем 1паех ИЛИ 1, НО некоторые специалисты счи- 
тают, что и счетчикам нужно давать более внятные имена. На мой взгляд, более 
внятного имени далеко не всегда МОЖНО придумать. | 

В общем виде цикл выглядит так: | 

Еог...во...Яо 

Действие1 


Рассмотрим пример. 
\уах 
1паех: Тобедег; 
5ит: Тпбедег; 
ЕпаСоцпе : Тпбедег; 
Бед1п 
Зи: =0; о 
Бог 1п49ех:=0 во 5 @9о 
Зи: =бит+1паех; 

епа; 

В этом примере объявляются две переменные 1паех И зим типа "целое число". 
Сначала переменной $им присваивается значение 0. После этого запускается ЦИКЛ, 
в котором переменная 1п4ех будет изменяться от 0 до 5. 

‚Теперь посмотрим поэтапно, что здесь происходит. 

1. На первом этапе переменная 1паех равна 0. 5 тоже равна нулю, значит, вы- 

полнится операция $: =0+0. Результат зим = 0; 

2. На втором этапе 1пдех увеличена на [, значит, выполнится действие 5имт: =0+1. 

Результат 5 = 1: 

3. Здесь 1паех увеличена на | и уже равна 2, а $им 

вие сим: =1+2. Результат зи = 3. 

4. Здесь 1пдех увеличена на | и уже равна 3, а 5им = 3. Значит, выполнится дейст- 

вие 5им: =3+3. Результат $им = 6. 

5. Здесь 1паех увеличена на | и уже равна 4, а Зим 
вие им: =4+6. Результат 5ит = 10. | 
6. Здесь 1пдех увеличена на | и уже равна 5, а Зим = 10. Значит, выполнится дей- 

ствие $им: =5+10. Результат 5 = 15. 

Заметьте, что.мы не увеличиваем значение переменной 1паех, используя для 
этого определенные команды. Значение увеличивается автоматически, потому что 
эта переменная объявлена счетчиком в цикле Еох. 

Давайте перенесем рассмотренный выше 
‚ программный код непосредственно в програм- 
му, чтобы мы могли убедиться в этом на реаль- 
ном примере. Создайте новое приложение. По- 
местите на форме два компонента тгаъе1, два 
компонента: тЕазе и одну кнопку. Форма бу- 
дущей программы показана на рис. 8.1. Рис. 8.1. Форма будущей программы 


1. Значит, выполнится дейст- 


6. Значит, выполнится дейст- 
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Компонент Еа1=1 переименован в ЕпаЕа1 +, а Еа1е2 переименован в Вези1%Еа1 Е. 
Теперь по нажатии кнопки (обработчик события опс11ск для кнопки, которое ге- 
нерируется, когда пользователь нажал на кнопке) пишем код, представленный 
в листинге 8.2. 


ргоседаге ТКГогт1 .Са1са1акеВие6опС11ск (бепаег: ТОБЗесе); 
уаг 

1паех: Тпбедег; 

зит: Тпседег; 

ЕпаСоппе ; Тпбесег; 
Ъеа1п 


ЕпаСоцп : =56уТоТпе (ЕраЕЯ1е .Техе); 


Еох 1паех:=0 во ЕпаСбоцпЕ @ао 
Зи: =5и1+1паех; 


Вези1еЕЯ1е.Техе : =ТпЕТобех (бум); 


ета; 


В принципе, текст тот же самый. Единственная разница заключается в том, что 
цикл запускается, начиная от 0 до числа, введенного в компонент ЕпаЕа1 +. ЕпаЕа1е 
содержит текст, а нам нужно превратить его в число, поэтому мы используем: 
функцию 5ЕхТотре для преобразования строки в число. Эта функция работает так 
же, как и тпеТозек, которая наоборот преобразовывала число в строку. 

Результат преобразования сохраняется в переменной ЕпаСоцпе: 

ЕПАаСоипЕ := ЗеуТоТпе.(ЕпЯЕЯ1е .Техе); 


После этого запускается цикл, в котором переменная 1паех будет изменятся от 
0 до значения Епасоипе (в котором находится число, введенное в ЕпаЕа1®). 
Еог 1паех:=0 во ЕпЯаСочпе @о 


Запустите программу и введите в строку Конечное значение число 5. После 
этого нажмите на кнопку, и в строке результата должно появиться число 15. 


ПРИМЕЧАНИЕ. На компакт-диске, прилагаемом к книге, в папке \Примерь\Глава8\ 
Юг. 40..40 вы можете увидеть пример этой программы. | 


Здесь необходимо еще отметить то, что после цикла Еог будет выполняться 
только одно действие. Например, если вы захотите выполнить два действия подряд, 
то вы Должны заключить их в скобки Беач1т И епа, как это показано в следующем 
примере. 

ох 1паех:=0 со ЕпаСоцие @о 

реа1п 
бит: =бит-+Тпаех; 
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им: =бит+1 ;. 
епа; 


Здесь на каждом шаге цикла 5ою увеличивается еще на единицу. Если вы по- 
пробуете написать так: | 

Еог 1паех:=0 Бо ЕпаСоцпЕ ао 
бит: =бии+Ттаех; | 


\ 


и: =биа+1; 


то выполняться в цикле будет только строка $ит: =5'и+1пдех. Вторая строка 
5ит: =5и1+1 выполнится только по окончании цикла. | 


СОВЕТ. Если вы что-то не поняли в предыдущем примере, вернитесь к главе, где 
описывались блок-схемы. Там был рассмотрен пример, который работает как цикл 
Еог...Ко...Яо. Попробуйте точно так же самостоятельно нарисовать блок-схему 
для данного примера и мысленно пройдите ее по шагам. 


8.2. Циклы и/рйе 


Еще одной разновидностью цикла является цикл *Ъ11е. Это слово переводится 
как "пока". Это значит, что цикл будет выполняться, пока выполняется условие. 
У цикла нет переменной счетчика, а только условие. Если вы хотите иметь счетчик, 
то вы должны объявить переменную и самостоятельно увеличивать ее во время 
выполнения цикла. | 

В общем виде цикл выглядит следующим образом: 

у?1]е условие @о 

действие 


Такой цикл выполняется, пока указанное условие возвращает истину. Сразу рас- 
смотрим пример: 
уах 
1паех: 1п6едег; 
Беч1п 
1паех:=0; 


у11е 1паех<10 ао 
1паех: =1п49ех+1; 
еп; 


В этом примере мы объявляем переменную 1пдех. В первой строке кода при- 
сваиваем ей 0. После этого запускается цикл. В условии записан код — 1паех<10. 
Это значит, что будет выполняться следующее действие (1паех: =119ех+1), пока 
переменная :пдех меньше 10. 

В данном случае в качестве счетчика используется переменная 1паех и цикл вы- 
полняется, пока верно условие. В отличие от цикла ох, этот цикл не увеличивает 
автоматически счетчик, поэтому мы должны это сделать самостоятельно. 


ВНИМАНИЕ. Если забыть про увеличение счетчика в цикле, он может стать бесконеч- 


ным и "подвесить" программу, т. к. условие окажется вечно истинным. В этом случае 
программа не сможет прервать цикл. 
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В цикле мв11е также выполняется только одно действие. Если вы захотите вы- 
полнить в цикле сразу два действия, То должны заключить их в операторные скоб- 
ки Бедар И епа. | 

Давайте перепишем предыдущий пример, но с использованием цикла мь11е. 
Измените код по нажатии кнопки (событие опс11ск) на код, показанный 
в листинге 8.3. | 


ргоседиге ТЕо1111 .Са1си1аееВаеЕеопс11ск (5епдег: ТОБ]есе); 


уах 
1паех: Тпбедег; 
ит: Тпбедег; 
ЕраСочцп® : Тпбедег; 
Бед1п 


1паех:=0; 
ЕпаСочпЕ : =56уТоТпе (ЕпЯаЕЯ1е .Техе); 


у11е 1паех<ЕпЯСоциЕ до 
Беатп 

Зит: =5миа+1паех; 

1паех: =1паех+1; 
епа; 


Веза1ЕЕа1е.Техе: =ТоЕеТобег (бит); 
епЯ; 


В данном примере надо обнулять не только переменную $, но и 1паех, чтобы 
начальное значение было равно нулю, и цикл шел от нуля до введенного значения. 
Обратите также внимание на то, что здесь нужно самостоятельно увеличивать пе- 
ременную 1паех (1паех: =1п4ех+1). Для этого данная строка добавлена в цикл. Она 
объединена с расчетом суммы при помощи операторных скобок ъеч:п И епа. | 

Попробуйте запустить программу и ввести число 5. Результатом расчета будет 
10. Если вы помните предыдущий пример, там результат был 15. В чем проблема? 
Почему разные результаты? В прошлом примере мы выполняли цикл от 0 до 5 
включительно. Здесь будет выполняться цикл от 0 и до того момента, пока выпол- 
няется условие 1п4ех<5. Когда 1п4ех=5, условие не выполнится, и расчет с цифрой 
5 не будет производиться. 

Для решения этой проблемы можно поменять условие цикла на 1пдех<=5 (пере- 
менная 1пдех меньше или равна ЕпаСоцпе). В этом случае расчет с цифрой 5 также 
будет произведен. Или можно вводить цифру 6. 


ПРИМЕЧАНИЕ. На компакт-диске, прилагаемом к книге, в папке \Примеры\Глава 8\мтйе 
вы можете увидеть пример этой программы. 
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8.3. Циклы РЯереа1 


Теперь давайте разберем еще один тип циклов гереак...ипЕ11. Этот тип цикла 
похож на \в11е. Даже смысл цикла похож. Он означает — выполнять действия, 
пока не выполнится определенное условие. Только тут есть пара отличий. 


О] В цикле хъ:1е действия выполнялись, пока условие верно. В цикле гереае дей- 
_ ствия будут выполняться, пока условие неверно и прекращается, когда оно ста- 
нет верным. 


С В цикле „ъ11е выполнение условия проверяется перед началом действий. Это 
значит, что если условие заведомо неверно, то действия цикла не будут выпол- 
нены. В цикле гереае сначала выполняется действие, а потом происходит про- 
верка. Это значит, что если условие заведомо неверно, действие все равно будет 
выполнено один раз, просто на второй проход цикла перехода не будет. 


В общем виде цикл гереа+ выглядит так: 
гереаЕе 

действия 
0611 Условие; 


Обратите внимание, что в этом случае, действий может быть несколько. Тут уже 
не надо объединять несколько действий в Ъед1п...еп@, ПОТОМУ ЧТО гереаЕ.. .\цпе11 
уже действует как объединение нескольких действий. 

Давайте рассмотрим надоевший пример с использованием этого типа цикла, по- 
казанный в листинге 8.4. 


ргоседите ТГоги1.Са1са1а к еВаеЕопС11ск (бепаег: ТОБзесе); 


уах 
1паех: Тпбедег; 
зим: Тпбедег; 
ЕлЯСочпЕ : Тобедег; 
Бед1п 
им: =0; 


_1паех:=0; 
ЕпаСочцпе : =5ЕхТотпе (ЕпПЯЕЯ1 Е .Техе); 


гереаЕ 
ит: =бим+1паех; , 
1паех: =1паех+1; 


111611 1паех>ЕпаСочпе; 


Везц1еЕЯ1* .Техе: =ТпЕТобег (бам); 
ерЯ; 
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Здесь действия будут выполняться в цикле, пока переменная 1паех не станет 
больше числа, указанного в ЕпаСоипе. 


ПРИМЕЧАНИЕ: На компакт-диске, прилагаемом к книге, в папке \Примеры\Глава 8\гереа{ 
вы можете увидеть пример этой программы. 


8.4. Управление циклами 


Работой цикла можно еще и управлять. В Оеры есть два оператора управле- 
НИЯ — Ъгеак И сопЕ1пае. Начнем рассмотрение с оператора сопе1пие. 

Допустим, надо разделить число 10 на числа начиная от —3 до 3 и вывести ре- 
зультат в т7115ЕВох. Для решения этой проблемы напрашивается цикл, который бу- 
дет выполняться от —3 до +3. Примерный код показан в листинге 8.5. | 


ргоседоге ТРоги1.Са1са]1асеВиеопС11ск (беп@ег: ТОБдес*); 
уах 

т, к: Табедег; 
Бед1и 

Еог 1:=-3 60 3 ао 

ред1п 

х:=гоцпа (10/1); 

Г1$3ЕВох1. ТЕет$ .Ааа('10/'+ТоЕТобех (1)+'='+ТрЕТобех (г)); 
епа; 
епа; 


В этом примере запускается цикл, в котором переменная : будет изменяться 
от —3 до 3. На каждом шаге делится 10 на значение 1 и сохраняется результат в пе- 
ременной г. 

При делении используется функция гота, которая округляет переданное ей 
значение. В качестве исходного значения мы передаем ей результат деления 10 на 
переменную 1, т.е. гоипа(10/1). Таким образом, в переменную г будет записан 
округленный до целого результат деления. | 

Следующим действием является добавление результата в 115ЕВох1, с одновре- 
менным преобразованием переменной г в строку. 

Давайте посмотрим, что произойдет, когда переменная 1 будет равна 0. 
В этом случае число 10 будет делиться на 0, а значит, произойдет ошибка, потому 
что на 0 делить нельзя. Как же тогда выйти из этой ситуации? Можно на каждом 
этапе цикла проверять значение 1, и если оно равно 0, то не выполнять никаких 
действий. Два возможных решения приведены в листингах 8.6 и 8.7. 


ргосеаиге ТЕоги1 .Са1са]1абеВаеЕопС11ск (бепаег: ТОБ]ес®); 
ах 


1, г: Тобедег; 
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Беа1п 
Рог 1:=-3 со 3 ао 
Ред1п // Это начало для оператора Ёог 
1Е 1<>0 (реп 
Бедлп // Это начало для оператора 1Ё 
г: =коцпа (10/1); р 
Т4ЗЕВох1 .ТЕешз.АЯЯ(‘10//+ТпЕТобЕх (1)+/='+ТрЕТоЗЕх (х));. 
епЯ;// Этот епа для оператора 1Е 
| еп; // Этот епа для оператора Ёог 


ета; 


В этом примере на каждом этапе проверяется значение 1, и если оно не равно 0, 
то только в этом случае производятся вычисления. 

Это очень простое решение для маленьких и простых программ. Но если ваш 
цикл большой и выполняет много действий, то такое решение будет как минимум 
неудобно и может потеряться "читабельность" кода. В худшем случае, вообще мо-- 
жет ничего не получиться. Вот тут на помощь приходит оператор сопе1пле. 


а 


ргоседиге ТРогт1.Са1са]абеВаесопС11ск (бепаег: ТОБ)ес®); 
‚ уах 

1, г: Тпбедег; 
Беа1п 

Еог 1:=-3 60 3 ао 

ред1п // Это начало для оператора Ёох’ 


1Е Т=0 степ 

Бед1п // Это начало для оператора 1ЕЁ 
Г15ЕВох1.Т$еиз.Ааа('На ноль делить нельзя'); 
СопЕ1пце; 


епЯ;// Этот епа для оператора 1 


у: =кочцпа (10/1); 

Т1$ЕВох1 .ТеЕетс.АЯЯ ('10/'+ТпЕТобех (1)+'='+ТпЕТобех (х)); 
епЯ; // Этот еп для оператора Еог 
епа; 


В этом примере мы также проверяем на каждом этапе значение переменной 3. 
Если оно равно нулю, то выводится сообщение в т15ЕВох1 0 том, что на ноль де- 
лить нельзя, и выполняется оператор сопе1пае. Как только программа встречает 
такой оператор, она сразу прерывает дальнейшее выполнение цикла и переходит на 
следующий шаг. Это то же самое, что выполнить команду "Остановить дальнейшее 
выполнение программы, увеличить значение переменной 1 и начать выполнение 
цикла со следующим значением". 
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Как только программа встречает опера- 
тор сопЕ1пае, она перескакивает на конец 
цикла, где увеличивается значение счетчи- 
ка (в данном случае переменная 1) и про- 
должается выполнение уже со следующего 
шага. | 

На рис. 8.2 показана форма с результа- 
том работы нашего примера. 


ПРИМЕЧАНИЕ. На компакт-диске, при- 
лагаемом к книге, в папке \Примеры\ 
Глава 8\сопипие вы можете увидеть при- 
мер этой программы. 


Использование сопЕ1пие вместе с ЦИК- 
лом ог достаточно удобно и безопасно, 
В отличие ОТ ЦИКЛОВ м1] е. ИЛИ 
тереа+.. .ипЕ11. Посмотрим на следую- 
щий пример: 

1:=-3 

у111]е 1<3 ао 

Ъед1п 

1Е 1=0 ЕБеп 
сопЕ1пце; 


х:=гойпа (10/1); 


147 


>. На ноль делить нельзя 
^ |160 =10 


Рис. 8.2. Результат работы программы 


Г15©Вох1 . Теет$ . АЯ ('10/'+ТпЕТобЕг (1) +'='+ТпЕТобег (г)); 


1:=1+1; 
ева; 


В этом примере также 10 делится на числа от -3 до 3, но на этот раз задача ре- 
шается с помощью цикла мь11е. Чтобы не встретить ошибку деления на 0, в цикле 
проверяется переменная 1 на равенство нулю, и если это так, то выполняется опе- 
ратор сопе1пче. А теперь подумайте, что произойдет, когда 1 действительно будет 
равна нулю. В начале цикла произойдет проверка, которая даст истину, и выпол- 
‘нится оператор сопе1пие. Шаг цикла прервется и начнется с самого начала, при 
этом переменная 1 не изменится, и она снова будет равна 0. Вот оно классическое 
зацикливание, которое приведет к зависанию программы. | 

Когда выполняете оператор сопЕ1пие в цикле мЪ11е, убедитесь что счетчик из- 
меняется. В данном случае нужно было сделать следующую проверку: 


1Е 1=0 реп 

Беа1п 
1:=1+1; 
сопЕ1пие; 


ета; 


В этом случае перед прерыванием шага цикла значение переменной 1 увеличи- 
вается на единицу, а значит, на следующем шаге она уже не будет равна нулю. 
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Теперь давайте разберемся с оператором ъгеак. Как только программа встречает 
такой оператор, цикл прерывается и выполнение передается следующему операто- 
ру после оператора цикла. Давайте возьмем наш предыдущий пример и заменим 


в нем сопе1пче на Ъгеак (листинг 8.8). 


ргоседиге ТРоти1 .Са1си1акеВаЕкопС11ск (Зепаег: ТОБЗес®); 


уаг 
1, г: Табедег; 
Бед1п 
ог 1:=-3 о 3 90 


Беч1п // Это начало для оператора Ёох 


1Е 1=0 СРеп 


ред1п // Это начало для оператора 1Ё 


.1$ЕВох1 .Теемз .АЯЯ('На ноль делить нельзя'!); 


БгеаКк; 


епЯ;// Этот епЯ для оператора 1Е 


ух: =гоцпа (10/1); 


Т.1ЗЕВох1 .ТЕеме.Ааа('10/'+ТпЕТобех (1) +'=/+ТреТобег(х)); 


еп; // Этот епа для оператора Ёох 
Г.13ЕВох1.ТЕетмз .АЯа('Расчет окончен'); 


епа; 


В этом случае если значение 1 будет 
равно нулю, то выводится сообщение 
о том, что на ноль делить нельзя и цикл 
прерывается. После этого управление 
передается следующему оператору по- 
сле цикла. На рис. 8.3 показан результат 
работы программы. 

Как видите, после встречи с нулем 
в цикле больше ничего не выполняется 
и оператор Ъгеак просто завершает его 


работу. 


ПРИМЕЧАНИЕ. На компакт-диске, при- 
лагаемом к книге, в папке \Примеры\ 
Глава 8\6геаК вы можете увидеть при- 
мер этой программы. 


“1 10/-3 = 3 

:410/-2 = -5 

1 10/-1 = -10 

„На ноль делить нельзя 
асчёт окончен 


Рис. 8.3. Результат работы программы 
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8.5. Логические операторы 


С логическими операторами МЫ уже познакомились и достаточно много работа- 
ли. Но здесь мы рассмотрим более полную информацию по логическим операциям. 
Точнее сказать, по одной — 1+. Как вы уже знаете, она выполняет проверку — 
“Если какое-то условие выполнено, то выполнить следующее за условием дейст- 
вие". Если Нужно ВЫПОЛНИТЬ: несколько действий, то их нужно объединить С ПОМО- 
ЩЬЮ Бед1п...епа. 

В общем 1 виде логика выглядит так: 

1Е Условие выполнено Епеп 

Действие]; 


Если нужно выполнить два действия, то нужно написать так: 
1Е Условие выполнено ЕБеп 
Беа1п 
Действие]; 
Действие2; 
епа; 


При проверке нескольких условий можно использовать несколько «способов. 
Первый из них можно определить следующим образом: 
1ЁЕ Условие1 выполнено Епеп 
ТЕ Условие? выполнено ЕВеп 
Действие]; 


Если условие1 верно, то выполнится следующее за логикой действие, а это вто- 
рая проверка. Если вторая проверка (условие 2) верна, то выполнится действие. 
Если хотя бы одно из условий не выполнится, то цепочка прерывается, и действие 
не будет выполнено. 

Второй способ в большинстве случаев удобнее. и нагляднее. Он может быть 
представлен следующим кодом: 

1Е (Условие1 выполнено) апа (Условие? выполнено) ЕТеп 

Действие]; | 


В этом примере две проверки объединены в одну. Если Условие1 и Условие? 
верны, то выполнится действие. 
| А если вам нужно выполнить действие, если хотя бы одно из условий верно? 
Не обязательно, чтобы оба сразу, а хотя бы одно. В этом случае можно для объеди- 
нения использовать не апа, а ох. Это будет выглядеть так: 
1Е (Условие1 выполнено) ог (Условие? выполнено) ЕВеп 
Действие]; 


Если вы объединяете два условия в один оператор 1, то их обязательно нужно 
оградить скобками. Если вы их не поставите, то будет ошибка. Вот пример непра- 
вильного оформления: 

1Е Условие1 выполнено ог Условие? выполнено ЕПеп 

Действие]; 


В этом случае будет не объединение двух проверок, а бинарная операция (би- 


нарные операции требуют отдельного разговора), для которой неправильно запи- 
сана строка. Поэтому и возникает ошибка. 
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В качестве условий можно применять следующие операторы (табл. 8.1). 


Таблица 8.1. Операторы сравнения 


Г отетю  [оме —  [помиржюьюинй 
ри 
МОЕ СИ БЕС 
И СО 


Существует одно исключение, при котором оператор может отсутствовать. Если 
вы проверяете булеву переменную, то оператор можно опустить. Пример такого 
случая: — | 

хат г 

| Ь:Воо1еап; 
Бед1п 


Ь: =Ехие; 


1Е Ъ Вет 
Выполнить действие; 


ета; 


В этом примере происходит проверка булевой переменной Ъ. Но с чем ее срав- 
нивают, не указано. Как вы знаете, булевы переменные могут принимать одно из 
двух значений: екгие ИЛИ Еа1зе (истина или ложь). Так вот в этом случае происхо- 
дит проверка на истину. Если булева переменная равна Егое, то действие будет вы- 
полнено. Если Ъ равна Еа1зе, То действие не будет выполнено. 

До сих пор мы рассматривали сокращенный вид логики 1. В полном виде она 
выглядит так: | 

ТЕ Условие выполнено ЕТеп 

Действие1 
е1зе 
Действие? 


В этом виде если условие выполнено, то ВЫПОЛНИТСЯ действие1, иначе выпол- 
НИТСЯ действие. 


ВНИМАНИЕ. Вы уже должны знать, что каждый оператор должен заканчиваться точ- 
кой с запятой. Запомните, что после любого оператора перед е1зе точка с запятой 
не ставится. Это как исключение, которое надо помнить 


Давайте рассмотрим пару примеров. Рассмотрите листинг 8.9, в котором собра- 
но несколько операторов сравнения. 
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уах 
1: 106едег; 
Беалп 
1Ё 1>0 Ереп 
1:=1+10 //Обратите внимание, что точки с запятой нет. 
е1зе — 
=1+20 


1ЁЕ 1<0 ЕМЪеп 


Беа1п 
1:=10; 
1:=1-2; 


епа // Обратите внимание, что точки с запятой нет. 
е1 зе 
Беа1п 
1:=20; 
1:=1-2; 
епа; 


епа; 


Вот теперь рассказано все необходимое о логических операциях и как с ними 
работать. 


ПРИМЕЧАНИЕ. На компакт-диске, прилагаемом к книге, в папке \Примеры\Глава 8\И 
вы можете увидеть пример программы, в которой используются различные типы логи- 
ческих операций. 


При использовании логических операций — результат сравнения всегда должен 
быть логическим. 


СОВЕТ. Нельзя написать так — 1ЁЕ 1:=0 ЕПеп. Здесь в операторе используется при- 
сваивание, а у него нет результата, значит, произойдет ошибка. Чтобы не делать таких 
ошибок, просто запомните, что при использовании оператора 1Е обязательно должны 
использоваться только логические операции равенства, больше, меньше ит. д. 


Единственный случай, когда можно опускать операторы сравнения, — когда 
проверяется логическая переменная. Например: | 
’ уаг 

регем:Воо1еап; 

Беа1п 

‚регем:=Етгае; 

1Е регем ЕВеп 

регем: =Ёа15е; 


епа; 


6 Зак. 1273 
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В этом примере нет никаких операторов типа равенства, больше или меньше, 
потому что переменная рагам логическая и проверяется она. Если она равна Егое, 
то следующее действие выполнится, если нет, то пропустится. 


8.6. Работа со строками 


В этой части мы рассмотрим, как можно работать со строками, и поговорим об 
основных функциях обработки строк. Также рассмотрим варианты использования 
этих функций. Для этого будут написаны несколько полезных примеров, и мы раз- 
берем их по командам. 

Для начала давайте рассмотрим основные функции для работы со строками. 


8.6.1. Функция Гепа 


Эта функция возвращает длину строки. У нее есть только один параметр — 
строка, длину которой надо вернуть. Функция ГепаЕВ выглядит так: | 
Ропсе1о0п ТепаеЪ (5): Трпседег; 
Пример использования функции: 
уах 
ЭЗЕг:вег1па; 
Тпаех: Тпседег; 
Бед1п ` 
ЗЕх:='Привет'; | 
1паех:= ГепаеВ (56г); 


епа; 


В этом примере объявлены две переменные 5х (строка) и 1паех (целое число). 
В первой строке кода в переменную 5х помещается строка "Привет". После этого 
переменной 1пд9ех присваивается длина строки $ех. Результат, записанный в пере- 
менную :паех, будет равен числу 6 — длина строки. 


8.6.2. Функция Сору 


Эта функция возвращает указанный отрывок строки. Например, вам нужно по- 
лучить из строки "Меня зовут Михаил" символы начиная с 5-го по 10-й. Это легко 
сделать с помощью функции сору. У нее есть три параметра. 

С Строка, из которой нужно получить отрывок текста. 
С Начальный символ. 


С Количество нужных символов. 
ЕопсЕ1оп Сору(5; Тпаех, Соцпе: Тпбедех): зЕх1па; 


Пример использования функции: 
уаг 
56:1: 56и1па; 
5Ех2:з6у1па; 
| Ъеч1п 
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5Е:1:='Меня зовут Михаил'; 
$Ег2:= сору($6х1, 5, 5); 

епа; 

Здесь объявлено две строковых переменных: $Ех1 и 5х2. В первой строке кода 
мы присваиваем переменной $Ех1 строку "Меня зовут Михаил”. В следующей 
строке происходит копирование в переменную $+х2 пяти символов из переменной 
‘5Ех1, начиная с 5-го символа. Получается, что мы копируем строку с 5-го символа 
по 1-й. Результатом будет в 5Ех2 строка: "зовут". | 


8.6.3. Функция Бе/е!е 


Эта функция удаляет кусок текста из указанной строки. У нее есть три параметра. 
О Строка, из которой нужно удалить отрывок текста. 
С Начальный символ, начиная с которого будут удаляться символы. 
0 Количество символов для удаления. 

В общем виде функция выглядит так: 

ргосеаоге ПБе1еее(уахг $: зЕхлиа; Тпаех, Сочпе:Тпбедег); 

Пример использования функции ре1е+е: | 


уаг 
56:1 :56у1па; 


Беа1п 

5Ех1:= 'Меня зовут Михаил!; 
Ре1ефке (5х1, 5, 5); 
ета; 


В этом примере мы удаляем из строки $3Ех1’ символы, начиная ‘с 5-го по 10-й 
(пять символов, начиная с 5-й позиции). В результате в переменной $Ех1 останется . 
только строка "Меня Михаил". 


8.6.4. Функция Ро$ 


Эта функция ищет указанные символы в строке или, можно сказать, ищет под- 
строку. Если эти символы найдены, то она, вернет порядковый номер, начиная 
с которого найдена нужная строка. У функции два параметра. 


О Строка, которую надо искать. 
С Строка, в которой надо искать. 


Если подстрока не найдена, то функция вернет ноль. 
ЕипсЕ1оп Ро$(5а6з6г: 6,1109; 9: $6г1па): Тпбедег; 


Пример использования функции Роз: 
уаг 

56:1: збу1ра; 

1паех: 1пбедег; 

Беа1п 

5Е:1:='Меня зовут Миша' 

1паех: =Роз ('Миша', 1); 


епа; 
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В этом примере мы запускаем поиск строки "Миша" в строке 5х1. В данном 
случае строка "Миша" есть в. строке переменной и начинается с символа 11. Ре- 
_ зультат — в переменной 1пдех будет число 11. 


8.6.5. Функция т5$еп 


Эта процедура вставляет одну строку в другую, начиная с указанного символа. 
У нее есть три параметра. 


О Строка, которую надо вставить. 
О Строка, в которую надо вставить. 
С Позиция, куда надо вставить. 


В общем виде функция выглядит так: | 
ргосеаике Тпзех® (боигсе: зЕх1па; уаг 5: зЕглра; Тааех: Тпбедег) 


Пример использования функции тизеге: 
уах 

ЗЕи1:зсу1па; 

1паех: \пеедег; 

Бед1п 

56г1:='Меня Миша' 

Тпзеуе ('зовут', 56г1, 6); 


епЯ; 


Здесь вставляется в строку 5Ех1 текст “зовут”, начиная с 6-го символа. Результа- 
том будет строка "Меня зовут Миша". 


8.7. Исключительные ситуации 


Теперь пора познакомиться с исключительными ситуациями. Для чего они нуж- 
ны? Допустим, что у вас есть участок кода, где может произойти ошибка. Как сде- 
лать так, чтобы программа не зависла при ее возникновении? Очень просто — 
нужно сделать все, чтобы ошибка не возникла. Да, это действительно так. Первым 
делом, когда пишете код, вы должны делать все, чтобы исключительные ситуации 
не возникали, а для этого нужно проверять все переменные, параметры и результа- 
ты работы функций. Исключительные ситуации — это не панацея, решающая все 
проблемы, это всего лишь вспомогательный инструмент. 

Итак, если вы видите участок кода, который может завершиться ошибкой, надо 
заключить этот код в блок проверки исключений, и тогда ваша программа выдер- 
жит даже "цунами". Итак, простейший блок исключений выглядит следующим об- 
разом: 

сгу 

//Здесь ты пишешь код, в котором может произойти ошибка 
ехсерЕ 
//Если ошибка произошла, то выполнится этот код 


епа; 
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Рассмотрим простейший пример. 
Ску 
х:=У/0; 
ехсере 
//Здесь можно вывести сообщение об ошибке. 


епа; 


Между егу и ехсереё у нас стоит маленькое действие — деление на ноль. Ком- 
пьютер не умеет делать такие вещи (на ноль делить нельзя), поэтому произойдет 
ошибка и выполнится код между ехсере И епа. Если бы не было блока Еху, то по- 
сле возникновения ошибки процедура закончила бы выполнение, и все остальные 
операторы не были бы выполнены, как, например, в нашем случае — х:=0. При 
использовании Еху...ехсере не будут выполнены только операторы между стро- 
кой, которая стала причиной ошибки, и ехсер+. После оператора ехсер"...епа все 
будет выполняться, как будто ничего не произошло. 

Если бы мы поменяли 0 на любое другое число, то ошибки бы не было, и код 
между ехсере И епа никогда не выполнился бы. 

Такой блок можно использовать не только для вывода сообщения о произошед- 
шей ошибке, он и исправит ситуацию. Например, в нашем случае, если между егу 
И ехсерЕ произошла ошибка, то между ехсерЕ И епа можно присвоить перемен- 
ной х значение по умолчанию на случай ошибки и продолжить выполнять про- 
цедуру с этим значением. 

Давайте рассмотрим следующий пример: 

уаг 

Ь:ТВ1 тар 

Бед1п . 

Ь:= ТВ1етар.Сгеаее; . 
Сгу 
Ъ.Сапуаз .Весвапа1е(1,1,100,100); 


ехсере 
//Здесь можно вывести сообщение об ошибке. 
Ъ.Егее; 
ех1(; 
епа; 
Ъ. Егее; 
ера; . 


В этом примере мы создаем объект Ъ типа тв:1етар (картинка). Потом начинаем 
блок егу. В этом блоке мы пытаемся начать рисование. Если во время рисования 
произошла ошибка, то можно. сообщить об этом пользователю и освободить память 
Ъ.Егее. После этого происходит выход из процедуры с помощью оператора ех:+. 
Если ошибок не было, то просто освобождается память Ъ.Егее. Если в блоке 
ехсере не произвести выход, то произойдет ошибка, когда память картинки будет 
освобождаться второй раз. 
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, 


Теперь давайте разберемся с еще одним типом исключительных ситуаций — 
сгу...Е1па11у. | 
сху 
//Здесь пишется код, в котором может произойти ошибка 
Е1ра11у 
//Этот код выполнится в любом случае 
епа; 


Между гу и Е1па11у вы пишете свой сомнительный код, в котором может про- 
изойти ошибка. А между Е1па11у И епа пишется код, который должен выполниться 
вне зависимости от результата кода между ску и Е1па11у. В этом случае мы не мо- 
жем информировать пользователя об ошибке, потому что в разделе Е1па11у мы не 
знаем, произошла ошибка или нет. Зато работа с памятью упрощается: 

хуаг 

Ь:ТВ1 Стар 

Беач1п 

Ь:= ТВ ыпар.Скеаее; 

Егу 
Ъ.Сапуаз.Вескапа1е(1,1,100,100); 
ЁЕ1па11у 
Ъ.Егее; 

епа; 

епа; 


Подобный пример уже рассматривался. В данном случае мы создаем объект ь 
и пытаемся рисовать. В разделе Е1па11у, который выполняется всегда, вне зависи- 
мости от того, была ошибка или нет, мы удаляем созданный объект Ъ. Теперь мы 
уверены, что Ъ всегда будет удален корректно, и выделенная память будет освобо- 
ждена. Таким образом, код между Е1па11у И епа будет выполняться всегда вне за- 
висимости от произошедших ошибок. 


ПРИМЕЧАНИЕ. Если бы все программы в \\/тдомз были написаны корректно и со- 
мнительные участки кода заключались бы в блоки исключительных ситуаций, пользо- 
ватель забыл бы, что такое синий экран смерти. Если вы собираетесь писать коммер- 
ческое программное обеспечение, то ошибки в нем непростительны. Никто не будет 
покупать нестабильные программы, которые будут зависать через каждые пять минут. 
Это я вам говорю из своего опыта. 


Будьте внимательны. Ошибки могут появиться даже в самых неожиданных. мес- 
тах. Пользователь очень часто может нажать не туда, куда надо, и сбивать про- 
грамму с пути правильного выполнения. Конечно же, можно говорить, что пользо- 
ватель безрукий, но этот безрукий вам платит за то, чтобы программа работала. 
Поэтому от его действий нужно предохраняться. Исключительные ситуации — 
один из лучших способов. 

Исключительные ситуации я рекомендовал бы использовать в следующих случаях: 


С при выделении каких-либо ресурсов, например, памяти, чтобы гарантировать, 
что выделенные ресурсы всегда будут освобождены корректно; 


С при обращении к каким-то ресурсам, например, к диску, памяти ит. д. 
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8.8. Классы исключительных ситуаций 


В разд. 5.7 мы создавали блоки +ку, которые отлавливали все возможные ис- 
ключительные ситуации, и даже не пытались узнать, что именно произошло. А ведь 
если в блоке кгу достаточно много кода, то не всегда можно догадаться, какой тип 
ошибки реально произошел. 

Для работы с ошибками в Веры есть класс ЕхсерЕ1оп. Это базовый класс для 
всех объектов исключений. Обратите внимание, что это класс, но начинается он не 
с буквы "Т". Все классы, которые мы рассматривали, начинались с буквы "Т", да и 
в самом конце разд. 4.2 мы говорили, что в Веры имена всех классов начинаются 
именно с этой буквы. 

Классы исключительных ситуаций именуются начиная с буквы "Е", а базовый 
класс просто называется ЕхсерЕ1оп. Этот базовый класс содержит необходимую 
функциональность, которую наследуют все объекты ошибок. Тут можно выделить 
СВОЙСТВО Меззаде, в котором содержится сообщение об ошибке и функции работы 
с файлом помощи, через которые можно вызвать файл справки с описанием про- 
изошедшей ошибки. 

В библиотеке УСГ, предопределено достаточно большое количество классов на 
различные типы ошибок, и все они являются наследниками ЕхсерЕ1оп. Например, 
класс ЕТпочеЕгкох соответствует ошибке ввода-вывода. Такие ошибки возникают 
при обращении к дискам. 

Когда происходит ошибка, то создается объект, который является наследником 
класса, соответствующего типу ошибке. Так, если произошла ошибка ввода- 
вывода, то будет создан экземпляр класса ЕТпОчеЕггох. | 

Давайте рассмотрим пример из листинга 8.10, где в блоке обработки ошибок 
я пытаюсь разделить число на ноль, что запрещено. Результат деления заносится 
в переменную к. Обратите внимание, что после этого я делаю проверку 1Е. Эта 
проверка абсолютно бессмысленна и добавлена только для того, чтобы после деле- 
ния было хоть какое-то обращение к переменной. Если никакого обращения не бу- 
дет, то Реры видит бессмысленность деления и оптимизатор не делает его. 


Е, х:РочЬ1е; 
ред1п 
Сгу 
у:=0; 
с:=10/гх; 
1Е Е>0 ЕБеп 
ех1(е; 
ехсере 
// обработка ошибки ввода-вывода 
оп ЕТПОчЧЕЕЕГгОГ @о 
Беач1п 
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СпомМеззаче ( 'Ошибочка ввода-вывода'); 
епа; | 
// обработка деления на ноль 
оп е:Ебегор1\у1Ае ао 
ъеа1п 
СПомМеззаче ('Ну нельзя делить на ноль :: '+е.Меззасде); 
епа; | 
// Иначе 
е1зе 
ЗПомМеззаае ('Не понял в чем дело, но что-то произошло’); 
епа; | | 


епа; 


В данном случае в блоке ехсерЕ идет два блока обработки разных типов ошибок. 
Чтобы проверить, не произошла ли ошибка ввода-вывода, пишем следующий блок: 
оп [переменная :] класс_ошибки ао 
Бедлп 
// Ошибка ввода-вывода 
епа; 


Если дословно перевести, что здесь написано, то это будет выглядеть так: 
в случае ошибки выполнить код между Ъед1п и епа. Обратите внимание, что пере- 
менную я заключил в квадратные скобки. Это означает, что переменную заводить 
не обязательно, что мы и делаем при обработке ошибки ввода-вывода: 
оп ЕТпОЧЕЕггог Ао | 
Беач1п 
СромМеззаче ('Ошибочка ввода-вывода’); 
епа; | 


В случае ошибки вызывается функция 5номМеззаде, которая отображает на эк- 
ране окно диалога с сообщением, которое указано в качестве параметра. 


А теперь посмотрим на то, как мы обрабатываем ошибку деления на ноль: 
оп е:Ерегор1у1ае ао | 

Ъеа1п 

ЗпомМеззааде ('Ну нельзя делить на ноль :: '+е.Меззаае); 

епа; | 


Ошибке деления на ноль соответствует класс ЕРегор1\у19е. Перед классом 
ошибки написана переменная с именем е. Через нее мы сможем узнать сообщение 
об ошибке, например, так е.Меззаде. | 

Помимо этого, в блоке ехсер+ листинга 8.10 стоит еще ключевое слово е1зе, как 
при логической операции. Обратите внимание, что после епа прямо перед е1зе 
стоит точка с запятой, хотя мы знаем, что это ее не нужно ставить. Ненужно только 
для логических операций. В данном случае е1зе используется для обработки ис- 
ключительных ситуаций, и операция после этого ключевого слова будет выполне- 
на, если до этого ошибка не была обработана. То есть если произошла ошибка, ко- 
торая не была обработана блоком оп ошибка до, то будет выполнен код после е1зе. 
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Итак, попробуйте создать новое приложение, поместить на него кнопку и по ее 
нажатии написать код из листинга 8.10. Запустите пример и лучше сделайте это из 
Ре!рё!. Теперь попробуйте нажать на кнопку. Произойдет ошибка, и Веры пере- 
хватит на себя управление, покажет строку кода, где произошла исключительная 
ситуация, и покажет окно диалога с сообщением, описывающим ошибку. 

Осмотрев строку кода, где произошла ошибка, нажимаем клавишу <Е9>, чтобы 
продолжить выполнение программы. И в этот момент управление будет передано 
нашей программе, и вы увидите сообщение, которое мы показываем с помощью 
функции 5НомМеззасде в блоке ехсере. 

Если бы вы запустили программу не из Реры, а из файлового менеджера. акти- 
вировали исполняемый файл, созданный в Ое]рШ, то в момент ошибки вы увидели 
бы только второе сообщение, которое мы отображаем с помощью функции 
ЗепМеззаче. 

Сообщения могут генерироваться не только исполняемой средой, но и вручную. 
Чтобы сгенерировать свое сообщение, используется оператор ха1зе. После этого 
оператора нужно указать объект ошибки. Именно объект, т. е экземпляр какого-то 
класса ошибки. 

Давайте посмотрим, как можно вручную сгенерировать ошибку ввода-вывода. 
Чтобы создать новый объект этого класса, нужно вызвать метод сгеаке, а этому ме- 
тоду передается сообщение, которое будет отображаться, когда сработает событие. 

ЕТПОЧеЕГгохг .Сгеасе ('Ошибка ввода-вывода’) 

Итак, конструктор Сгеаее вернет нам экземпляр класса ошибки ввода-вывода. 
Его мы и должны указать после оператора. га1 зе: 

га! зе ЕТпОЧЕЕггог .Сгеасе ('Ошибка ввода-вывода’); 


ПРИМЕЧАНИЕ. На компакт-диске, прилагаемом к книге, в папке \Примерь\Глава 8\ 
Ехсер{ вы можете увидеть пример программы, в которой используются различные ти- 
пы логических операций. 


Вы можете создать собственный класс ошибки, нарастить его возможности, как 
душа пожелает, и использовать его. Давайте посмотрим, как это будет выглядеть на 
примере. Создадим класс муЕхсерЕ1оп, который будет является наследником базо- 
вого класса всех ошибок — Ехсере1оп: 

буре 

МуЕхсерЕ1оп = с1а5$ (Ехсере1оп) 
ри11с 
Еопсе1оп Себбомебег():З6у1та; 
епа; — 


Это объявление типа, поэтому все это должно быть в разделе куре вашего моду- 
ля. Помимо того что класс наследовал от базового, мы объявили еще одну функ- 
ЦИЮ СеЕботе5ех, которая просто возвращает строку. Не будем усложнять жизнь, 
а реализуем эту функцию банально — просто вернем заранее определенную строку: 

ЕопсЕ1оп МуЕхсерЕ1оп.Сееботеб$ет: 5Зехг1пта; 

Беа1п 

Кези16:='Это моя строка' 
епа; 
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Теперь поместите на форму кнопку и по ее нажатии напишите следующий код: 
Еху | 
га1зе МуЕхсере1оп.Сгеаее ('Тест'); 
ехсере | 
оп е:МуЕхсерЕ1опт @о 
Беа1п 
СпомМеззаче (е.бСеЕбомебег); 
епа; 


еп; 


В разделе егу мы вручную. генерируем ошибку собственного типа МуЕёхсерЕ1оп. 
В разделе ехсере мы перехватываем эту ошибку и с помощью функции $помМеззаде 
отображаем результат функции сеЕбомезег. Вот так все просто и красиво. 


ПРИМЕЧАНИЕ. На компакт-диске, прилагаемом к книге, в палке \Примерь\Глава 8\ЕхсерИ 
вы можете увидеть пример программы, в которой используются различные типы логи- 
ческих операций. 


Глава 9 


Создание 
рабочих приложений 


Продолжаем чередовать практические главы с теоретическими, чтобы вы не 
сильно уставали от основ программирования и постоянно закрепляли знания прак- 
тикой. По себе знаю, как тяжело что-то делать, когда не видишь результата. Когда 
есть осязаемый результат, то и работа и обучение намного приятнее и интереснее. 

В этой главе рассматриваются вопросы, касающиеся создания самых настоящих 
приложений. До этого момента мы писали только небольшие примеры. Они были 
очень просты и представляли только суть изучаемого вопроса. 

Рассмотрение главы начнем с создания меню. Это единственное, что было про- 
пущено при рассмотрении палитры компонентов 5(апдага. (Стандартная). Сейчас 
настало время восполнить этот пробел. 

После этого будет показано, как создавать панели кнопок, как работать с ними, 
а также здесь будут приведены примеры, реализующие все эти действия. 


9.1. Создание главного меню программы 


Давайте создадим маленькую программу, которая будет формировать некоторое 
меню. Какое именно — не так уж важно, лишь бы научиться с ним работать. 

Создайте новое приложение. Установите на форму один компонент ма1пМепа. 
Теперь посмотрим, какие свойства есть у этого компонента. 


С] АцЕоНоЕКеуз — свойство, которое определяет, будут ли создаваться автоматически 
клавиши быстрого вызова. Если выбрать паАиеотае1с, то Оеры будет автоматиче- 
ски создавать клавиши. При выборе паМапца1 это придется это делать вручную. 


ПРИМЕЧАНИЕ. Не путайте клавиши быстрого вызова с горячими клавишами, которые 
можно создавать только вручную. Посмотрите на меню какой-нибудь программы. Все 
названия пунктов содержат в названии подчеркнутую букву. Если вы войдете 
в меню (например, нажатием клавиши <АН>), то, нажав подчеркнутую букву, вы пере- 
меститесь на этот пункт. 


О АиЕомедге — свойство, которое определяет автоматическое слияние с меню до- 
черних окон. 


О тпадез — ИСПОЛЬЗУЯ! ЭТО свойство, можно подключать списки картинок, кото- 
‚рые смогут отображаться на пунктах меню. 


С] теемз — в этом свойстве описываются пункты меню. 


162 Глава 9 
Сразу подключим список картинок. Установите на форму компонент тмадер1 зе 
с вкладки У ш32. Теперь дважды щелкните по нему левой кнопкой мыши, и перед 


вами откроется окно работы со списком картинок, как это показано на рис. 9.1. 


Рогил1. илачен 1 иплаценя ы 


;- Зее таде— ОИ р И: 


-. Те: зисра т ВроБЕ 


СЕИСоюг. а. с: эк — 


Рис. 9.1. Окно управления картинками в списке тмадег,1 зе 


Нажмите кнопку АЯЯ (Добавить), чтобы добавить картинку. Откроется стан- 
дартное окно открытия файла. Откройте какую-нибудь картинку, и она добавится 
в список. Желательно, чтобы она была размером 16х16. Именно такие габариты 
используются по умолчанию. 


ПРИМЕЧАНИЕ. На компакт-диске, прилагаемом к книге, в папке \\тадез вы можете най- 
ти большое количество картинок для кнопок. В папке \Примеры\Глава 8\Мепи находится 
исходный код примера и картинки, которые будут использоваться в этом примере. 


Можете таким образом добавить несколько картинок. Четыре кнопки, которые. 
были добавлены в этом примере, вы можете увидеть на рис. 9.2. 


Гоггл1. итаден 1 паде 


- бесед ипаде ни ое я ме о 
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Рис. 9.2. Окно управления картинками с добавленными изображениями 
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После того как была добавлена картинка, вы сразу же можете изменить цвет, 
который будет прозрачным (цвет фона, который не будет выводиться на кнопку). 
По умолчанию используется цвет крайнего левого нижнего пиксела картинки. 
Чтобы изменить цвет, можно ввести код или выбрать системный цвет из ниспа- 
дающего списка Тгап5рагет Со]ог (Прозрачный цвет). Если вы точно не знаете 
код и использовали не системный цвет, то можно щелкнуть по нужному цвету на 
самой картинке в поле эз4есеа Ппаге (Выбранная картинка) слева вверху. | 

Теперь подключим наш список картинок к меню, чтобы его пункты могли со- 
провождаться графическими изображениями. Выделите компонент Ма1пМепи1 иу свой- 
ства ттадез в ниспадающем списке выберите пункт тпадег1зЕ1. Пример будет дос- 
таточно долгим, и чтобы не запутаться, нё меняйте имена компонентов, данные по 
умолчанию. 

Теперь создадим само меню. Для этого дважды щелкните по свойству теепз, 
и перед вами откроется редактор меню, как показано на рис. 9.3. 

Этот же редактор можно вызвать, если дважды щелкнуть левой кнопкой мыши 
по компоненту Ма1пМепу1. 

Кругом на рис. 9.3. выделен уже созданный пункт. Перейдите в объектный ин- 
спектор и наберите в свойстве саре+оп слово "Файл". Как только вы нажмете кла- 
вишу <Ещег>, будет создано меню Файл (рис. 9.4). 

Обратите внимание, что слева и под меню файл созданы два пункта без имени. 
Это пустые заготовки, с помощью которых вы можете расширять его. Они без име- 
ни и не будут отображаться в программе. 


ом МатМепи1 


г“ Рог 1 .МатМепи1 


Рис. 9.3. Редактор меню | Рис. 9.4. Меню Файл 


Давайте создадим еще и меню Помощь. Щелкните справа от созданного меню 
(в рамочке, обведенной пунктиром) и снова перейдите в объектный инспектор. Там 
введите в свойстве СарЕ1оп слово "Помощь". 

Теперь создадим подпункт для меню Помощь. Щелкните в рамке чуть ниже 
меню Помощь. В свойстве СарЕ1оп введите фразу "О программе". В результате _ 
у вас должно получиться что-то похожее на рис. 9.5. 

Таким же образом заполним меню Файл. Выделите его. Теперь щелкните в ра- 
мочке чуть ниже. Здесь мы напишем в свойстве сарЕ1оп слово "Открыть". Когда 
вы нажмете клавишу <Емщег> или перейдете на другой пункт меню в редакторе, 
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будет создан пункт Открыть и тут же немного ниже будет сформирован новый 

пустой пункт. Щелкните по нему и введите в свойстве СарЕ1оп слово "Сохранить". 

Теперь снова щелкните на новом пункте меню иу него в свойстве сарЕ1оп про- 
ин 


сто введите тире "-". Это заставит ОерЫ создать сепаратор (разделитель меню), 
как показано на рис. 9.6. 


|" Рог 1 .МашМепи1 


И "1. 
Файл Помощь |... 


открыть 


Сохранить -. 


Рис. 9.5. Результат создания меню Рис. 9.6. Пример разделителя 


И, наконец, создадим последний пункт — Выход. Попробуйте его сделать само- 
стоятельно в меню Файл. | 

Теперь назначим каждому пункту меню картинки. 
Рассмотрим, как это сделать на примере пункта 
Открыть, а остальные вы сделаете сами. 

Выделите пункт Открыть. Теперь в объектном ин- 
спекторе щелкните по ниспадающему списку свойства 
Тпадетпдех. Перед вами откроется список всех карти- 
- нок, которые вы подключили ранее (рис. 9.7). 

Выберите ту, которая вам больше нравится. В ре- 
дакторе меню изображения не будет видно, зато Рис. 9.7. Список картинок 
в редакторе форм вы его сразу сможете увидеть. 


ПРИМЕЧАНИЕ. На компакт-диске, прилагаемом к книге, в папке \Примерь\Глава 9\тепи 
вы можете увидеть пример этой программы. 


Теперь создадим обработчик события, который будет вызываться всякий раз 
при выборе пункта меню. Для этого выберите в дизайнере меню пункт Выход 
и щелкните по нему дважды или перейдите на вкладку Еуеп 65 (События) объектно- 
го инспектора. После этого дважды щелкните по событию опс11ск. Эти действия 
заставят Ое]рН! создать обработчик события при выборе пункта меню. В этом об- 
работчике напишем вызов метода с1озе (). Этот метод закрывает форму, а если мы 
закрываем главную форму, то закроется все приложение. 


ПРИМЕЧАНИЕ. На компакт-диске, прилагаемом к книге, в папке \Примерь\Глава 9\тепи1 
вы можете увидеть пример этой программы. 


Напоследок необходимо узнать, как меню подключается к форме. Когда вы по- 
местили новый компонент Ма1пМепи на форму, то он автоматически появился 
в свойстве формы Мепо. Если вы удалите название компонента из этого свойства, 
то меню исчезнет. Если вы укажете другой компонент меню, то в качестве меню 
для формы будет использоваться указанный компонент. 
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9.2. Создание дочерних окон 


До сих пор мы создавали простые приложения, состоящие из одного только 
главного окна. В этой части главы мы рассмотрим, как создать приложение, со- 
стоящее из одного главного окна, которое может вызывать дочернее окно. 

Для примера будет использоваться исходный код из предыдущей части главы, 
где было создано меню. Откройте этот проект. 

Для начала создадим новую форму. Для этого из меню ЕШе (Файл) выберите 
пункт №е (Новый), а затем пункт Когт (Форма). Это касается только Ое]ры 6-й и 
более новых версий. В более старых версиях нужно просто выбрать ЕЙе | Мем 
Гогт (Файл | Новая форма). 

РерР! должен создать новую чистую форму. Посмотрите на содержимое ме- 
неджера ‘проектов (Ргодесё Мапагег) и убедитесь, что в вашем проекте 
Рго]есЕ1 .ехе теперь есть две формы: 0111 и 0п1 2 (рис. 9.8). 


Двойной щелчок по любой из форм в менеджере проектов загрузит форму в ди- 
зайнер для редактирования. В принципе, новая форма уже открыта, и нам не надо 
дважды щелкать мышью. Хотя можете попробовать, и Рерш моментально откроет 
форму для редактирования. В дальнейшем при редактировании вам это пригодится, 
чтобы открывать дочерние окна с целью их изменения. | 

Давайте сразу сохраним новую форму. Для этого при выделенной новой форме 
нажмите комбинацию клавиш <СИ]>+<5>. Перед вами появится стандартное окно 
для ввода имени формы. Ранее указывалось, что имена нужно задавать осмыслен- 
ные. В книге иногда происходит отступление от этого правила, чтобы вам легче 
было читать, но в реальных проектах вы должны делать все осмысленно, иначе по- 
том будет тяжело работать. 

Данное окно у нас будет показывать информацию о программе, поэто- 
му назовем его Або ОпЁ.ра$. Модуль главной формы переименуем в МашОпё.раз. 


СОВЕТ. Нельзя просто так переименовывать имена модулей. Для этого желательно 
использовать меню РЕ! | Зауе А$ (Файл | Сохранить как). 


авииенЕ 


ппиофиикльттньь, 


ме и: 


29 КЕ 5: Ро Р ИИ 
Ее РещесЙ.ехе Р/\Вопай\Суб\Беры Воок\Примеры\Г ла! 


| мо о программе 


] Цид Р/\Войапд\Суб \Оерры! Воок\Примеры‘Г ла! 
+] Уп О:\Р'одгам Риез\Вопапд\Берб6\Рецесв 


Рис. 9.9. Форма будущего 
Рис. 9.8. Менеджер проектов | окна О программе 
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Сразу измените и имя формы с Еоги2 на АБочЕГОхт. После этого изменим заго- 
ловок формы на О программе. Можете еще приукрасить как-нибудь эту форму. 
Установим несколько компонентов тьаъе1, чтобы сделать надписи. Но это уже не- 
важно. Для нас главное — научиться работать с этими формами (пример формы 
показан на рис. 9.9). 

Теперь нужно показать это окно. Давайте создадим обработчик события 0пС11ск 
для пункта меню О программе нашей главной формы. Когда вы создаете обработ- 
чик, Ре]рб! даст процедуре непонятное название типа м4с11ск. Если бы заголовок 
меню был бы написан на английском, то имя обработчика было бы хоть немного 
понятным, потому что Рерш использовало бы имя меню и слово СИск. Но у нас 
все написано на родном языке, а его в коде программы использовать нельзя, поэто- 
му среда разработки изменяет его на букву № с номером. Число у вас может отли- 
чаться. Мы договорились, что все будем называть понятными именами, поэтому 
переименуйте ее в объектном инспекторе в АБоцЕСс1{ск. Для переименования дос- 
таточно напечатать в объектном инспекторе новое имя напротив. события Опс11ск 
и нажать клавишу <Ещег>. 

Теперь в получившемся обработчике напишем следующее: 

ргоседигте ТЁРоп1 .АбоеС11ск (5бепаег: ТОБзес®); 

Бед1п 

АБоцЕРогт. бНомМода1; 
епа; 


В этом коде мы вызываем метод 5номМода1 окна АБоцЕРогт. Этот метод пока- 
зывает форму в режиме Мо4а1 (Модальный). В этом режиме окно получает полное 
управление, и пока оно не закроется, главная форма не будет работать. 

Если вы попробуете сейчас отком- 
пилировать код, то получите ошибку. 
В Реры 5 это будет просто ошибка, озна- 
чающая, что АБочЕРохи не найдена. Это | ООВ 4. 
потому, что данная форма описана в на- | И с | 
шем модуле АБочЕОп1е, а мы используем | т 
ее в Ма1п001е. Чтобы Ма1поп1е смог уви- 
деть форму, описанную в АБочеЕОплЕ, 
нужно ее подключить. Для этого перейди- 
те в модуль Ма1п0п1Е и из меню Ее 
(Файл) выберите пункт 0$е Оп (Исполь- 
зовать модуль). Перед вами откроется ок- 
но, как показано на рис. 9.10. В этом окне 
нужно выбрать модуль, который требу- 
ется подключить, и нажать кнопку ОК. 
Что после этого изменится? Посмотрим 


на следующий фрагмент нашего модуля 
Ма1п0п1 Е: Рис. 9.10. Окно подключения модуля 


: ТРО" Що 


ххах 
ЕКоу1: ТЕоги1; 
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1пр1етепкае1оп 
изез АБоиЕОп1е; 


{$В *.аЁм} 


Как видите, здесь появилась новая строка изез. Точно такая же есть и в начале 
модуля, но там мы подключали стандартные заголовочные модули, необходимые 
при описании. Здесь же мы подключаем модули, которые необходимы только при 
реализации, и самостоятельно написанные модули чаще всего относятся именно 
к таким (не обязательно, но в основном они нужны только при реализации). 


СОВЕТ. В принципе, можно подключить модуль АБочЕ Опт и в самом начале, но это 
делать не желательно. 


Строку изез можно написать и вручную в указанном выше месте и не выпол- 
нять никаких действий. Так что выбирайте, какой способ вам удобнее, — прописы- 
вать вручную или делать это автоматически с помощью меню ЕЙе | О$е Опи. 

Теперь перейдем к форме ма1п0п1Е. Мы подключили наш модуль АБоцЕОп1е 
и можем смело использовать его содержимое. 

Обладатели Пер 6-й и более поздней версии находятся в более удобном по- 
ложении. Если вы забыли подключить модуль и попытались откомпилировать код, 
то, помимо ошибок, вы увидите окно с сообщением, как это показано на рис. 9.11. 
Здесь написано, что вы из главного модуля ссылаетесь на форму АБочеЕГоги, кото- 
рая объявлена в модуле АБоцЕ0п1е. Вам также предлагается подключить этот мо- 
дуль. Если вы нажмете Уе$ (Да), то Рерш моментально сделает все действия для 
подключения самостоятельно. 


таогтаНоп 


р отт ‘Борт  вегелсвз Юг "АБоуЕРоит' бедате\ п ой АБошиги иеН 1$ по 


1 УбУГ 4$Е5 15. бо уоц р К а99 &? 


Сапсе! 


Рис. 9.11. Окно сообщения при не найденном модуле 


Вот теперь можно компилировать код еще раз, и программа будет собрана без 
ошибок. Запустите приложение и попробуйте выбрать пункт меню О программе. 
Если вы все сделали правильно, то увидите вторую созданную нами форму. 


ПРИМЕЧАНИЕ. На компакт-диске, прилагаемом к к книге, в папке \Примеры\Глава Э\Ропт$ 
вы можете увидеть пример этой программы. 
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9.3. Модальные и немодальные окна 


В предыдущем примере мы создали главное окно, которое вызывает дочер- 
нее в виде модального окна. Что значит модальное? Это значит, что управление пол- 
ностью передается ему. Как только программа встречает код АБочеЕогт. $помМода1, 
работа главной формы останавливается и управление полностью передается дочер- 
ней форме. Пока модальное окно не закроется, главная форма работать не будет. 

Рассмотрим простой пример. 

ргосеааге ТЕГогт1 .АбоцеС11ск (бепаег: ТОБ)ес®); 

\уах 

Тпаех: Тпеедег; 

Беа1п 

АБочЕРогт. помМода1 ; 


Тпаех:=10; 
епа; | 
В этом примере показывается модальное окно, и после этого переменной тпаех 
присваивается значение 10. Так вот переменная тпаех получит значение 10, но 
только после того, как модальное окно АБочеРОги закроется. | 
Для того чтобы создать немодальное окно, нужно вызвать метод 5вом. В этом 
случае главная форма создаст дочернее окно, показав его на экране, и смело про- 
должит выполняться дальше. Это позволит вам работать с обеими формами одно- 
временно, переключаться между ними, и код обеих форм будет выполняться как 
_ бы параллельно. Это еще не многозадачность, и если одно окно выполняет какие- 
то действия, то второе ожидает их завершения, поэтому здесь нет истинной парал- 
лельности. 
Теперь рассмотрим пример. 
ргоседике ТЕогт]1 . АБочеС11ск (5епдег: ТОБдесЕ); 
хат | 
Тпаех: Тпбедег; 


Беа1п 

АроцЕЕогт. ПОМ; 
Траех:=10; 
епа; 


В этом случае создается немодальное окно, и выполнение кода не останавлива- 
ется на точке АБочегоги . $пом В ОЖИДании закрытия окна, а спокойно продолжается 
дальше. То есть будет показано дочернее окно и моментально переменной Тпдех 
будет присвоено значение 10. 

Давайте создадим еще одну форму, как мы это уже делали при создании окна 
АБочцЕРоги. Сразу переименуем ее свойство Маше В Мопмода1Рохп. Можете 
что-нибудь написать на ней, например, установим одну кнопку, с помощью ко- 
торой можно будет закрыть это окно. Сохраните новую форму под именем 
М№опМода[Опи.раз. 


Создание рабочих приложений 169 


Теперь вернемся В главную форму И допишем в раздел 15е$ ИМЯ модуля 
МопМода10п1е. После этого наша строка чзез должна выглядеть так: 
изез АБоце0Оп1е, МопМоЯа19п1*; 


’Если не хотите подключать эту форму вручную, то выберите из меню ЕШе 
(Файл) пункт 0$е Спи (Использовать модуль) и выберите в появившемся окне имя 
модуля для подключения. | 

Все. Модуль подключен. Теперь можно его использовать. Создадим обработчик. 
события для пункта меню Сохранить и напишем в нем следующее: 
МопМода1Еоги. $Вом; 


Здесь мы отображаем форму МопМода1 Роги как немодальное окно. Это значит, 
что если вы запустите программу и выберете из меню пункт Сохранить, то увиди- 
те окно новой формы и сможете спокойно переключаться между главной формой 
И МопМода1Еохю без каких-либо проблем... 


ПРИМЕЧАНИЕ. На компакт-диске, прилагаемом к книге, в папке \Примеры\Глава Э\Роптз1 
вы можете увидеть пример этой программы. | 


Впоследствии мы еще очень часто будем использовать оба типа окон и вы по- 
знакомитесь с их работой более подробно. 


9.4. Обмен данными между формами 


Зачем нужны все эти формы, если нельзя передавать параметры между ними 
и взаимно использовать процедуры? Когда мы вызываем какой-то диалог, мы хо- 
тим, чтобы пользователь ввел в него определенные данные. После этого мы долж- 
ны получить введенные данные в главном окне и как-то их обработать. Помимо 
этого, на диалоге очень часто располагаются кнопки Да и Нет. Мы просто обязаны 
знать, какую кнопку нажал пользователь, и в зависимости от этого обрабатывать 
ввод или отменить определенные действия. 

В этом разделе главы мы закрепим все то, 
о чем говорилось в предыдущих частях про фор- 
мы, и научимся с ними работать. Пока мы разо- 
брались только с тем, как их создавать и выво- 
дить на экран, а работа с ними осталась за 
кадром. Пора это исправить. 

В предыдущем разделе мы создали немодаль- 
ное окно для пункта меню Сохранить. Немного Рис. 9.12. Измененное 
изменим вид окна, добавив на него строку ввода немодальное окно 
и две кнопки: Закрыть и Отмена (рис. 9.12). 

Теперь посмотрим на очень интересное свой- 

СТВО КНОПОК — Мода1Везо1е. В этом свойстве можно задавать значение, возвра- 
щаемое при закрытии окна. Давайте выберем здесь пхок. Если теперь мы покажем 
окно как модальное и потом закроем его кнопкой Закрыть, то функция $5НомМода1 
вернет нам значение пхок. | 
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Реально значения пхок и другие, которые вы можете увидеть в ниспадающем 
списке свойства Мода1вези1&, — это числа, но для того, чтобы с ними удобно было 
работать, этим числам были поставлены в соответствие имена (константы). Первые 
две буквы пх'— это сокращение от слова Мода1вези1еЕ. Остальное — это символь- 
ное представление результата. Получается, что, глядя на эту константу, мы можем 

сразу сказать, что она отображает нажатие кнопки ОК модального окна. 

Мы еще добавили на форму кнопку Отмена. Для нее свойство Мода1Вези1е УсС-. 
тановим в пгСапсе1. Кстати, теперь вы должны очистить обработчики событий 
ОпС11ск для кнопок. Когда вы указали в свойстве мода1везо1Е= возвращаемое зна- 
чение, кнопка уже автоматически умела закрывать окно и не нужно было создавать 
для нее обработчик опс11ск для того, чтобы написать в нем метод с1озе. Это со- 
бытие можно обрабатывать для других целей и даже можно написать этот метод, 
но это уже лишнее. Зачем делать то, что работает автоматически. 

В связи с этим предлагаю изменить обработчик события 0пс11ск для пункта 
меню Сохранить: = 

ргоседиге ТЕГогт1.бауес11ск (5епаег: ТОБдесе); 

Бед1п 

1ЁЕ МопМоаа]Роут. <ВоиМОда1 пигок ЕВеп 
Арр11саЕ1оп .МеззадевВох (РСПаг (МопМоЧа1Еотгта. ЕЯ 1%1.Техе), 
'Ты ввел:', МВ_ОКСАМСЕГ) 
епЯ; 


Теперь построчно рассмотрим код. В’`первой строке вызывается модальное окно 
и сразу проверяется возвращаемое значение. Если оно равно пгок, то выполняем 
следующее действие. | —_ 

Вторая строка показывает стандартное окно диалога. Это делается с помощью 
метода Мез5адеВох объекта Арр11саЕ1оп. У метода три параметра: 

О строка, которая будет показана внутри окна; 
С строка заголовка окна; 
О кнопки, которые будут на окне: 

е мв_ок — кнопка ОК; 

® МВ_ОКСАМСЕГ — кнопки ОК и Отмена; 

® МВ ВЕТВУСАМСЕЬ — кнопки Повторить и Отмена; 

® МВ_УЕЗМО — кнопки Даи Нет; 

® МВ_УЕЗМОСАМСЕГ, — кнопки Да, Нет и Отмена. 

В качестве текста сообщения в окне выводится текст, введенный в строку ввода 
нашего модального окна (Мопмода1Рогиа.Еа1е1.Техе). Если вы не поняли, как ‘полу- 
чается этот текст, то еще раз посмотрите на эту строку. Вначале идет имя формы, по- 
том имя компонента и интересующее свойство. Мы обращаемся к элементу управле- 
ния другой формы, поэтому вначале просто необходимо указывать имя формы. 

Теперь если пользователь нажмет в модальном окне кнопку Закрыть, то поя- 

_вится окно с введенным текстом. Иначе ничего не произойдет. 


ПРИМЕЧАНИЕ. На компакт-диске, прилагаемом к книге, в папке \Примеры\Глава 9\Ропт$2 
вы можете увидеть пример этой программы. 
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9.5. Многодокументные МО|-окна 


Что такое многодокументные МО][-окна? Это когда главное окно содержит внутри 
себя несколько подчиненных окон. Дочерние окна чем-то похожи на немодальные. Они 
также не блокируют главное окно и работают независимо, только их область видимо- 
сти ограничивается главным окном. Они находятся как бы внутри главного окна. 


ЗАМЕЧАНИЕ. Хотя Мсгозой уже не рекомендует использовать эту технологию, и она 
убрана из всех продуктов М$ ОЁЙсе, сама она, тем не менее, продолжает использовать 
_ МО1. В МИпаом$ 2000 ярким примером МО|-окон является консоль ММС (рис. 9.13). 


Давайте создадим простей- 
шую МО][-программу. Для этого 
создайте новое приложение. Со- 
храните. главное окно под име- 
нем Ма1пМоао1е, а проект под 
именем па:. Теперь измените 
СВОЙСТВО Роги5еу1е у формы на 
Е5МОТЕОЕт, Т.е. сделайте форму. 
главной для МО]-интерфейса. 

Создайте еще одно окно (да- 
дим ему имя св11аЕокм) и изме- 
ните у него свойство Ргохмбеу1е 
на Еэ=мотсь11а, т.е. это окно бу- 
дет дочерним. 

Вот и все, МОЕ “программа 
уже готова. Можете запустить Рис. 9.13. Многодокументная консоль ММС 
и посмотреть, как она работает. 


АР МОТ окно 


$ 3№ Дочернее окно 


ПРИМЕЧАНИЕ. На компакт-диске, прилагаемом к книге, в папке \Примерь\Глава 9\МО! 
вы можете увидеть пример этой программы. 


В нашем случае программа запускается и сразу создается дочернее окно. Кста- 
ти, мы пока еще не написали нигде, что какиё-то окна нужно создавать, они сами 
откуда-то появляются. У нас есть классы, у нас в разделе уаг есть необходимые 
переменные, но нигде не видно кода, который инициализирует эти переменные 
и помещает в них экземпляры классов. Дело в том, что все формы попадают в спи- 
сок автоматически создаваемых, а инициализацию вы можете найти в исходном 
коде проекта (меню Ргодесе | Уле\уу Зоигсе (Проект | Посмотреть исходник). 

Давайте посмотрим, как убрать его и создавать в режиме гипите (во время выпол- 
нения программы)? Очень просто, выберите меню Ор@опз | Ргодесё (Опции | Проект), 
и вы увидите окно, как показано на рис. 9.14. Это для Оеры 7-й и более ранних вер- 
сий, ав РерШ 2005 и старше окно выглядит так, как показано на рис. 5.4. 

В левой части окна перечислены те формы, которые будут создаваться автома- 
тически (Ашюо-сгезе Гогт$ (Автосоздаваемые формы)). Выделите тут сы:1агогм 
(наше дочернее окно) и переместите его в список Ауа|аШе Ёогт$ (Доступные 
формы), нажав кнопку между списками в виде одиночной стрелки, направленной 
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вправо. Теперь дочерняя форма не будет создаваться автоматически. Это действие 
придется делать вручную. 

Установите на главную форму панель и растяните ее по верхнему краю окна 
(СВОЙСТВО А11дп надо установить в а1Тор). Теперь на панель установим кнопку 
_ и дадим ей заголовок Создать (рис. 9.15). 

При нажатии на эту кнопку мы будем вручную создавать окно. Для этого напи- 
шем следующий код: | 

ргоседике ТМа1лпРоги.СгеасеВа(опС11ск (бепаехг: ТОБ)ес®); 

Беаап | 

СЬ11АЕохи:= ТСЬ11АЕоги.Сгеахе (Оутег) ; 
епа;- 


‚РгодесЕ ОрНоп$ 


и 


| Мал от. ре | | | т] | 


| дыосеве от: ^^ Аамыем | 


МОТ окно 


| Г Сем 


Рис. 9.14. Окно настроек проекта Рис. 9.15. Вид главного окна нашего. 
многодокументного приложения 


Здесь мы присваиваем переменной сн119Еоги указатель на новое созданное 
ОКНО ТСЬ119Рогт.Сгеаее. Переменная сн11аЕоха объявлена в модуле дочернего 
окна в разделе уахг: 

уаг 

СВ11АРохиа: ТСВ119Еоги; 


Запустите программу и попробуйте. несколько раз нажать на кнопку Создать. 
У вас должно создаться сразу несколько дочерних окон, как показано на рис. 9.16. 

Но если вы попытаетесь закрыть любое из них, оно просто свернется. Чтобы ок- 
но закрывалось, нужно создать обработчик события опс1озе для дочерней формы 
ив нем написать: 

ргоседигте ТСЬ11Якога.ЕохиС1озе (5еп4ег: ТОБзесе; уаг 

Асе10п: ТС1озеАсЕ1оп); 

Бед1п 

АСЕ1оп: =саЕгее; 

епа; 
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|“ МОТ окно |= СХ. 
|. Создать, _ Заголовок. | ‚ Выстроить окна| - Следующее |. ОН | -^ 1 


№ г Дочернее окно 


Рис. 9.16. Работающее многодокументное приложение 


Здесь переменной АсЕ1оп (действие) присваивается значение саЕгее. Эта пере- 
менная передается обработчику события в качестве второго параметра. Мы изме- 
няем действие, которое выполняется по умолчанию для клиентских многодоку- 
ментных окон на саРгее, что заставляет форму уничтожиться. Как вы могли 
убедиться, по умолчанию для МО]-приложений окно сворачивается. 

Сразу же посмотрим, какие еще значения может получать переменная АсЕ1 оп: 


С самопе — ничего не делать, т. е. окно не будет закрыто; 


С сан19е — спрятать окно, но при этом оно не будет уничтожено, а память не бу- 
дет освобождена. Это значение по умолчанию для $П]-окон. По закрытию они 
просто прячутся, но не уничтожаются, поэтому их достаточно создать только 
один раз, и можно потом вызывать сколько угодно раз; 


О сам1па12е — не закрывать, а только минимизировать окно. Именно это значе- 
ние используется по умолчанию для дочерних окон в МО[-приложениях. 


Вот теперь наше приложение готово. 


ПРИМЕЧАНИЕ. На компакт-диске, прилагаемом к книге, в папке \Примеры\Глава МОИ 
вы можете увидеть пример этой программы. 


$ 


Как видите, для разных типов приложений используется один и тот же тип окна 
ТЕОГи, что очень удобно. Но вы должны помнить, что ТЕохи может работать немно- 
го по-разному, и учитывать это при написании реальных приложений. 
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Напоследок рассмотрим несколько полезных свойств и методов формы, приме- 
ры которых уже реализованы в рассмотренных выше программах. — 

О Асе1уемртсь11а — указывает на активное дочернее окно. 

О мотсь11асолаЕ — целое число, указывающее на количество дочерних окон. 

О мотсь11ахеп — через это свойство можно получить доступ к любому дочерне- 
му окну. Например, второе окно можно получить с помощью мотсн11ахеп [2]. 
Допустим, вам надо изменить заголовок активной дочерней формы. Как узнать, 

какая из них активная, когда их несколько? Очень просто. Создайте в главной фор- 

‘ме кнопку и по ее нажатии напишите: 
ргоседиге ТМа1пЕоги.Вие(Еоп1С11ск (беп@ег: ТОБ)ес®); 
ред1п 

АСсЕ1\уемМотСср11а.СарЕ1оп:='Активное дочеренее окно’; | 

В этом коде мы изменяем свойство СарЕ1оп активной формы. Если нет актив- 
ной дочерней формы (бывает, когда дочерних форм вообще нет), то свойство 
АсЕ1уемртсь11а равно п11. 

Давайте попробуем изменить заголовки всех дочерних окон. Для этого запустим 
цикл от 0 до мотсн11асоцпе и изменим все заголовки: .. 
Бог 1:=0 6о МРТСВ119СочиЕ-1 ао | 

МОТСр11Аатеп [1] .СарЕ1оп:='Новый заголовок’; 

Есть еще несколько интересных методов. 

Аггапаетсопз — выстроить иконки всех дочерних окон. 

Сазсаае — выстроить каскадом все дочерние окна. | 

М№ехе — следующее дочернее окно. 

Ргеу1оиз — предыдущее дочернее окно. 


Оооо,оо 


Т11е — тоже выстроить дочерние окна, только мозаикой. 


Обратите внимание, что МП]-окно мы не отображаем. Оно само показывается 
на экране; а мы только вызываем конструктор для создания нового экземпляра. По- 
чему? Посмотрите на свойство \/15151е у дочернего окна. Обратите внимание, что 
оно равно ские. Когда это свойство равно сгие, ТО окно видимо и должно отобра- 
зиться на экране, а когда мы изменяем свойство гохшзеу1е на Езмотсьз1а, то свой- 
СТВО \\15151е тоже автоматически становится равным Егие. | 

Учитывайте этот нюанс. Если вы случайно сделали окно дочерним, а потом по- 
меняли обратно на ЕзМогта1, ТО после запуска это окно сразу же отобразится на 
экране (если форма в списке автоматически создаваемых), потому что свойство 
\15151е останется равным истине. | 


9.6. Инициализация окон 


Вот теперь мы написали уже достаточно много примеров и готовы узнать, как. 
инициализируются окна. В этой части мы рассмотрим: из чего состоит "сердце" на-. 
шей программы, где инициализируются окна и как управлять этим процессом. 
До этого момента эти вопросы не рассматривались, чтобы не забивать вам голову, 
но теперь это необходимо для продолжения разговора о программировании `на Оерм. 
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Создайте новый проект. Сохраните модуль главной формы под именем 
Ма1п0Оп1®.раз, а проект под именем $р1азНРго)есе.арх. Теперь выберите из меню 
Ргозесё (Проект) пункт Уе\у Зоигсе (Просмотр исходника), чтобы увидеть исход- 
ный код проекта. Вы должны увидеть код, показанный в листинге 9.1. 


ргоагат $р1азНРгоЗесе; 


15е5 
Роумс, 


Ма1п0Оп16 1п 'Ма1пОп1е.раз' {Еоги1}; 
{$В *.гез} 


Ъеа1п | 
Арр11саЕ1оп.1п161а117е; 
Арр11саЕ1оп .СгеасеРоги (ТРогт1, Ротта1); 
Арр11сае1оп.Кап; 


ева. 


Все это не что иное, как содержимое файла Зр|азНРго]ес(.арг. Первой строкой 
стоит имя программы рходхгаю 5р1азНРго3есе. В этой строке ничего менять нельзя, 
потому что имя файла должно совпадать с написанным здесь именем программы. 
После этого. идет уже знакомый раздел изез, в котором можно подключать необ- 
ходимые модули. У нас подключены модули Еогиз (позволяет работать с формами) 
И Ма1поп1е (модуль главного окна). Если в вашей программе несколько окон, то все. 
они автоматически прописываются здесь в раздел изез, потому что в этом файле 
описана инициализация окон, и он должен знать о существовании всех окон в про- 
грамме. Если какое-то окно инициализируется не автоматически, то только в этом 
случае вы можете убрать модуль этого окна из подключения изез, иначе при ком- 
пиляции произойдет ошибка. | 

Между ъедз1п и епа выполняются три строки. 

С лдрр11сае1оп. 1п1Е1а11=2е — запускает инициализацию приложения. Убирать не 
рекомендуется. | | | 


С Арр11саЕ1оп.СгеабеРоги (ТЕоги1, ЕРохш1) — метод СтеакеРоги инициализиру- 
ет форму. У него два параметра — имя объекта и имя переменной, которая впо- 
следствии будет указывать на созданный объект. В нашем случае это имя фор- 
МЫ ТРогш1 и имя переменной Еогит. Переменная Еоги1 автоматически 
описывается в модуле объекта ТЕохги1 (в нашем случае это модуль 
Ма1п0п1е.раз) в разделе хах: т 
уаг 

Еотгт1: ТЁРогт1; 


С Арр11саЕ1оп.Вип — после инициализации всех форм можно запускать выполне- 
ние программы с помощью метода Вип объекта Арр11саЕ1оп. 
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Здесь везде используется объект Арр11сае+оп. Этот. объект всегда существует 
в ваших программах в единственном экземпляре и создается с помощью строки 
Арр11саЕ1оп.Тп1Е1а112е. С этим объектом мы будет знакомиться постепенно на. 
протяжении всей книги, а сейчас достаточно знать, что ‘он происходит от класса 
ТАрр11саЕ1оп и реализует основные функции управления приложением. = 

Теперь создайте новую форму, выбрав меню ЕЙе | Мем | Еогт, и сохраните ее 
под именем $р1азНОп1е.раз. Снова посмотрите на исходный код проекта, он дол- 
жен быть таким, как показано в листинге 9.2. 


ргоагатш 5р1азНРго)ес(; 


ц5е5 
Роути$, 
Ма1пОп1е 1п 'Ма1пОп16е.раз' {Роум1}, 
Зр1азНОп1е 1п 'ср1азНОп1е.раз' {Рогт2}; 


{$8 *.гез} 


_ реч1т 

Арр11сае1оп.1п161а]117те; 

Арр11саЕ1оп .СгеасеРога(ТРохти1, Роу); 
Арр11сае1оп.СхгеабеЕохт(ТЕохи2, Рохи2); 
Арр11саЕ1оп.Кип; 


епа. 


_ В раздел ззез добавилось объявление нового модуля, а между Ъед1п И епа поя- 
вился код создания новой формы. 

Теперь войдите в свойства проекта (из меню Ргодесй (Проект) нужно выбрать 
‚пункт Орбоп (Опции)). На вкладке Еогт$ (Формы) в списке Аи®-сгезме {огил$ 
(Автосоздаваемые формы) у нас описано две формы. Выделите когш2 (эта вторая 
форма, которую мы только что создали) и переместите ее в список АуаЙаЫе {огиз _ 
(Доступные формы). Закройте окно свойств кнопкой ОК и посмотрите на исход- 
ный код проекта. Вы можете заметить, что строка инициализации второй формы 
исчезла. Это потому, что мы перенесли ее из списка автоматически создаваемых 
форм в список доступных форм. То есть наша форма доступна в проекте, но не 
создается автоматически при старте программы. Таким образом, чтобы использо- 
вать Еоги2, мы ее должны сначала создать. 

Чтобы дальше было удобнее работать, переименуйте главную форму Роги1 
В Ма1пгокт, а вторую форму Еоги2 В $р1азВгоги. Так мы не будем путаться, где 
главная форма, а где форма-заставка. Установите на главную форму кнопку и по ее 
нажатии напишите следующий код: 

ргосеацге ТМа1пРоут.Ва66оп1С11сКк (бепаеу: ТОБ)ес®); 

Беа1п 
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Арр11саЕ1оп .СгеакеГоги(Т5р1азНЕоги, $р1азПРогм); 
бр1азрРогт. бПомМоаа1 ; 
бр1азрЕогт.Егее; 


ева; 


Здесь в первой строке кода мы инициализируем форму $р1азнЕогм. Во вто- 
рой — созданное окно выводится на экран. И в последней строке происходит унич-. 
тожение окна методом кгее. | 

Но есть еще один способ создания окон, который мы уже использовали, и он 
предпочтительнее. Напишите следующий код: | 

ргоседиге ТМа1пРохт.Ва66оп1С11ск (бепдег: ТОБ)ес®); 

Бед1п | 

бр1азВРоги: =Тбр]1азИРогм.Сгеаее (Оутег); 
бр1азВРогт. бПомМода1 ; | 

‚ бр1азПРогм.Егее; 


епЯ; 


Здесь переменной $р1азНРоха присваивается результат вызова метода схеаке 
объекта т5р1азЪгоги. Этому методу нужно передать только один параметр — вла- 
дельца окна. Если владельца нет, то можно передавать п11 (нулевое значение ука- 
зывает на отсутствие владельца). В нашем случае передается охпехг — ` свойство, 
в котором хранится указатель на текущее окно. Если главным окном должно быть 
не текущее окно, то нужно указать имя объекта — Рохт1 .Омтег. 

Давайте сделаем так, чтобы наше окно 5р1азнЕоги появлялось на время загруз- 
ки программы. Подобные окна вы видите при старте таких программ, как ОерЬ, 
\огд, Ехсе] и других приложений. Для этого зайдите в исходный код проекта 
и подкорректируйте так, чтобы он соответствовал коду, приведенному в лис- 
тинге 9.3. 


Беа1п 


5р1азВРогт: =Тбр1азВЕогт.Сгеаее (п11); 
Зр1азПРозта. $Пом; 
Зр1азИРогм.Кера1те; 


Арр11саЕ1оп.1п161а11=е; 


Арр11саЕ1оп .СгеабеРогт (ТМа1пРоут, Ма1пРоута); 


З1еер (1000); 
Зр1азПРогм.Н1ае; 
бр1азРЕогм.Егее; 


Арр11саЕ1оп.Вип; 


еп; 
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Рассмотрим этот код построчно. 


1. Создается окно $р1азьРохи. У. этого окна не будет владельца, потому что оно 
показывается даже до того, как создано главное окно. Поэтому в качестве пара- 
метра методу сгеасе мы указываем значение п11. 


2. Отображаем окно на экране не модально, чтобы окно отобразилось, а приложе- 
ние продолжало работать. 


Перерисовка окна с помощью вызова метода Кера1пе. 
Инициализация приложения. 
Создается главная форма тма1пЕохгт. 


пиго 


Делаем задержку, чтобы окно $р1азпЕога могло хоть немного "зависнуть" на 
экране. Для этого мы используем процедуру $1еер, а в качестве параметра ука- 
зывается время задержки в миллисекундах. Одна секунда равна 1000 миллисе- 
кунд. Для использования этой функции в раздел чзез нужно добавить модуль 
И\1пао\м$. 


7. Прячем форму 5р1азпЕоги вызовом метода н14е. 


со 


Уничтожаем окно. 
9. Запускаем приложение. 


Запустите программу, и вы сначала увидите окно 5р1азнРохю (на него помещен 
текст тьаье1 с надписью "Идет загрузка"), а потом уже появится главное окно. 


СОВЕТ. Когда создаются окна (вызываются СхеасеЕогт), программа выполняет обра- 
ботчики события ОпСгеаке всех создаваемых форм. Если у вас приложение слишком 
большое и операции в этих обработчиках выполняются длительное время, то желатель- 
но показывать информацию о ходе выполнения этих операций в окне 5$р1азЪРогм. 
В этом случае первым делом создается именно это окно, и оно отображается на экране. 
Пользователь видит, что идет загрузка, и спокойно ждет ее окончания. 


‚Когда инициализируется форма, то в этот момент вызывается ее конструктор. 
Если у вас в проекте 20 форм и конструктор каждой из них выполняет какие-то 
долгие по времени операции, то создается ощущение, что программа зависла. Не- 
обходимо либо оптимизировать код для повышения скорости загрузки программы, 
либо информировать пользователя о том, что программа не висит, а идет загрузка. 

Если вы не будете информировать о ходе загрузки, и на экране ничего появлять- 
ся не будет, то пользователь может подумать, что программа зависла, и попытаться. 
запустить ее еще раз. Это в свою очередь может привести к краху всего вычисли- 
тельного процесса. Например, попытка запустить дважды программу, которая ра- 
ботает с СОМ-портом. В этом случае вторая копия уже не сможет открыть порт 
(СОМ-порт можно открыть только один раз). Поэтому лучше лишний раз создать 
окно с отображением хода загрузки, чем выслушивать недовольство пользователей 
по поводу работы вашей программы. | 

Как можно увеличить скорость загрузки? Сразу напрашиваются следующие ва- 
рианты. | 


О Инициализировать только основные формы. Очень хорошая идея. Незачем ини- 
циализировать 150 форм, когда из них будет реально использоваться не более 
10, а остальные если и будут вызываться, то очень редко. Это излишние потери 
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времени при загрузке и расходы памяти во время работы. Пусть у вас автомати- 
чески создаются только необходимые формы. 

С Выполнять все операции в обработчике события оп5пом. Логичное решение, 
ведь при инициализации формы вызывается ее конструктор и обработчик собы- 
ТИЯ ОпСгеаке, а значит, если эти методы будут выполняться быстро, то и загруз- 
ка программы ускорится. Но если перенести код в обработчик события оп5вом, 
то будут задержки при отображении окна, причем при каждом ‘отображении. 
Можно ухитриться и проверять в оп5вом, если инициализация уже была, то про- 
пустить этот код и просто отобразить окно. 


Второй вариант — неплохой, но не забывайте, что МО]-окна создаются сразу 
видимыми, поэтому если они в списке дикоСгеаке, то во время загрузки программы 
для таких окон будет 1 вызван как конструктор, так и отображение окна, т. е. и обра- 
ботчик опбНом. 


ПРИМЕЧАНИЕ. На компакт-диске, прилагаемом к книге, в папке \Примерь\Глава о\бразН 
вы можете увидеть пример этой программы. 


9.7. Фреймы 


_Фреймы появились в ОерЫ сравнительно недавно, и с первого раза я не понял 
их преимуществ, но недавно мне пришлось писать программу, в которой в двух 
разных окнах приходилось делать схожую функциональность и визуальное оформ- 
ление. Как это реализовать? Можно в одном окне создать панель, а во второе окно 
копировать эту панель, но это достаточно проблематично, долго и неудобно. И тут 
я вспомнил про фреймы, они оказались отличным решением. 

Создайте новое приложение, в котором будем создавать фрейм. Для этого выби- 
раем меню ЕИе | №ем | ОШег и здесь ищем иконку с именем Егате (Фрейм). 
В Ре!рН: 2006 она должна быть в разделе ОерШ ргодес5 (Проекты Бер). По на- 
жатии ОК будет создана новая форма, только у нее не будет заголовка. Если загля- 
нуть в объектный инспектор, то по свойствам может показаться, что перед нами 
действительно форма, но это фрейм. В заголовке объектного инспектора можно 
увидеть надпись: 


Егаше1 ТЕгаще1 


Если вы перейдете в исходный код и посмотрите на объявление класса формы, 
то в качестве предка снова увидите класс тЕгхаве. 
ТЕгапе] = с]1аз$ (ТЕгацще) 


Вы можете располагать компоненты на фрейме точно так же, как и на форме, 
и писать необходимый код, и все это будет корректно работать. Хотя на фрейме 
можно устанавливать большинство компонентов, но не все. Например, нельзя по- 
ставить АсЕ1оп компоненты. 

Для иллюстрации примера, поместите на форме по одному компоненту виекоп, 
ЕЯ1 Е И Мепо. По нажатии кнопки напишем строку кода: 


Мето1 .Г1пез.АЗа(ЕаЯ1е1.Техе); 
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Здесь мы просто добавляем в Мето-компонент новую строку, в качестве текста 
в которой будет содержимое поля ввода ка1 ‹. 

Сразу же переименуем компонент в ТезЕЕхаше и сохраним его в файле. Да, 
фреймы, как и формы, сохраняются в файле, причем также в двух файлах — код 
в .раз-файле, а визуальная форма в .4Ёт. 

Теперь посмотрим, как можно использовать эти компоненты. Для этого выпол- 
няем следующие действия. | 


1. Переходим в главную форму программы. | 
2. Выбираем компонент Егате$ (Фреймы) с вкладки (апдага (Стандартная). 


3. Щелкните в любом месте формы, и перед вами появится окно, в котором нужно 
выбрать фреймы, существующие в проекте. Если в вашем проекте нет фреймов, 
то Ре]рЬ! сообщит об ошибке, и ничего: не появится. 


4. Выбрав нужный фрейм (у нас он один), нажмите кнопку ОК. 


В главной форме программы появится содержимое фрейма. Если сейчас ском- 
пилировать программу и запустить, то по нажатии кнопки строка из поля ввода бу- 
дет добавляться в Мето компонент. Таким образом, визуальная форма фрейма вме- 
сте с кодом становится частью выбранной формы. Вы можете создать еще одно 
окно, которое будет вызываться как дочернее, и туда вставить этот же фрейм, и все 
будет работать корректно. 


ПРИМЕЧАНИЕ. На компакт-диске, прилагаемом к книге, в папке \Примерь\Глава Э\Ргате 
вы можете увидеть пример этой программы. 


Глава 10 


Основные приемы 
программирования 


: 


Мы уже изучили достаточно теории и готовы приступить к реальным примерам 
программирования. В этой главе мы познакомимся с некоторыми приемами про- 
граммирования утилит и относительно простых программ. 

Эта глава будет, наверное, одной из самых больших, потому что здесь вам пред- 
стоит узнать о работе с системным реестром, файлами и потоками и при этом по- 
знакомиться с теорией. Все это просто необходимо любому программисту. В главе 
приводится достаточно много примеров, максимально приближенных к реальным. 
программам. | 

В этом смысле глава будет более приближена к практике, и теории здесь будет 
намного меньше по сравнению с предыдущими главами. В дальнейшем чем дальше 
мы будем продвигаться по пути изучения Веры, тем меньше будет теории и боль- 
ше практики. 

Большинство материала главы посвящено изучению методов записи и чтения 
данных с использованием разных источников информации (например, из файлов или 
реестра). Остальной материал понадобится при: работе с источниками информации. 


10.1. Работа с массивами 


Работа с массивами — одна из наиболее важных и необходимых тем в програм- 
мировании. Мы будем достаточно часто использовать массивы. По ходу изложения 
материала очень часто упоминается, что эта глава очень важна, и это действитель- 
но так. Поэтому каждая ее часть является необходимой. Если вы хотите создать 
простой и удобный в понимании программный код, придется изучать различные 
приемы и технологии программирования. В главе даются необходимые для их пПо- 
нимания основы. 

Итак, приступим к изучению массивов. Что такое массив? Это просто набор ка- 
ких-то данных, следующих друг за другом. Массив в Ре]р! обозначается как 
аггау. Чтобы объявить переменную типа массив, нужно описать ее в разделе уах 
следующим образом: 

хах 

ух: агхгау [длина массива] оЁ тип данных; 


Как определяется длина массива? Очень просто, это даже похоже на геометри- . 
ческое определение. Например, пусть нужен массив из 12 значений. Длина такого 
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массива может быть [0..11] или [1..12]. В квадратных скобках вы должны поста- 
вить начальное и конечное значения массива, а между ними две точки. 

Тип данных может быть любой. Например, надо объявить массив из 12 строк; 
это можно сделать следующим образом: 

уаг | . 
х: агккау [0..11] оЁ 5Ех1та; 


В этом примере мы объявили переменную х типа "массив" из 12 строк. 

Чтобы получить доступ к какому-то элементу, нужно написать имя переменной 
массива и после этого в квадратных скобках написать номер элемента, к которому 
нужно получить доступ. Например, давайте прочитаем 5-й элемент и запишем 
7-й элемент нашего массива: | 

уах . 

х: аггау [0..11] оЕ $5Ет1па; 


ЗЕ’: бегала; 
Бед1п 

5Ег:=и[5]; 
г[7]:='Привет' 
епа; 


Не правда ли, все это очень похоже на то, как мы работали с символами в стро- 
ках. Строки — это те же массивы, только из отдельных символов. 

В этом примере в первой строке кода переменной 5х присваивается значение 
пятого элемента массива 5х: =х [5]. В следующей строке седьмому элементу присваи- 
вается строка "Привет" — х[7]:='Привет'. 

Давайте напишем небольшой пример 
для работы с массивами. Допустим, требует- 
ся узнать, какой сегодня день недели. Создай- [А день не, недели. | 
те новое приложение. Установите на форму Пи 
один компонент тЕа1е (дадим ему имя 
РауоОЕМеекЕа1+е) и одну кнопку (дадим ей имя 
СекрауВие коп и напишем в заголовке: "Узнать 
день недели"). В результате получилась фор- 
ма, как на рис. 10.1. 

По нажатии кнопки мы будем узнавать, 
какой сегодня день недели, и записывать ре- 
зультат в строку тЕа1-. Напишем для кнопки 
код, показанный в листинге 10.1. 


-__^_ Узнать день недели .. 


Рис. 10.1. Форма будущей программы 


ргоседиге ТЕогт1 .СеЕрауВиесопС11ск (бепаех’: ТОБ)ес®); 


ах 
Яау: Тпсеаег; 
меек: аггау[1..7] оЕЁ зЕхг1па; 


ъед1п 


Основные приемы программирования | 183 


меек[ 1] := 'Воскресенье"'; 
меек [2] .:= 'Понедельник'; 
шеек [3] := 'Вторник';. 
меек [4] := 'Среда'; 
меек[5] := 'Четверг'; 
меек[6] := 'Пятница'; 
меек[ 7] := 'Суббота'; 


Дау: =РауОЁЕМеек.(Раее)}; 
ПауоЕМеекЕа1 .Техк : =меек [Чау]; 
епа; 


Здесь объявлен массив меех из семи элементов. После этого мы последователь- 
но всем элементам массива присваиваем названия дней недели. 

Для определения дня недели существует функция рауогМеек. Ей нужно передать 
только один параметр — дату, день недели которой нужно узнать. Мы передаем 
результат работы функции раке, которая возвращает текущую дату. Получается, 
что РауоЕМеек вернет нам день недели текущей даты. 

Вроде все нормально, рауоЕМеек возвращает строку, в которой написано слова- 
ми, какой сегодня день. Если функция возвращает 0, то это воскресенье, если 1 — 
понедельник, 2 — вторник, 3 — среда ит. д. Как видите, отсчет идет с воскресенья 
(по-европейски). Точно так же мы заполняли и массив: | — это воскресенье, 2 — 
понедельник и т. д. 

После этого надо превратить число в строку. Это делается очень просто. Надо по- 
лучить только соответствующий элемент массива — и все. Если функция вернула 
нам 2, то это должен быть понедельник. В массиве под вторым номером идет "Поне- 
дельник", `поэтому нам просто нужно получить строку, находящуюся под вторым но- 
мером в массиве. Вот именно это и происходит в последней строке еек [дау]. 

А что если объявить массив в виде константы? Да, это не запрещается. Но как 
массиву-константе присвоить значение? 

соп$5е 

еек: агхгау[1..7] оЕ зеулта = 
('Воскресенье', 'Понедельник', 'Вторник', 'Среда', 
'Четверг', 'Пятница', 'Суббота'); 


После описания размерности и типа массива необходимо поставить знак равен- 
ства и в круглых скобках перечислить все значения массива. Вот тут нужно быть 
очень осторожным — количество объявленных значений должно четко соответст- 
вовать количеству описанных. Если вы объявите массив из 10 значений, ав круг- 
лых скобках будет только 9, то произойдет ошибка. В листинге 10.2 вы можете 
увидеть пример определения дня недели через массив-константу. 


ес 


Ее 


ргоседиге ТРогт1 .ВиеЕоп1С11СК (5епаег: ТОБЗес®).; 
сопзе 


меекК: аггау[ 1..7] оЁ зех1па = 


7 Зак. 1273 
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('Воскресенье', 'Понедельник', 'Вторник', 'Среда' 
'Четверг', 'Пятница', 'Суббота'); 
‘уах 

Яау: Тпеедег; 
Бед1п 

Дау: =РауОЕМеек (ПРабе); № 
РауоОЕМеекЕа1е .Техе : =меек [Чау]; 

еп; 


ПРИМЕЧАНИЕ. На компакт-диске, прилагаемом к книге, в папке \Примеры\Г лава 10\Атауз 
вы можете увидеть пример этой программы. 


Давайте пойдем дальше и познакомимся 
с динамическими массивами. Это массивы, 
которые могут изменять свою длину, по- 
этому при объявлении не надо ее указывать. 
Вы просто указываете переменную и ее тип: 
у: аггау оЁ 1п6едег; 


В этом примере объявлена переменная г 
типа массив целых чисел без указания раз- й 
мера. Чтобы указать размер массива, можно |. Эв квадрате =81 
воспользоваться функцией зееЬепаен. У не |. 
два параметра: | | 


С переменная типа динамического массива; 
(С длина массива. | 


Давайте посмотрим все это на практике. 
Создайте новый проект в Ое|рШ и установи- 
те на форму две кнопки и один компонент 


ТЬ1зЕВох, как показано на рис. 10.2. Рис. 10.2. Форма будущей программы 
Для первой кнопки мы напишем код, | 
указанный в листинге 10.3. 


уах 
у:аггау оЁ 1п6едег; 
1:Тпбедег; , 
Беа1п 
Т.1$ЕВох1 .Теемз .С1еаг; 
беешепаев (х,10); 


Рог 1:=0 во Нлав(г)-1 ао 
Беа1п 

и[1]:=1*1; 

Т,1$ЕВох1 .ТЕемз.Ада (ТпЕТобех (1)+' в квадрате ='+ТоЕТобех (г[1])); 
епа; 


ева; 
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В области объявлений уаг объявлены две переменные. Первая это ‹, которая яв- 
ляется массивом чисел типа тпеедехг. Вторая переменная — 1, которую мы будем 
использовать в качестве счетчика. 

Переходим к самой процедуре. Первая строка очищает все строки у 11зЕВох1. 
Для этого вызывается метод т13зЕВох1 .ТЕешз .С1еахг. Мы это уже проходили, но 
вспомним, как это работает. У т1зЕВох1 есть свойство ТЕемз, где хранятся все 
строки. У теемз есть метод с1еаг, который удаляет все находящиеся в нем строки. 

Во второй строке вызывается процедура 5е-ГепаеВ, которая выделяет память для 
массива г (первый параметр), ‘размером в 19 элементов (второй параметр). Обраще- 
ние к элементам будет происходить уже знакомым способом, как х [номер_элемента]. 
Элементы будут нумероваться от 0 до 9, потому что мы выделили 10 элементов. 

Далее идет цикл. Функция н1оЪ (х) возвращает количество элементов в массиве к. 
В итоге получается, что цикл будет выполняться от 1:=0 (от нуля) до количества эле- 
ментов в массиве х минус | (т.е. до 9). Внутри массива выполняются две строки кода. 

г [1]:=1*1; //Здесь 1 элементу массива присваивается 1*1. 

Следующая строка добавляет новый элемент в 11зЕВох1. Функция тпЕТо5ех пе- 
’ реводит число в строку. | 

_Г15ЕВох1, Теемс. Ааа (ТПЕТОЗЕЕ (1) + в квадрате ='+ТпЕТобех (и[1])); 

С первой процедурой мы разобрались, теперь перейдем ко второй кнопке, для 
которой нужно написать содержимое листинга 10.4. 


Суре 
ТРупАгг=аггау оЁ 1пбедег; 
уаг | 
г:ТРупАхг; 
1:Трседег; 
Беч1п 
Т15ЕВох1 .Тееше.С1еаг; 
беегепаев (х,10); 


Рог 1:=0 бо Н1ов(х)-1 ао 
х[1] :=1%*1; 


беецепаей (г,20); 
Рог 1:=10 во Н1ар (т) -1 ао 


[1] :=1*1; 


Рог 1:=0 Со Н1ав(хг) ао 
1$ЕВох1 .Теемз .Ааа(ТпеТобег (1)+' в квадрате ='+ТпеТобехг (г[1])); 


ета; 


Эта процедура выполняет похожие: действия, но с неболышими особенностями. 
В начале мы объявляем новый Тип: ТрупАгг=аггау оЁ 1пеедег. После этого конст- 
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рукция г :ТБупагг будет означать, что г относится к типу трупАгкг, а тот относится 
К ахгау оЁ 1пеЕедех. Это то же самое, что мы писали в первой процедуре т:аггау 
оЕ 1пеедег, Только такая конструкция удобней, если требуется объявить несколько 
динамических массивов. Вам не приходится сто раз писать громоздкую строку 
’ тг:ахггау оЁ 1пеедехк, ВЫ объявляете новый массив как ТРупАгг. 
. Далее идет все та же очистка строк и выделение памяти под массив. 
Рог 1:=0 со Н1ав(у)-1 ао | 
х[1]:=1*1; 

Эта конструкция заполняет десять элементов квадратами числа 1. После этого 
мы снова вызываем функцию 5еегепаев (г,20), в которой говорим, что массив те-_ 
перь будет состоять из 20 элементов. Таким способом можно как увеличивать ко- 
личество элементов, так и уменьшать его. 

ох 1:=10 во Н191(х)-1 ао 

11 [1]:=1%1; | 

Здесь мы заполняем квадратами числа 1 элементы, начиная с 10 и по последний. 
В конце мы заполняем 1,15ЕВох1 значениями элементов массива. 


ПРИМЕЧАНИЕ. На компакт-диске, прилагаемом к книге, в папке \Примеры\Глава 10\ 
ОупАтау$ вы можете увидеть пример этой программы. 


10.2. Многомерные массивы 


_Мы уже разобрались с массивами, но они пока работают только в одном изме- 
рении, потому что данные располагаются в виде строки. Для’ Ое]р! это не предел, 
и он может работать и с несколькими измерениями массива. 

Например, допустим, что вам надо держать таблицу из данных. Таблица будет 
состоять из пяти колонок и четырех строк. В этом случае вы можете завести, 
например, четыре массива, в каждом из которых будут храниться по 5 элементов. 
Но это же неудобно. Вот тут на помощь приходят многомерные массивы. | 

Объявляются такие массивы так же, как и одномерные, разница только в том, 
что когда в квадратных скобках указывается длина массива, нужно указывать раз- 
меры строк и столбцов данных. Рассмотрим пример объявления двухмерного мас- 
сива из четырех строк и пяти столбцов: 

уаг | 

с:аггау[0..3, 0..4] оЕЁ 1п6едег; 

Как видите, в квадратных скобках перечислены через запятую размеры строк 
и столбцов. Заметьте, что мы объявили массив от 0 до 3 — это будет четыре эле- 
мента и от 0 до 4, что будет составлять 5 элементов. | 

Работа с таким массивом также достаточно простая (листинг 10.5). 


й реров рая эра, ПОВЕРИТЕ ССОО эрояударо О ни Я Ея бавелуя. Эророло да яерелтяя д9тя родео А ооряе трея 


уаг 


`Е:агхау[ 0..3, 0..4] оЕЁ 1пеедег; 
Бед1п 
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[0] [0] :=1; 


Е [1] [0] :=2; 

Е [2] [0] :=3; 

Е [3] [0] :=4; 

[1] [1] :=5; 
епа; 


После выполнения этого примера таблица примет вид: 
10000 
25000 
30000 
40000 


Двумерность не предел, и вы можете создавать и трехмерные массивы. Давайте 
просто посмотрим на содержимое листинга 10.6, и вам все должно стать понятко. 


Е Е АИ, ее ее 
2 Е И Я бу Е Е 
Е ИЯ ; 


` 


уах 

С:аггау[0..3, 0..4, 0..2] ог‘ 1п6едег; 
Беа1п 

[0] [0] [0] :=1; 

Е [1] [0] [0] :=2; 

Е [2] [0] [0] :=3; 

[3] [0] [0] :=4; 

Е [1] [1] [0] :=5; 


епа; 


® 


Использование массивов очень удобно, но иногда может оказаться излишне рас- 
точительным. Дело в том, что двумерный массив из 100х100 строк может "съесть" 
достаточно много оперативной ‘памяти (100*100* на длину строки). Да, в наше 
время о памяти мало кто заботится, но это ужасно, и ничего хорошего в этом нет. 


10.3. Работа с файлами. 


Для работы с файлами многие предпочитают использовать \УтАР!. Не пугай- 
тесь этого слова, потому что работа с \/тАР! в Реры очень прозрачна, и вы не 
ощутите никаких проблем. В самых первых версиях \!1п4до\5 для чтения из файла 
использовалась функция _1геаа. Потом появилась веааЕ11е. А сейчас рекоменду- 
ют использовать веа4Е11еЕх, которая может работать с файлами большего размера. 
После каждого изменения функций У\/тАРГ приходится переделывать весь код 
программ, потому что нет гарантии, что старые функции будут корректно работать 
в новых версиях \/т4о\$. Хотя пока что М!сгозой не торопится удалять старые, 
ненадежные и нерекомендуемые функции. 

Вот поэтому рекомендуется использовать специализированный в Ое!рЫ объект 
ТЕ! 1е5егеам. Вы можете написать и свой класс, который будет делать то же самое, 
НО ТЕ11е5Егеам делает это достаточно хорошо. 
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СОВЕТ. Объект ТЕ11ебегеам рекомендуется использовать по следующей причине. 
Если Мсгозой снова введет какие-то нововведения, Войапд учтет их в объекте, и вам 
нужно будет только перекомпилировать свои программы. Никаких изменений в код 
вносить не надо. Вы один раз изменяете объект (или это делает Войапа) и компили- 
руете все свои программы с новыми возможностями. Это громадное преимущество 
ООП, и вы должны его использовать, потому что оно упрощает жизнь. 


У тЕ11е5Егеаш есть еще одно преимущество — вам не нужно отслеживать ново- 
введения от М1сгозой. В этой корпорации постоянно появляются новые идеи, из-за 
которых появляются новые функции, а мы, программисты, должны постоянно изу-. 
чать новинки и переписывать код. Лично я намучился уже с функциями работы 
с файлами. Их так много, что с первого взгляда даже не поймешь, какие новые 
и рекомендуются к использованию, а какие устарели. В любом случае, использова- 
ние этого объекта намного проще, чем У/тАРТ, поэтому желательно начинать изу- 
чение работы с файлами именно с него. | 

Итак, давайте взглянем на объект тЕг11е5Егеам. Первое, что надо сделать, — это. 
объявить какую-нибудь переменную типа тЕ11е5Егеам: 

уаг 

Е: ТЕ11ебегеапм; 


Вот так мы объявили переменную Е типа объекта тЕ11е5Егеат. Теперь можно 
проинициализировать переменную. | 

Инициализация —Щ выделение памяти и установка значений ПО умолчанию. 

За эти действия отвечает метод Сгеахте. Нужно просто вызвать его и результат 
выполнения присвоить переменной. Например, в нашем случае нужно вызвать 
ТЕ11ебсгеам.Сгеаке И результат записать в переменную Е. 

Е := ТР11ебегеам.Сгеа®е (параметры); 


Давайте разберемся, какие параметры могут быть при инициализации объекта 
ТЕ11е5сгеап. У метода Сгеаке может быть три параметра, причем последний мож- 
но не указывать. 


О Имя файла (или полный путь к файлу), который надо открыть. Этот параметр — 
простая строка. | 


О Режим открытия. Здесь вы можете указать один из следующих параметров 
открытия файла: 


® Е0Сгеаке — создать файл с указанным в первом параметре именем. Если 
файл уже существует, то он откроется в режиме для записи; 


» ЕтОрепВеаа — открыть файл только для чтения. Если файл не существует, то 
произойдет ошибка. Запись в файл в этом случае не возможна; 


® ЕтОрепиИг1ее — открыть файл для записи. При этом во время записи текущее 
содержимое уничтожается; 


® ЕтОрепВеа@\г1еке — открыть файл для редактирования (чтения и записи). 


О Права, с которыми будет открыт файл. Здесь можно указать одно из следую- 
щих значений (а можно вообще ничего не указывать): 


® ЕпбрагеСошрае — при этих правах другие приложения тоже имеют права ра- 
ботать.с открытым файлом; 


® ЕабрагеЕхс1аз1уе — другие приложения не смогут открыть файл; 
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® Гибпагерепуйг1Ее — при данном режиме другие приложения не смогут от- 
крывать этот файл для записи. Файл может быть открыт только для чтения; 


® ГибрагерепувВеая — при данном режиме другие приложения не смогут от- 
крывать этот файл для чтения. Файл может быть открыт только для записи; 


® ЕибрагерепуМопе — не мешать другим приложениям работать с файлом. 


С первыми двумя параметрами все ясно. Но зачем же нужны права доступа 
к файлам. Допустим, что вы открыли файл для записн. Потом его открыло другое 
приложение и тоже для записи. Обе программы записали какие-то данные. После 
этого ваше приложение закрыло файл и сохранило все ’изменения. Тут`же другое 
приложение перезаписывает ваши изменения, даже не подозревая о том, что они 
уже прошли. Вот так ваша информация пропадает из файла, потому что другая 
программа просто перезаписала ее. 

Если вы пишете однопользовательскую программу, ик файлу будет и! иметь дос- 
туп только одно приложение, то про права можно забыть и не указывать их. 

После того как вы поработали с файлом, достаточно вызвать метод Егее, чтобы 
закрыть его: _ 

Е.Егее; 


Теперь давайте познакомимся с методами чтения, записи и внутренней структу- 
рой файла. Начнем со структуры. Когда вы открыли файл, позиция курсора уста- 
навливается в самое начало и любая попытка чтения или записи будет происходить 
в эту позицию курсора. Если вам надо прочитать или записать в любую другую по- 
зицию, то надо передвинуть курсор. Для этого есть метод зеек. У него есть два па- 
раметра: | 
О Число, указывающее на позицию, в которую надо перейти. Если вам нужно пе- 

редвинуться на 5 байт, то просто поставьте цифру 5. 


О Откуда надо двигаться. Тут возможны три варианта: 
`’® борггошВед1пп1па — Двигаться на указанное количество байт от начала файла. 


® зоркошСиггепе — двигаться на указанное количество байт от текущей пози- 
ции в файле к концу файла. 


® зоггопЕПА — двигаться от конца файла к началу на указанное количество байт. 


Не забывайте, что | байт — это один символ. Единственное исключение — 
файлы в формате оп1соде. В них один символ занимает 2 байта. Так образом, надо 
учитывать, в каком виде хранится информация в файле. | 

Итак, если вам надо передвинуться на 10 символов от начала файла, можете на- 
писать следующий код: 

Е.беек (10, зоРгомВед1пп1па); 

Метод еек всегда возвращает смещение курсора от начала файла. Этим можно 
воспользоваться, чтобы узнать, где мы сейчас находимся, а можно и узнать общий 
размер файла. Если переместиться в конец файла, то функция вернет. количество 
байт от начала до конца, т. е. полный размер файла. | 

В следующем примере устанавливается позиция в файле на 0 байт от конца, т. е.. 
в самый конец. Тем самым получается полный размер файла: — | 


Размер файла := Ё.Зеек(0, зоРгомЕпЯ); 
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Вот таким небольшим трюком можно узнать размер. Правда, для этого придется ис- 
пользовать три операции: открыть, переместиться в конец файла и потом закрыть его. 
Для чтения из файла нужно использовать метод веаа. И снова у этого метода 

два параметра: 

С переменная, в которую будет записан результат чтения; 

О количество байт, которые надо прочитать. 

Давайте взглянем на код чтения из файла, начиная с 15-й позиции. Этот код вы 
можете увидеть в листинге 10.7. | | | 


уаг 


Е:ТР11ебекеам; //Переменная типа объект ТЕ11ебЕгеам. 

БиЁ: аггау[0..10] оЁ стаг; // Буфер для хранения прочитанных данных 
Беа1п | 

// В следующей строке я открываю файл Ё11епаме.Ехе для чтения и записи. 
Е: = ТЕ11еегеам.Скеаке ('с:\#11епаше.ехе', ЕпОрепКеаЯМи1%е); 


Е.Зеек (15, зоРгошСиггепе); // Перемещаюсь на 15 символов вперед. 
Е.Веаа(ЪаЕ, 10); // Читаю 10 символов из установленной позиции. 
Е.Етее; // Уничтожаю объект и соответственно закрываю файл. 

епа; | 


Обратите внимание, что в методе еек движение происходит на 15 символов не 
от начала, а от текущей позиции, хотя нужно от начала. Это потому, что после от- 
крытия файла текущая позиция и есть начало. Но лучше на это не рассчитывать. 

Метод веаа возвращает количество реально прочитанных байт (символов). Если 
не возникло никаких проблем, то это число должно быть равно количеству запро- 
шенных для чтения байт. 

Есть только два случая, когда эти числа отличаются: 


О при чтении был достигнут конец файла и дальнейшее чтение стало невозможным; 
О) ошибка на диске или любая другая проблема. 


Осталось только разобраться с записью. Для этого мы будем использовать метод 
\:15е. У него так же два параметра: 


С переменная, содержимое которой нужно записать; 
О число байт для записи. 
Пользоваться этим методом можно точно так же, как и методом для чтения. 


ЗАМЕЧАНИЕ. После чтения или записи текущая позиция в файле смещается на ко- 
личество прочитанных байт. То есть текущая позиция становится в конец прочитанно- 
го блока данных. 


Пример пока рассматривать не будем, потому что в принципе и так все ясно. 
А если есть вопросы, то на практике мы закрепим этот материал буквально через 
один или два раздела, когда будем работать со структурами. 
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10.4. Работа.с текстовыми файлами 


В предыдущем разделе был рассмотрен общий случай работы с файлами. 
С помощью тЕ11е5Ехеам вы можете читать данные побайтно. Если вы точно знаете, 
что в файле находится текст, то можно считанные данные преобразовать в строку. 

Сейчас мы познакомимся с их разновидностью — текстовым файлом. В этих 
файлах информация расположена не сплошным одинарным блоком, а в виде строк 
текста. Было бы удобно воспринимать такие файлы в виде наборов строк, а не по- 
байтно. Если текстовый файл читать с помощью тЕ11ебегеам, ТО переход на новую 
строку придется искать самостоятельно, анализируя считанные данные, в поиске 
кодов конца строки и перевода каретки (#13 и #10). 

Если попытаться прочитать текстовый файл методами, описанными в предыду- 
щем разделе, то работать с текстом будет неудобно: Допустим, что у нас есть файл 
из двух строк: 

Привет!!! 

Как жизнь? 


Если прочитать его с помощью объекта тЕ11езЕгеам, ТО мы увидим весь текст 
в одну строку: | 

Привет! ! !<СК><ЬЕ>Как жизнь? 

Здесь <св> — конец строки и <=> — перевод каретки на новую строку. Таким 
образом, чтобы найти конец первой строки мы должны сканировать весь текст 
с целью поиска признака конца строки и 
перевода каретки (<св> и <гЕ>). Это 
очень неудобно. А если у вас файл име- 


ет размер в 100 строк и вам нужно полу- Негагсву 
5+ 9 ТО ес 

чить доступ к 75-й строке? Как вы ду- 

маете, долго мы будем искать нужную ТРегекце! 

строку? Нет, точнее сказать, что не дол- Г. 

_го, а неудобно. ПЕНИЕ: 


| 
Тут на помощь приходит объект 


Т5Ех1паз, Который является простым 
контейнером (хранилищем) для строк. 
Можно еще пользоваться более про- 
двинутым вариантом этого объекта 
Т5Ег1п91156. Если посмотреть на ие- 
рархию объекта тзЗех1пот1зе (рис. 10.3), то мы увидим, ‘что он происходит от 
Т5Ек1паз. Это значит, что Т5Ех1па11зЕ наследует себе все возможности объекта 
Т5Ех1паз и добавляет в него новые. 

Для работы с объектом надо объявлять переменную типа объект: 

уау | 


нах 


Рис. 10.3. Иерархия объекта т$Ех1пат,1 $ 
(снимок из файла помощи бер!) 


Е: Т5Ег1п9115Е; //Переменная типа объект Т5Ех1п9115$6. 


Инициализируется эта переменная как всегда методом Сгеаке. Никаких пара-: 
метров не надо. Чтобы освободить память объекта и уничтожить его, применяется‘ 
метод ггее. Метод использования объекта показан в листинге 10.8. 
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уах 

Е:Т“еЕ1 пота ве; //Переменная типа объект Т5Ехг1п9Т156. 
Беда. | 

Е: = ТбЕг1паГ15Е.Сгеаее(); 

({/ здесь можно использовать класс 

Е.Етее; 
епа; 


В этом примере только создан новый объект и сразу произведено его уничтоже- 
ние, без использования. | 

Давайте снова вспомним, что тзЕх1т9т1зЕ происходит от т5ех{паз. Использо- 
вать т5ег1паз напрямую нельзя, потому что это абстрактный объект. Абстрактный 
объект — объект, который представляет собой пустой шаблон. Он может даже ни- 
чего не уметь делать, а только описывать какой-то вид или шаблон, на основе ко- 
торого можно выводить полноценные объекты. Вот так т$ех1патазе добавляет 
В Тек паз свои функции так, что он становится полноценным объектом. 

В результате получается, что мы не можем объявлять переменные типа 
Т5Ех1па$ и использовать этот объект, потому что это всего лишь шаблон. Это и так 
‘и не так. Переменную мы можем объявлять, но использовать сам объект не можем. 
Зато мы можем объявить переменную типа т5Ег1паз, но использовать эту пере- 
менную как объект т5Ех1п9т,1зе, потому что он происходит от первого. Это значит, 
что код, представленный в листинге 10.9, идентичен предыдущему. 


уах 

Е:Т56Ег1п195$; //Переменная типа объект Т5Ех119115$6. 
реа1п . 

Е:= Т5Ехг1п9Т15е.Сгеаее(); | 

Е.Ргее; 
епа; 


В этом примере мы объявили переменную типа т$ех1таз, но при создании про- 
инициализировали ее объектом т5Ех1пот1зе. Это вполне законная запись, потому 
что объект т5Ех1пот1зЕ происходит от т5Ег1паз. Новая переменная г будет рабо- 
тать как объект т5Ех1пот1зе, хотя и объявлена как т5ег1паз. Главное — каким 
объектом переменная проинициализирована. | 

Такие трюки можно проводить только с родственными объектами. Они не будут 
рассматриваться в этой книге, хотя знать их нужно, потому что вам может встре- 
титься что-то подобное в чужом коде. 

В разд. 7.6 мы уже познакомились с классом ЗЕЕ пд и его основными функ- 
циями, а сейчас оказывается, что это абстрактный класс и его нельзя создавать. Как 
же так получается? На самом деле, большинство компонентов используют именно 
ТбЕг1паГр156. 
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Итак, давайте рассмотрим, как можно работать с помощью т5ех1п9т1зе, с целью 
обработки текстовых файлов. Все очень просто. У него есть метод тоаЧЕкомЕ11е, Для 
которого нужно указать имя текстового файла. После этого через свойство 5Ег1паз 
можно получить доступ к любой строке, а в свойстве соипЕ находится число, указы- 
вающее на количество строк в файле. В листинге 10.10 показан пример загрузки фай- 
ла и работа с первыми двумя строками. Обратите внимание, что строки нумеруются 


с нуля. 


И аи 


уах 
Е:Т5Ег1па$; //Переменная типа объект Т5Ег1паГ15%. 
ред1п | 
Е:= Т56уг11911$6.Сгеабе(); 
Е.ГоаЯ9ЕгомЕ11е('с:\Е1]епапе.ехе');// Загрузка текстового файла 
Ё.5Ех1п9$[0]; // Здесь находится первая строка файла 


Е.5Ег1па$ [1]; // Здесь находится вторая строка файла 


Е.Ехее; 


ера; 


Давайте напишем пример, который будет искать в файле строку "Привет, Вася". 
Программный код, реализующий этот пример, приведен в листинге 10.11. 


уах 
Е:ТЗЕг1поз; `//Переменная типа объект ТЗЕГ1 Пат 56. 
1; Тпбедег; // Счетчик 

Беа1п | 
Е:= Т56у1п91Т15$6е.Сгеаее(); 


Е.ГоааРготЕ11е('с:\Е11епаще.ехе'); // Загружаем ‘текстовый файл 


Еох 1:=0 со Ё.Сойпе-1 ао // Запускаем цикл 


Беач1п // Начало для цикла 
1Е Е.56х1п9$[Т] = ‘Привет, Вася' ЕВеп //Если 1-я строка равна нужной, то 


Арр11сас1оп .МеззадевВох ('Строка найдена’, 
'Поиск закончен', МВ_ОКСАМСЕГ) 


еп; // Конец для цикла 
Е.Ехее; 
епа; 
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Точно так же можно изменять данные в файле. Например, если вам надо изме- 
‘нить 5-ю строку на "Прощай, станция Мир", то следует внести изменения, как по- 
казано в листинге 10.12. 


уах 
Е: Тута; //Переменная типа объект Т5Ег1109Т156. 
1: Тобедег; // Счетчик 

Беа1п 
Е:= Т5Ег1п911$6е.Сгеаее(); 


Е.ГоааЕгомЕ11е (‘с:\Е1]епаше.6хе’); // Загружаем текстовый файл 


1Е Е.Соцпе>=5 ЕЦбеп // Если в файле есть 5 строк, то изменить 


Е.56Ег1па$[5] = ‘Прощай, станция Мир’; 
Е.АЯА (‘Прощай’); // Добавляем новую строку 


Ё.бауеТоЕ11е (‘с:\Ё11епаме.Ехе'); // Сохраняю результат 
Е.Рхее; 


еп; 


В приведенном в листинге коде, прежде чем изменить 5-ю строку, происходит 
проверка, есть ли в файле эти пять строк. Если окажется меньше пяти, то при по- 
пытке изменения данных произойдет ошибка, ведь у объекта просто не выделено 
достаточно памяти. 

В этом же примере в конец файла добавляется новая строка с помощью ‘вызова 
метода даа. После этого результат сохраняется в том же файле с помощью метода 
ЗауеТоЕ11е. Если не вызывать метод сохранения, то все изменения пропадут, по- 
тому что данные изменяются в объекте, а не в файле. Именно поэтому объект надо 
сохранять обратно в файл. 

На этом можно закончить рассмотрение. Помните, все, что мы говорили про 
ТбЕх1паз ранее, в равной степени относится и к Т$Ех1пат,156. 


10.5. Приведение типов 


В этом разделе мы как можно более подробно остановимся на теме приведения 
типов. В любой программе может понадобиться преобразование данных из одного 
типа в другой. Преобразование типов делится на два вида: 

О преобразование несовместимых типов; 
О преобразование совместимых типов. 

В качестве несовместимых типов можно привести пример превращения строки 
в число. Допустим, что у вас есть строка "12345". Это строка, которая может пред- 
ставлять число. Но вы не можете производить с такой строкой математических 
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- действий, потому что это все же строка, хотя и содержащая число. Для начала 
нужно преобразовать эту строку в численное значение. 

Совместимые типы похожи друг на друга. Например, число 1пеедех и {пеб4. Оба эти 
типа схожи, разница лишь в том, что они занимают в памяти разное количество байт. 

Для преобразования несовместимых типов будут использоваться специализиро- 
ванные функции, а для преобразования совместимых типов, достаточно только 
указать тип, к которому нужно привести данные. | 


10.5.1. Преобразование целых чисел 
в строку и обратно 


Начнем с рассмотрения специальных функций для преобразования `несовмести- 
мых типов. Самое частое, что может понадобиться при программировании, — пре- 
образование строк в число и обратно. Допустим, нужно написать программу, в ко- 
торой пользователь будет вводить число в компонент тека:е. Чтобы получить 
доступ к содержимому Еа1е1, надо написать Еа1Е1.Техе. Так мы получим тексто- 
вое представление числа. Чтобы его преобразовать, необходимо воспользоваться 
специальной функцией. 

Для преобразования строки в число используется функция ‘5ЕхТотпе. У нее 
только один параметр — строка, а на выходе она возвращает число. 

уаг 

сп: Тп6едег; 

Беа1п 
СВ: =б6гТотТпе (ЕЯ1{1.Техе); // Преобразовываю ЕЯ1{1.ТехЕ в число 
епа; у 


В этом примере мы присвоили переменной св значение, содержащееся в ЕЯ 1 .Техк, 
которое было преобразовано в число. Теперь можно производить математические 
действия с введенным числом. 

Обратное преобразование (превращение числа в строку) можно произвести 
с помощью функции тпЕТобег. 


уах 
сп: Табедег; | 
Беа1п | ^ 
СБ: =56хТоТпе (ЕЧ11.Техе); // Преобразовываю ЕЯ1*1.Техе в число 
св:=ср+1; . 
ЕЗ1Е1.Техёе:=ТоЕТобеЕг (св); // Преобразовываю св в строку 
епа; | 


Когда вы преобразовываете строку в число, то должны быть уверенным в том, 
что строка содержит число. Если в строке будет хоть один символ, не относящийся 
к цифре, то во время преобразования произойдет ошибка. Чтобы избавиться от 
ошибок, можно использовать исключительные ситуации, заключая преобразование 
между сгу И ехсер+. Есть еще один способ — использовать функцию зЕхТотпеЕреЕ, 
у которой уже два параметра: 

С строка, которую надо преобразовать; 


О значение по умолчанию, которое будет возвращено, если произошла ошибка. 
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Итак, наш пример можно подкорректировать следующим образом: 
уах , | 
св: Тпбедег; 
Ъеа1п 
СВ:=5егТотпереЕ (ЕЯ 1{1.ТехЕ, 0}; // Преобразовываю ЕЯ1{1.ТехЕ в число 
еп; | 


В этом примере, если произойдет ошибка во время преобразования, то функция 


не будет выдавать ошибок, а вернет значение 0. 


ооо 


О 


СОВЕТ. Когда необходимо перевести в число строку, которая получается в результа- 
те ввода пользователем данных, то обязательно учитывайте вероятность ошибки. 
Дело в том, что пользователи могут случайно нажать до или после ввода числа про- 
бел и не увидеть этого, а ваша программа в результате выполнит недопустимую опе- 
рацию, и если вы не отрабатываете корректно возникающие исключительные ситуа- 
ции, то выполнение программы может завершиться аварийно, что очень плохо. Да, 
ошибка возникла из-за неверного ввода пользователем, но виноватым будете вы. 


10.5.2. Преобразование даты в строку и обратно 


Теперь познакомимся с преобразованием даты. Для этого есть несколько функций. 


РасеТо5Ех — преобразовывает дату в строку. Единственный параметр, который 
надо указать, — переменная типа ТаахеТ1не, и на выходе получим строку. Пе- 
ревод происходит в соответствии с региональными настройками в компьютере; 


сЕгТораке — преобразование строки в дату. Указываете строку (например, 
"11/05/2001" и получаете дату. Строка должна быть в виде даты в формате, со- 
ответствующем настройкам в \!т4о\з. Настройки можно увидеть в окне 
Панель управления | Язык и региональные стандарты; 


тулетобЕх — функция преобразовывает время из формата трасет\пе в строку; 
ЗЕЕТОоТ1ие — функция переводит строку в формат трасет1е; 


РохтаЕракетане — форматирование даты и времени. Это очень интересная 
функция, поэтому на ней мы остановимся подробнее. 


У функции гохмаерасет1е два параметра: 

формат строки, в которую надо преобразовать дату; 
переменная типа тракет1ме, которую надо преобразовать. 
Самое интересное здесь — это формат строки. Он может содержать следующие _ 


символы. 


м. 
0 


оооо 


а — показать дату, не подставляя нули в начале (1, 2, 3, ..., 30, 31); 


аа — показать дату, подставляя, если нужно, в начале ноль. В этом случае, если 
дата меньше 10, то она будет отражаться как 01, 02, ..., 09; 


ааа — показать день недели, используя короткий формат (Пн, Вт, Ср...); 
аааа — показать день недели с полным названием (Понедельник, Вторник ...); 
ааача — показать дату, используя короткий формат; 


аааааа — показать дату; используя полный формат (Например, дата 10/02/2002 
будет переведена в "10 февраля 2002"); 
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п — показать месяц без добавления нулей (1, 2, ..., 11, 12); , 

пи — показать месяц с добавлением нулей (01, 02, ...11, 12); 

гии — показать короткое название месяца; 

Мииии — показать полное название месяца (Январь, Февраль...); 

уу — показать год двумя цифрами (98, 99, 00, 01); 

уууу — показать год полностью; 

\ — показать часы, не добавляя в начале нулей; 

нь — показать часы с добавлением в начале нулей; | 

п — показать минуты, не добавляя в начале нулей; 
пп — показать минуты с добавлением в начале нулей; | 

з — показать секунды, не добавляя в начале нулей; 

зз — показать секунды с добавлением в начале нулей; 

2 — показать миллисекунды, не добавляя в начале нулей; 

22 — показать миллисекунды с добавлением в начале нулей; 

ат/ри — использовать 12-часовое представление (до полудня/после полудня). 
Это практически полный обзор возможностей, а теперь посмотрим пару примеров: 


ооо, ,‚о ‚68, ,о,‚оооо,оооо 


ЕогпаеРасеТл1ме ('Яа/пт/ууу', ПРаке()); // Дата будет в виде "24/02/2002" 
ЕКогпа(ПБаееТ1те ('аааааа', Рабе()); // Дата будет в виде "24 февраля 2002" 
Еогпасраеет1не ('НВ:пп', Тзие()); // Время будет в виде "10:48" 
Рогпаераеет ие ('ВВ:пп — $5", Тиме()); // Время будет в виде "10:48 — 24" 


10.5.3. Преобразование вещественных чисел 


Сейчас перейдем к рассмотрению чисел с плавающей точкой. Когда вы строите 
математику в своей программе, то можете столкнуться с вещественными числами. 
Например, если у вас есть какая-то формула, в которой используется деление, то 
результат ее выполнения будет почти всегда дробным, даже если вы уверены в це- 
лостности ответа. Например, вы делите 10 на 2, и должны получить результат 5. 
Хотя результат — целое число, компилятор будет представлять его как дробное. 

хат | 

1:Тибсевсег; 
Беа1п 
1:=10/2; 
епа; 
Если вы попытаетесь откомпилировать такой код, то увидите следующую за- 


пись об ошибке: ''шсотраНЫе {урез: 'Пиегег'апа ‘Ежепдеа?" (Несовместимые 
типы: целое число и дробное). Тут появляется несколько вариантов выхода: 


С) записывать результат в переменную вещественного типа, но он подходит не все- 
‘гда, поэтому лучше перейти сразу ко второму методу; 

С округлять результат; 

С использовать для деления а1х, который получает только целое число. 
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Для начала взглянем на последний вариант: 
уаг 


1:Тиседег; 
Беа1лп 
1:=10 а1у 2; 
епа; й 
Теперь посмотрим округление. Для него существует очень удобная функция 
‚ гоипа, которой передается в качестве параметра вещественное число, а на выходе 
получаем целое, например: | 
уаг 
1:Тобедег; 
Беа1п 
1:=кочпа (10/2); 
епа; 
Если вы решили хранить результат в переменной вещественного типа, то могут 
_ возникнуть проблемы с выводом результата. Для этого может понадобиться преоб- 
разование вещественного числа в строку. Для этого есть функция Е1оаеТобек, ко- 
торой надо передать дробное. число и получить строку. Точно так же есть и обрат- 
ное преобразование З+ЕхТоЕ1оае, где вы передаете строку, а получаете 
вещественное число. | | 
Отдельного разговора требует функция гохтаЕЕ1оа*, которая форматирует ве- 
щественное число по вашим нуждам. Тут есть два параметра: строка формата и са- 
мо число. В табл. 10.1 показаны разные варианты преобразований. В первой колон- 
ке представлены возможные форматы, указываемые в первом параметре функции 
РогпаеЕ1оак. В остальных колонках показано, что произойдет © разными числами 
при данном формате. | о 


Таблица 10.1. Строки форматирования вещественных чисел 


| м [0 
ОИ ПО ПО ОСИ 
о | тю | ых | 09 — 
оо | чем | да | 08 
Гемороно, | зам | бзмю | 05 
Гееобоью — |[ мю | лам | 0 | 0 
енко [заме [ мзые [ 1 | 0 — 


Вот пока что и все, что требовалось знать о преобразовании несовместимых 
типов. 


Строка, указываемая 
в формате 
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10.6. Преобразование совместимых типов. 
(преобразование строк) 


Теперь можно познакомиться и с совместимыми типами. Под совместимыми 
типами понимаются такие типы данных, которые схожи по своим признакам, но 
хранят данные |: разном виде. Например, есть несколько видов строк: строка, окан- 
чивающаяся нулем, и строка, первый байт которой указывает на ее длину. Вроде 
И то и другое — строки, но если где-то нужен определенный тип строки, то придет- 
ся преобразовывать свою строку именно в тот формат, который нужен функции 
или процедуре, иначе произойдут конфликты. 

Допустим, что у вас есть строка типа бЕг1п9 и вы хотите. ее > преобразовать 
В РСВаг. Для такого преобразования нужно написать требуемый вам тип и в скобках 
указать свою строковую переменную: 

Мемсех : =РСВаг (МубЕг) 


В этом примере переменная музег имеет тип зег1па, а мы приводим ее к виду 
РСВах. Такое преобразование строк мы будем делать очень часто при вызове 
УИтАР]-функций, потому что там большинство строк имеет именно рсвах тип. = 

Точно таким же образом преобразуются не только строки, но и объекты, и чи- 
словые переменные одинакового типа, но разные по размеру. Например, у вас есть 
два числа 1пкедег и Ъуее. Оба они отображают целые числа, но ъуке меньше и при 
прямом присваивании вы получите предупреждение о том, что данные будут поте- 
ряны. Вы можете явно указать компилятору, что вы преобразовываете правильно. 
Вот приблизительный пример такого присваивания: 

уах 

1:Типбседег; 

7: Буве; 
ред1п 

1:=10; 

):=Бубе (1); 
епа; 


Когда вы попытаетесь без преобразования присвоить переменной 3 значение 1, 
то компилятор выдаст предупреждение, потому что 1: может хранить большие 
числа, которые просто не поместятся в переменную 3. Но если явно указать, что 
необходимо приведение типов, то это скажет компилятору, что мы контролируем 
ситуацию, и нечего надоедать нам своими предупреждениями. 


10.6.1. Приведение классов 


Допустим, что у вас есть два класса — родитель и наследник. Родитель не мо- 
жет знать о существовании методов и свойств, которые были реализованы в. на- 
следнике. Но они же есть там. 

Классический пример — использование обработчиков событий. Все они пере- 
дают нам в качестве первого параметра переменную, которая имеет тип тоъ3есе 
и чаще всего имеет имя 5епаег. Через эту переменную нам передают указатель на 
компонент, который сгенерировал событие. Так как в библиотеке УСТ, полно ком- 
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понентов и они все происходят от разных классов, то нам передается самый базо- 
ВЫЙ -— ТОБЗесе. 

Класс тоъ3есе является базовым для всех, но через него мы можем получить 
доступ к методам класса более высокого уровня. Давайте посмотрим, как можно 
приводить классы от одного типа к другому. Создайте новое приложение и помес- 
тите на форму одну только кнопку. Теперь создайте для нее обработчик события 
0пс11ск. Созданная процедура обработки события выглядит следующим образом: 

ргосебаге ТЕог1 .ВиеЕоп1С11ск (бепаег: ТОБ)есе); | 

Бед1п 

епа; | 

Как мы уже разобрались, в качестве параметра процедура получает указатель на 
компонент, который сгенерировал событие. Давайте используем этот указатель для 
того, чтобы изменить свойства класса кнопки. Если вы попробуете написать сле- 
дующий код: 

бепаег.Тор:=100; 

произойдет ошибка. Это вы точно знаете, что данный обработчик события сра- 
батывает на кнопку, потому что вы создали его именно для кнопки. А вот компиля- 
тор даже не пытается это узнать. Он видит, что переменная зепаег имеет тип 
_ ТОБдесь, ау этого класса нет свойства Тор, поэтому произойдет ошибка. 

Как поступить в этом случае? У вас есть множество вариантов, и сейчас мы рас- 
смотрим некоторые из них, а вам остается только выбрать тот, который лучше под- 
ходит для данной ситуации, или если подходит любой, то выбирайте тот, что 
больше нравится. 

Начнем с варианта, который можно встретить в большинстве книг: 

1Е бепаег 1$ ТВаЕбой (реп 

(Зепаег аз ТВаЕббоп).Тор;=100; 


В первой строке проверяем, является ли переменная 5епдехг классом твиесоп. 
Для этого используется оператор 13. Слева от оператора пишется переменная, ко- 
‚торую нужно проверить, а справа класс. Если переменная является экземпляром 
указанного класса, то результатом 15 будет истина, а значит, выполнится вторая 
строка кода. 

Во второй строке кода самое интересное находится в скобках, где мы говорим, 
что переменная бепаег должна восприниматься как класс тваЕЕоп. Для этого ис- 
пользуем оператор аз. Теперь, когда мы явно указали, что перед нами объект кноп- 
ка, мы можем использовать [5:16] " (49:0) Тор. | 

На самом деле, если посмотреть на иерархию компонента кнопки, то вы увиди- 
те, что [6:16] 7 (64 №: 0) Тор наследуется от класса тСопегол1. Это значит, что мы можем 
безболезненно обратиться к свойству, указывая тсопеЕко1: 

1ЁЕ бепаег 1$ ТСопего1 ЕПеп 

(Зепаег аз ТСопЕго1) .Тор:=100; 


Это уже лучше. Теперь, если на форму поместить еще один компонент, и в об- 
работчик события опс11ск установить этот же обработчик события, то все будет 
работать без проблем. Убедимся? Давайте. Поместим на форму еще одну кнопку 
ТВ1ЕВсп СО вкладки АД@опа[ (Дополнительно). Теперь на вкладке Еует6 (Собы- 
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тия) установим в качестве обработчика опс11ск уже созданную ранее процедуру 
Виббоп1С11скК. Для этого выберите ее имя из ниспадающего списка. 

Несмотря на то, что это совершенно другая кнопка (другой класс), все будет ра- 
ботать без проблем. По какой бы кнопке вы не кликнули, Та и опустится на рас- 
стояние 100 пикселов. 

А теперь еще один интересный трюк. А что если обратиться к овойству 
СарЕ1оп? Но при этом привести класс не к кнопке, а к ТГаъе1: 

(бепаег аз ТГаре1).СарЕ1оп:='0ОК'; 


Такой трюк завершится ошибкой. Дело в том, что оператор аз приводит класс, 
и если классы абсолютно разные, то приведение станет невозможным и произойдет 
ошибка. Что значит разные классы? Если попытаться привести тв1ЕВЕп К ТВиекоп, 
то не возникнет проблем, потому что ТВ1ЕВЕп как раз и происходит от ТВиаЕесоп. 
Если привести тв1ЕВЕП К ТСопего1, ТО тоже. не возникнет проблем, потому что 
ТСопЕго1 является одним из предков. Но кнопка не имеет среди своих предков 
класс тгаЪе1, а значит, нельзя эти два класса привести друг другу. 

Но все же есть один фокус: 

ТЬаре1 (5еп@ег) .СарЕ1оп:='0К'; 


Здесь мы приводим кнопку, которая будет указана в переменной зепаех, к клас- 
Су ТЬаье1 с помощью неявного приведения, которое мы уже рассматривали выше 
в этой главе. Вот такой трюк пройдет, несмотря на то, что классы совершенно раз- 
ные. Дело в том, что при таком приведении ‘компилятор всего лишь проверяет, есть 
ЛИ СВОЙСТВО СарЕ1оп У класса, к которому мы приводим. Если да, то компиляция 
пройдет удачно. Во время выполнения приведения типов не будет. Программа 
только будет искать нужное свойство и, если найдет, будет его использовать, по- 
этому данный код будет корректным. 


10.7. Указатели 


Пора познакомиться с указателями. Это очень удобный элемент языка, который 
мы будем часто использовать. В этой главе будут рассматриваться указатели на 
структуры, которые располагаются в динамической памяти. 

Но прежде чем что-то объяснять, рассмотрим, зачем нужны указатели. Давайте 
вспомним про процедуры, а именно, как происходит их вызов. Допустим, у вас есть 
процедура с именем мургос, у которой есть два параметра: число и строка. Как 
происходит вызов такой процедуры и как ей передаются эти параметры? Очень 
просто. Сначала параметры принимаются в стек (напомню, что стек — это область 
памяти для хранения временных или локальных переменных). Первым заносится 
первый параметр, затем второй и после этого вызывается процедура. Прежде чем 
процедура начнет свое выполнение, она извлекает эти параметры из стека в обрат- 
ном порядке. 

Теперь вспомним о наших параметрах. Первый — это число, которое будет за- 
нимать 2 байта. Когда происходит его запись в стек, оно займет там свои положен- 
ные 2 байта. Второй параметр — строка. Каждый символ строки — это отдельный 
байт. Допустим, что строка состоит из 10 символов. Это значит, что для передачи 
такой строки в процедуру в стеке понадобится 10 байт плюс | байт для указания 
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конца строки или ее размера (это зависит от типа строки). Всего для передачи 
в процедуру понадобится в стеке как минимум 12 байт. Это не так уж и много, по- 
этому такое можно себе позволить. | 

А теперь представьте, что строка, которую надо передать в процедуру, состоит 
из 1000 символов. Вот тут нам понадобится в стеке уже около килобайта. При ны- 
нешних размерах памяти на это никто не обращает внимания, но программисты 
забывают про то, что такая строка сначала копируется в память стека, а потом из- 
влекается из него. Такое копирование большого размера памяти отнимает доста- 
точно много времени, и ваша программа тратит лишнее время на бессмысленное 
клонирование в памяти большой строки. 

А если нам нужно передать в процедуру фотографию размером в 3 мегабайта? Что ее 
тоже копировать в стек? Несколько фотографий высокого качества — и стек закончится. 

Выход из сложившейся ситуации достаточно прост. Можно не передавать стро- 
ку, а только передать указатель на область памяти, где находится эта строка. Лю- 
бой указатель занимает всего 4 байта, а это уже существенная экономия. Мы про- 
сто даем нашей процедуре понять, где найти строку. 

Указатель в РерЫ! объявляется как Ро1пеег. Например, давайте объявим пере- 
менную р типа указатель: 

уаг 

р:Ро1пеег 


Для того чтобы получить адрес переменной или объекта, необходимо перед его 
именем поставить знак @. Например, у вас есть строка Ех, и чтобы присвоить ее 
адрес в указатель р, надо выполнить следующее: р: =@5ех‹. Теперь в указателе нахо- 
дится адрес строки. Если вы будете напрямую читать указатель, то увидите адрес, 
а для того чтобы увидеть содержащиеся по этому адресу данные, надо разымено- 
вывать указатель. Для этого надо написать р^. Итак, мы пришли к следующему: 

О р: =@5ег — получить адрес строки; 
С] р — указатель на строку; 
О р^ — данные, содержащиеся по адресу, указанному вр. 

Давайте создадим маленькое приложение, которое будет работать с указателя- 
ми. Для этого на форму надо поместить кнопку с заголовком "Работа со ссылками" 
и строку ввода. ` | 

Для события — нажатие кнопки Работа со ссылками — напишем код, пред- 
ставленный в листинге 10.13. 


уаг 


р:Ро1пбех 

‘бег: 5ег1па; 
Ъед1п | 

р:=@56хг; // Присваиваю указателю ссылку на строку 
5Ех:='Привет мой друг'; // Изменяю значение строки 
Еа1е1.Техе:=5Ег1па(р^); // Вывожу текст 

епа; 


Основные приемы программирования 203 


В этом примере в первой строке мы присваиваем указателю р ссылку на стро- 
ку зег. После этого меняем содержимое строки. В последней строке выводится 
содержащийся по адресу р текст. Для этого приходится явно указывать, что по 
адресу р находится именно строка 5Ек1па (р^). Вспомните приведение схожих 
типов. Таким же образом можно приводить строку 5Ех1п9 К РСВаг. Здесь указы- 
вается, что по адресу переменной р находится строка, а не какой-нибудь другой 
тип данных. Это необходимо, потому что данные, расположенные по определен- 
ному адресу, могут иметь совершенно любой тип. Как видите, "жесткое" указа- 
ние типа похоже на преобразование типов, поэтому никаких проблем с этим не 
должно возникнуть. 

Здесь надо отметить, что мы изменяем строку после присваивания адреса строки 
в переменную-указатель, и измененные данные все равно будут отражены в указа- 
теле. Это потому, что указатель всегда показывает на начало строки. Если мы ее 
изменим, указателю будет все равно, потому что новые данные будут расположены 
по тому же адресу, и р будет указывать на измененную строку. 


ПРИМЕЧАНИЕ. На компакт-диске, прилагаемом к книге, в папке \Примеры\Глава 10\Ройтеге 
вы можете увидеть пример этой программы. 


_ Мы уже не раз использовали указатели, но не углублялись в их изучение. Каж- 
дая переменная типа объект — ‘это тоже указатель на объект. Просто его использо- 
вание стандартизовано, чтобы не смущать пользователей лишним типом адресации 
и разыменовыванием. — 

Любой переменной-указателю можно присвоить нулевое значение, только это не 
число 0, а п11 — нулевой указатель, например, р:=п11 (в принципе, п11 это тот же 0, 
просто используется для обнуления указателей). Когда вы присваиваете нулевое зна- 
чение, то как бы уничтожаете ссылку. Точно так же, если переменной-объекту при- 
своить нулевое значение, вы его уничтожите. Никогда не обнуляйте переменные ука- 
затели, которые указывают на существующие объекты. Сначала уничтожьте объекты . 
(освободите память), а потом можно указателю присвоить п11. 

А зачем указателям присваивать нулевое значение? В принципе, на память это 
не влияет, но поможет с точки зрения безопасности. Дело в том, что после освобо- 
ждения памяти, указатель содержит какое-то число (какой-то адрес), но данные по 
этому адресу уже не действительны. Если обратиться по ним, то может произойти 
ошибка. Чтобы было видно, что указатель недействительный, после освобождения 
обнуляйте указатель. 

До \Мтао\$ 2000 в программах У/т4о\$ можно было использовать один инте- 
ресный трюк — после освобождения памяти, ее еще можно было использовать 
в течение короткого промежутка времени (пока другая программа не выделит себе 
этот же участок). Но потом разработчики посчитали, что это небезопасно, и запре- 
тили использование памяти после ее освобождения. 


СОВЕТ. В МЛптао\м$ нет сборщиков мусора, которые существуют в уауа, и если объект 

не освободит память, то будет происходить ее потеря. Бывают случаи, когда обнуле- 

ние указателя реально освобождает память, но это происходит далеко не всегда. 

Именно поэтому обнулять можно только объекты СОМ (о них мы поговорим отдель- 
но). Их обнуление ведет к освобождению памяти. 


и 
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10.8. Структуры, записи 


Сейчас мы познакомимся поближе со структурами и записями. Точнее сказать, 
оба понятия означают одно и то же. Просто в С++ принято говорить "структура", 
ав Реры говорят "запись". Вам нужно только привыкнуть к тому, что структу- 
ра — это та же запись. Структуры похожи на объекты, не имеют методов и собы- 
тий, а только свойства. 


Для объявления структуры используется. следующая запись: 
Имя структуры = гесога 

Свойство1: Тип свойства1; 

Свойство2: Тип свойства2; 


еп; 


Давайте опишем структуру, в которой будут храниться параметры окна. Она бу- 
дет иметь примерно следующий вид: 
\1п90м$512е = гесога 
ГеЕе: Тпсесег; 
Тор: Тпеедег; 
из АСТ : Тпбедег; 
Не1оте: Тпеедегт; 
епа; 


Структура имеет имя и1паомб1 те, и у нее есть четыре свойства: тег, Тор, ИЗаеН, 
не1ане. Свойства объявлены каждое в отдельности, хотя в данном случае все они 
имеют один тип и их можно просто перечислить через запятую и указать, что все 
они имеют целый тип, как это сделано в следующем примере: 

\М1п90\м$512е = хесога 

ТеЕЕ, Тор, М1ЧЕР, Неларе: Тпседег; | 
епа; ^ | 


Точно также можно объявлять и переменные в разделе уаг, когда несколько пе- 
ременных имеют один и тот же тип. 

Теперь давайте разберемся, как можно использовать структуру. Для этого надо 
определить переменную типа "структура": 

хат 

№5: М1п90м512е; | 

Структуры — это простые сгруппированные наборы свойств, которые по умол- 
чанию не требуют выделения памяти. Это не указатели, а простые типы данных, 
размер которых система может посчитать. 

Локальные переменные объявляются и создаются при входе в процедуру и унич- 
тожаются при выходе. Глобальные переменные создаются при запуске программы 
и уничтожаются при выходе из нее. Это значит, что глобальные переменные суще- 
ствуют на протяжении: всего времени выполнения программы. Локальные пере- 
менные существуют, только когда выполняется код процедуры. После первого вы- 
полнения процедуры локальные переменные уничтожаются и при следующем 
вызове создаются снова с нулевым значением. Поэтому, если надо сохранить зна- 
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чение переменной после выхода из процедуры, ее следует объявить как глобаль- 
ную, а лучше в качестве свойства класса. 

Итак, переменная объявлена. Инициализация и уничтожение не требуются, по- 
этому можно сразу же ее использовать. Для доступа к переменным структуры нуж- 
но написать имя структуры и через точку указать тот параметр, который вас инте- 
ресует. Например, для доступа к параметру теЕ+ необходимо написать — мз .ГеЕЕ. 

Давайте напишем пример, который будет после закрытия программы сохранять 
текущие значения позиции окна в структуре, а потом эту структуру будем записы- 
вать в файл. Для записи будет использоваться простой бинарный (двоичный) файл. 
В связи с этим воспользуемся объектом тЕ11езегеам. 

Итак, создайте новое приложение. В разделе Туре опишите нашу структуру так, 
как это показано в листинге 10.14. 


2 ь 

® р я ‚1 м м . —. „ и 
« т ме иг 9.1. 
=: о и К и: и ро ЗМ Е: 
Я те И Же: 


буре 
И1паом$512е = гесога 
ТГеЁЕе, Тор, Млаев, НелайЕ : Тобечег; 


епа;. 


ТЕоги1 = с1азз (ТЕотта) 
// здесь идет описание класса вашей формы 


епа; . 


Теперь создайте обработчик события опС1озе для формы. Здесь мы заполним 
структуру значениями позиции окна и сохраним эти данные в бинарном файле. Код 
этого обработчика события можно увидеть в листинге 10.15. 


ей АЯ 


В 
Й 


ргоседике о вокистовецволасх ТОБ]есЕ; уах АсЕ1оп: ТС1озеАсЕ1оп); 
уах 

м3 :/1090м$512е; 

Е:ТР11е5егеам; 
_ Бег: 5еЕ1аа; 

Бед1п 
мз.ЬеЕЕ:=ГеЁе; // Заполняем левую позицию 
\$.Тор:=Тор; // Заполняем правую позицию 
из. итаев:=иНаеь; // Заполняем ширину окна 
уз .Незаве:=Незаре; // Заполняем высоту окна 


Ё:=ТР11ебегеам.Сгеаее ('$12е.Чае', Етстеасе) ; // Создаю файл $17е.аае 
Е.Мутсе (мз, з12еоЕ (м5)); // Записываю структуру 

Е.Ргее; // Закрываю файл: 
епа; 
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Обратите внимание, что при записи в файл надо указывать в качестве параметра 
буфер памяти для записи. Мы указываем структуру. В качестве второго параметра 
нужно указывать размер записываемых данных. Для определения размера структу- 
ры мы используем функцию $1=2еоЕ, которая вернет нам необходимый размер. 

Теперь разберемся с чтением из файла. ‘Восстанавливать размеры окна будем по 
событию оп5Ъом для главной формы. В этом обработчике нужно написать содер- 
жимое листинга 10.16. 


ргосеаиге ТЕогт1 .Еохтабром (бепаег: ТОБзес®); 
уах | 

мз :И1паом$51:е; 

Е :ТЕ11ебегеам; 
Беа1п | 

1Е Е11еЕх1 55 ('517е.Чабс') ЕРеп // Если файл $12е.ЯаЕ существует, то 
ред1п 
Е$ : =ТЕ11ебегеам.Скеа(е ('512е.Яас', ЕпОрепКеаа); // Открываю файл 


Ез.ВеаЧ(мз; з12еоЁ(мз)); // Читаю содержимое структуры 
Ез.Егее; // Закрываю файл 


// Дальше я устанавливаю сохраненные размеры и позицию окна на родину 
ГеЁе:=мз .БеЁс; 
`°Тор:=\$ .Тор; 
УТавъ : =мз .М1аер; 
Не1ап®:=мз .Незайе; 
епа; 


’епа; 


Первым делом здесь вызывается функция Ег11еЕх1зез, которой указали имя ин- 
тересующего нас’ файла. Эта функция проверила на существование файл. Если он 
существует, то мы можем попытаться прочитать его. Иначе это делать бесполезно. 
-При чтении мы также читаем сразу всю структуру. 

Как видите, структуры очень удобны для хранения каких-либо структурирован- 
ных данных. Конечно же, данный пример не очень удачный, потому что такие па- 
раметры лучше сохранять в реестре, а не в файле, но главное — это сам процесс: 
Мы будем часто использовать структуры там, где это необходимо, потому что они 
действительно упрощают процесс программирования. В данном случае мы записа- 
ли все значения главного окна программы в файл одной функцией. 


ПРИМЕЧАНИЕ. На компакт-диске, прилагаемом к книге, в папке \Примеры\Глава 10\ 
Весога$ вы можете увидеть пример этой программы. 


Структуры могут быть с "изменяемым" количеством полей. Почему я тут указал. 
слово в кавычках? Дело в том, что изменений реально не будет. Но об этом чуть 
позже. 
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Допустим, что вы хотите создать структуру, которая будет описывать дачу 
и квартиру. Дача — это частный дом, который обладает такими свойствами, как 
участок перед домом и количество этажей. Квартиры личным участком не облада- 
ют. Все, что есть во дворе, — собственность всех жильцов дома, а не квартиры. Да, 
квартиры могут состоять из нескольких уровней, но на это закроем глаза. С другой 
стороны, квартиры в доме обладают этажом, где они находятся, а у дома этого не 
может быть. | | | | 

И все же квартиры и дома обладают достаточно большим количеством общих 
черт, чтобы создавать две структуры, поэтому логично будет использовать одну 
структуру, которая будет универсальна. И это вполне возможно. Можно завести 
отдельное поле, в зависимости от значения которого в структуре будут появляться 
определенные поля. Это можно сделать с помощью оператора сазе: 


Суре 
ТезЕКесога = гесога 
АЗагезз:5ег1па; // адрес 
ВоогМитрег : Тпбедег; // количество комнат 


сазе НомеТуре: ТпЕедег оЁ // тип дома 
0: // если ноль, то квартира 
( 
Е1ооу№иирег:Тпеедехг; // этаж 
); 
1:(// если единица, то это дом 
Е] оогСочпЕ : Тпведег; // количество этажей 
сСгочпабадаге: Тпбедег;// площадь участка за окном 
); 
епа; (о 
Внутри структуры стоит оператор сазе, который имеет следующий вид: 
сазе переменная : тип оЁ 


Здесь мы заводим имя поля и указываем его тип. После этого идет перечисление 
различных вариантов значений. Если этой переменной присвоить значение 0, то 
в структуре появятся поля, указанные после этого числа в круглых скобках: 

( | 
Е] оогМапфег : Тпбедег; 

); 

а если равно 1, то будут поля: 

( 

ЕТ оогСоцпе : Тпбедег; 
Сгоцпабацаге : Тпбедег; 

); | 

Удобно и прекрасно, но на самом деле в структуре будут все поля, вне зависи- 
мости от значения поля, указанного в сазе. Это значит, что следующее объявление 
будет идентично: 

ТезЕВесога = гесога 

Ааагез$ : бех1па; 
КоопшМиатюег : Табедег; 
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НомеТуре : Тпбедег; 

Е]оог№рег : Тпеедег; 

Е1оогСочп® : Табеаег; 

Сгоипабадаге : Тпседег; 
епЯ; | 


Здесь все эти же поля объявлены без каких-либо сазе. | 

В любом случае во время выполнения программы, вы должны программно про- 
верять, если нометуре равно 0, то это квартира, а значит, поля с площадью участка 
и количеством этажей недействительны. Ну а если НотеТуре равно 1, то это дом 
и нужно забыть про этаж, ведь построить дом на этаже какого-то здания проблема- 
ТИЧНО. 


10.9. Храним структуры в динамической памяти 


Структуры могут быть не только локальными (храниться в стеке), но и динами- 
ческими (располагаться в динамической памяти). Почему память называется дина- 
мической? Да потому, что стек создается автоматически при запуске программы, 
а вот дополнительную память нужно выделять самому. Ее можно добавлять и уда- 
лять в процессе работы программы; наверно, поэтому ее называют динамической. | 

Когда. объявляется структура, можно указать ее как динамический тип. Для это- 
го нужно объявить еще одну переменную и присвоить ей — ^ИмяСтруктуры. Чаще 
всего в качестве нового имени используют то же самое имя, только в начале добав- 
ляют букву "Р" (это означает Ро1пЕехг или указатель). Кроме того, объявление это 
делают прямо перед объявлением структуры: | 

Суре 

РИ1п9ом$512е = ^ М1паом$51те; 
\1п90м$512е = гесога 

ГеЕе, Тор, Млабр, Не1оте: Тпбедег; 
епа; 


В этом примере Ри1паомз51=е — указатель на структуру и1пдомз51=е. Теперь, 
чтобы разместить нашу структуру не в стеке, а в динамической памяти, мы должны 
использовать именно Ри1паомз$12е: 

уах 

уз : РИ1пЧомз$12те; 

Бед1п 

м7$ : =Мем (РИ1пЯом$512е); // Выделяем память 
мз .ГеЁЕ:=10; // Изменяем одно свойство 
21зрозе (м5); // Уничтожаем память 

епа; 


В этом примере объявлена переменная мз типа РИ1паомз51=е. Это значит, что. 
из — это всего лишь указатель и в самом начале он нулевой. Теперь надо этому 
указателю выделить память размером в структуру ви1паомз51=е. Для этого ей надо 
присвоить результат работы функции мех. Эта функция выделяет динамическую 
память под указанный в качестве параметра объект и возвращает указатель на эту 
память. После этого в указателе мз находится выделенная память, подготовленная 
для использования в качестве структуры РИ1паомз512е. 
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Доступ к свойствам остается такой же, поэтому нет смысла задерживаться на 
этом. Но вот в глаза сразу же бросается вызов функции 01 зрозе. Так как мы выде- 
лили динамическую память, ее нужно освободить, и для этого служит именно эта 
функция. Просто передайте ей в качестве параметра указатель, и функция коррект- 
но обнулит его. 

Помните, что если вы объявили переменную типа "указатель" на структуру 
(в нашем примере это РИ1паомз51=е), то для такого указателя обязательно нужно 
‘сначала выделить память и потом освободить его. Если вы объявляете переменную 
типа “структура” (в нашем примере это и1помз512е), а не указатель, то такая 
структура автоматически расположится в стеке и ничего не надо выделять или ос- 
вобождать. 

В листинге 10.17 показан пример записи параметров окна в файл, который мы 
написали в предыдущей главе, но с использованием структуры, расположенной 
в динамической памяти. 


ргоседите ТРохт1 .ЕогтС1 ое (бепаег: ТОБ]есе; уахг Асе1оп: ТС1озеАсЕ1оп); 


уах 
уз : Р/1п9ом\$512е; 
Е: ТЕ11ебегеам; 
ЗЕ’: 5еу1па; 
Бед1п 


из : =М№ем (РМ1пЯ0\5$512е); // Выделяем память 


из .ЬеЕе:=ГеЁе; // Заполняем левую позицию 
из .Тор:=Тор; // Заполняем правую позицию 
мз . ИТАН: =И1А61; // Заполняем ширину окна 


из .Не1аре: =Незапе; // Заполняем высоту окна 


Е: =ТЕ11ебегеам.Сгеасе ('512е.Яас', ЕтСгеаке); // Создаю файл $512е.Яае 
Е. Мите (м5^, $з12ео0Е (м5^)); // Записываю структуру 


Е.Егее; // Закрываю файл 


21зрозе(мз); // Уничтожаем память 


ета; 


Обратите внимание, что при записи в файл структуры и определении ее размера 
мы разыменовываем указатель с помощью записи чз^. Иначе в файл будет записа- 
на не структура, а указатель, и при определении размера мы получим размер указа- 
теля, а не структуры. Это очень важно, потому что вы можете записать в файл 
недостаточный размер данных или вообще ошибочные данные. Сохранять указа- 
тель смысла нет, потому что после перезапуска программы этот указатель будет 
бессмысленным и будет указывать в никуда. 
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Для чтения можно использовать ту же процедуру, что и раньше, без использова- 
ния указателя. Это связано с тем, что хотя мы и записывали с помощью динамиче- 
ской структуры, структура данных одна и та же, и в файле будут те же данные, 
просто записаны они будут по-другому. На компакт-диске, прилагаемом к книге, 
вы найдете пример, в котором представлена процедура загрузки данных из файла 
для использования динамической структуры. | 

Если вы решите при загрузке использовать структуру’: в динамической памяти, 
то перед чтением не забудьте выделить память. 


ПРИМЕЧАНИЕ. На компакт-диске, прилагаемом к книге, в папке \Примеры\Глава 10\ 
ОупВесога$ вы можете увидеть пример этой программы. 


СОВЕТ. Если вы работаете с большими блоками данных, и структуры занимают много 
места в памяти, то вы должны использовать их динамические варианты, потому что 
стек не резиновый и ваша программа может рухнуть с ошибкой доступа к памяти или 
переполнением стека. Никогда не надейтесь на \/тдо\м/$ и на большой объем памяти 
компьютера, на котором будет работать ваша программа. Лучше лишний раз пере- 
страховаться, ведь использование динамических структур не намного сложнее. 


10.10. Поиск файлов 


В этой главе мы уже узнали о работе с файлами, что такое структуры и как. 
с ними работать. Сейчас разберемся, как можно организовать поиск файлов. В этом 
примере мы закрепим большинство навыков, описанных в этой главе, и напишем 
неплохой пример, который использует интересную логику. . 
‚ Для начала разберемся с алгоритмом поиска файлов, а потом подробно изучим 
каждую из необходимых функций. Рассмотрим следующий пример: 
//Запускаем поиск 
БЕ1паЕ11е := Е1паЯР1узе (Маска поиска, Аттрибуты , Информация); 
//Проверяем корректность найденного файла | 
1Е ВЕР1оаЕ1]е <> ТМУАГТО_НАМОГЕ_УАГОЕ ЕБеп 
//Если корректно, то запускается цикл гереак — ипЕ11. 
гереае | 
//Здесь вписаны операторы, которые нужно ВЫПОЛНЯТЬ; 
ипЕ11 `(Е1паМехе (Информация) <> 0); 
Е1паС1озе (Информация); 


Е1паР1гзе — открывает поиск. В качестве первого параметра выступает маска 
поиска. Если вы укажете конкретный файл, то система найдет именно его. Вы так- 
же можете искать и целые группы файлов. Например, можно запустить поиск ‘всех 
файлов в корневом каталоге диска С:. Для этого первый параметр должен быть оп- 
ределен как — 'с:\*. *' ‚ Для поиска только ЕХЕ- файлов, | в папке Ро] вы должны 
указать — 'С:\Ео19\*.ехе’. 

Второй параметр — атрибуты, используемые при поиске файлов. Чтобы искать 
любые файлы, нужно указать ЕаАпуЕ11е. Помимо этого, можно искать по следую- 
щим атрибутам: 

С ЕавеаЯ90п1у — искать файлы с атрибутом веааоп1у (только для чтения); 
О Еан1а9еп — искать скрытые файлы; 
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С ЕабузЕ11е — искать системные файлы; 
С ЕадесЬ1уе — искать архивные файлы; 
_О Еар1хесвоку — искать папки. 


Последний параметр — это структура, в которой нам вернется информация 
о поиске, а именно: имя найденного файла, размер, время создания ит. д.. 

После вызова этой процедуры, мы должны проверить на корректность найден- 
ный файл. Если результат равен тТМУАГТР_НАМОГЕ_МАГОЕ, ТО функция не нашла ни 
одного файла. Если все нормально и файл, удовлетворяющий критериям поиска, 
существует, то запускается цикл Вереа+...0пЕ11. 

Мы уже рассматривали циклы, но все же повторимся и вспомним их работу. 
Цикл выполняет операторы, расположенные между гереае И ипЕ11, пока условие, 
расположенное после слова ипЕ11, выполняется. Как только условие нарушается, 
цикл прерывается. _ 

Здесь надо заметить, что функция поиска возвращает через параметр информация 
имена файлов и может вернуть нам в качестве имени точку или две точки. Если вы 
посмотрите на папку, то таких файлов не будет. Откуда берутся эти имена? Имя 
файла в виде точки указывает на текущую папку, а имя файла из двух точек указы- 
вает на папку верхнего уровня. Если мы встречаем такие имена, то их нужно про- 
сто отбрасывать. | 

Параметр информация имеет тип структуры тзеагсьвес. Давайте рассмотрим ее 
подробнее. Объявление выглядит так: 

Суре | 

ТбеагсбКес = гесога 

Тиае: Тпбедехг; // Время создания найденного файла 
5$12е: Тобедег; // Размер найденного файла 
АБСЕг: Тпбедехг; // Атрибуты найденного файла 
Мате: ТЕ11еМаме; // Имя найденного файла 
Ехс]1ааеАЕеЕх: Тибедег; // Исключаемые атрибуты найденного файла 
Е1пАНапа1е: ТНапЯ1е; // Указатель, необходимый для поиска 
Е1паБафа: Т\М1п32Е1пЯБаеа; // Структура поиска`файла М1ппом$ 
епа; 


Функция Е1паМехе заставляет найти следующий файл, удовлетворяющий пара- 
метрам, указанным в функции Е1паЕ1хзе. Этой функции нужно передать структуру 
ЗеагсНБес, ПО которой будет определено, на каком месте сейчас остановлен поиск, 
и с этого момента он будет продолжен. Как только будет найден новый файл, 
функция вернет в структуре 5еагсъвес информацию о новом найденном файле. 

Функция Е1пас1озе закрывает поиск. В качестве единственного параметра нуж- 
но указать все ту же структуру Зеагсь Вес. 

Давайте напишем какой-нибудь реальный пример, который наглядно покажет 
работу с функциями поиска файлов. Посмотрите на структуру тзеагсЪБес. Как ви- 
дите, она умеет возвращать размер найденного файла. Вот и тема для примера — 
мы напишем код, который будет определять размер указанного файла. 

Создайте новый прдект и установите на форму два компонента тка:е и одну 
кнопку. Можете еще украсить все это текстом. У вас должно получиться нечто по- 
хожее на рис. 10.4. 
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По нажатии кнопки (событие 
0пСс11ск) напишите следующий код: 
| уах 
беагсрВес : ТбеагсВКес; 
Бед1п 
'// Ищем файл 


1Е Е1паЕ1т5% (Еа161.Техе, 
ЕаАпуЕ11е, беаисВКес) =0 Ереп 


// Забираем размер 


Еа1е2.Техе: =ТпеТобех (беагсПКес. . 
$17е)+ 'байт'; Рис. 10.4. Форма будущей программы 


//Закрываем поиск 
Е1паС1озе (беаусрВес); 
еп; | 


ПРИМЕЧАНИЕ. На компакт-диске, прилагаемом к книге, в папке \Примеры\Глава 10\ 
[паЕЙе вы можете увидеть пример этой программы. 


Усложним пример и попробуем написать программу, которая будет искать файл 
на диске, при этом сканировать и вложенные папки. Эту задачу очень удобно ре- 
шать через рекурсию. Когда мы рассматривали эту тему, то реализовали абсолютно 
бесполезный пример, который лучше решать через простой цикл. В данном случае 
вы увидите реальную мощь рекурсии, закрепите знание функций поиска и увидите 
неплохой алгоритм. | 

Итак, для примера нам понадобятся на форме два поля ввода с именами: 


С еаьоокгохг — в нем будут вводить имя файла, который нужно найти; 
С еагоокти — диск или путь к папке, где нужно искать, включая вложенные папки. 


Нам также понадобятся кнопка, по нажатии которой будет происходить скани- 
рование, и поле ввода Мето, куда будет выводиться результат, ведь файл с одним 
и тем же именем может быть в нескольких папках. 

По нажатии кнопки пишем следующий код: 

Мето1 .Г1рез.С1еах; = 

бсапРо1аехг (еЯГоокКТп .Техе); 


В первой строке очищаем поле мемо от предыдущих результатов. После этого 
запускается функция 5сапго19ехг, которой передаем путь, где искать файл. Код 
этой функции можно увидеть в листинге 10.18, а объявление ее должно быть в раз- 
деле ре1уасе вашей формы в следующем виде: 

ргосеаиге бсапРо1аех (Го1Чехг: 56Еу1поа); 


ргоседиге ТГоги1 .ЗбсапЕо14ет (Ро1аег: 5Ег1па); 
уах | 
5х: ТбеатсРВес; 


Р11еМаше : Зеу1па; 
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Беа1п 
1Е Р1таЕ1г$е (Ро1аег+'\*.*', ЕаАпуЕ11е, зу) = 0 степ 
реач1п 
гереаЕ 
ЗЕ (5х.Маше='.') ог (зг.Маме='..') ЕЪеп 
сопЕ1пце; 


Р1]1еМаше := $1азрбер(Ро1аех, 5зх.Мапе); 


// Это папка? 
1Е (зу.Абег апа Еа01хесвогу) = Еа01гесвогу ЕБеп 
Беа1п 

ЗсапЕо19ех (Е11еМаше);_ 

СопЕ4пие; 


ева; 


// Найден файл. 
1Е Апз1ОррегСазе (едЪоокЕох .ТехЕ) =Апз4ОррегСазе (зк.Маме) Епеп 
Мето1 .Г1пез .Ааа (Е11]еМапе); 

111 Е1паМехе (5х) <> 0; 

Е1паС1озе(5:); 

епа; | 


еп; 


В первой же строке запускаем поиск с помощью функции Е1паЕ1гзе. В качестве 
первого параметра передается папка плюс маска \“*.*'. Второй параметр равен. 
ЕаАпуЕ11е, чтобы функция искала для нас все файлы любого типа. Последний па- 
раметр — это структура т5еагсьвВес, через которую мы будем получать результат. 
Если файл найден, то проверяем, если имя равно точке или двум точкам, то про- 
должаем поиск дальше. 

После этого в переменную Е11емаше помещаем полный путь найденного файла. 
Для этого используем функцию $1азп5ер. Эта функция не существует в Оеры, мы 
должны сами ее написать: | 

| Еопсе1оп $51азНбер(РаеП, ЕМапше:‘5Еу1па): $зЕг1па; 
ред1п | 
1Е РаЕеН[ГепаеН (Ракр)] <> '\' «Реп. 
Вези16 := Раб + '\' + ЕМаше 
е1зе Кезо1еЕ := РаеП + ЕМапе; 
епа; 


Функция получает в качестве параметров путь и имя файла. Смысл заключается 
в том, что если путь не заканчивается слешем, то его нужно добавить. Именно это 
здесь и делается. | 
_ Вернемся к листингу 10.18. На следующей стадии идет проверка, что именно мы 
нашли — файл или папку. Если это папка, то нужно поискать файл внутри нее. Для 
этого мы вызываем 5сапго19ех, указывая вложенную папку. Но мы же уже нахо- 
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димся в этой функции, получается, что функция будет вызывать сама себя? Пра- 
вильно — это и есть рекурсия. Мы снова вызываем $сапЕго14ег с указанием вло- 
женной папки, и этот вызов будет продолжаться, пока все папки не будут проска- 
нированы. 

Если мы нашли не папку, то проверяем имя файла. Если оно совпадает с иско- 
мым, то выводим соответствующее сообщение в мемо компонент. Итак, поиск про- 
должается до тех пор, пока не переберем все файлы. 

Этот пример хорош, но не эффективен. Дело в том, что мы будем перебирать 
абсолютно все файлы в каждой папке, что не эффективно. Намного быстрее будет 
искать конкретный файл сразу. Для этого первую строку изменяем следующим 
образом: 

1Е Е1паЕ1т5С (51азрбер (РГо1аег, зх.Маме), ЁЕаАпуЕ11е, эх) = 0 степ 


Вот теперь в качестве первого параметра мы указываем не просто путь с маской, 
а конкретный файл, и результат будет положительным только в том случае, когда 
в искомой папке есть нужный файл. 

В качестве строки поиска можно указывать и маски, например, следующая 
строка ищет все ПМ-файлы в корне диска С: | 

1Е `Е1паЯР1у56 ('с:\*.1п1', ЕаАпуЕ1]е, зу) = 0 Етеп 


Но когда вы указываете конкретный файл, то функция не будет возвращать пап- 
ки. Как решить эту проблему? Попробуйте подумать сами. Есть достаточно эле- 
гантное решение. 


ПРИМЕЧАНИЕ. На компакт-диске, прилагаемом к книге, в папке _\Примеры\! лава 10\ 
-ипаЕйе2 вы можете увидеть пример этой программы. 


10.11. Работа с системным реестром 


В этом разделе говорится о том, как можно работать с системным реестром 
(рис. 10.5). Для этого можно использовать объект тведтп1Е11е.. 


СОВЕТ. Объект ТКечТп1Е11е достаточно прост и удобен. Для простого сохранения 
каких-то параметров программы этого объекта будет вполне достаточно. 


Для работы с объектом необходимо подключить в разделе азез модуль. 
Кед1зегу. В этом модуле находится описание объекта и реализация его методов. 
Если вы не подключите этот модуль, то РерЫ! не сможет откомпилировать проект. 

Давайте разберемся с объектом тведтп1Е11е и посмотрим, как он работает. До- 
пустим, что у нас есть переменная везтп1 ТИПа ТБед1п1Е11е. Чтобы ее инициализи- 
ровать, нужно присвоить переменной результат вызова метода схеаее объекта 
ТКеч1п1Е11е: | 

КедчТп1 : =ТВедТп1Р11е.Сгеасе ('боЕбмаге'); 

По умолчанию при инициализации вы получаете доступ к разделу реестра 
НКЕУ_СОВКЕМТ_ОЗЕК. Методу сгеахе нужно передать только один параметр — 
имя подраздела, который будет сразу открыт в разделе НКЕУ_СОВВЕМТ_ОЗЕК. 
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#: ‘Редактор реестра 
‚ Файл Правка Вид Избранное Справка _ 
= В} МОЙ компьютер ИИ. ее... 
+ о НКЕУ_С\А55ЕЗ_ВООТ а у опанию _ (значение не присвоено) 
=] НКЕУ _СУВВЕМТ _05ЕВ | 8% СитепЕ Розе Рго.. ОХННЕЕНЕ (4294967295) 
Ч: 4] АррЕчег$ : 0х00000004 (4) 
#0] 990 
_-] Сопвое 
$] СогигоГРапе! 
Гу Епмгоптег 
| ы = 1депбе5 


* = Ветсокедссе$$ 
НТ оезвюлиогтанол 

оное, 

ПН ТЕМ 

- С] УМСООЕ Ргодгат бгоир$ 
$] уаз Епмкогитепе 

Е: ] НКЕУ 1ОСАЕ_МАСНТЕ 

-.{”] НКЕУ _У5ЕВ$ 

+] НКЕУ_СУВВЕМТ_СОМЕ@ 


В В а нло мнны 


В а ЖЕСТ ЕСИ ИИА ООО 


Рис. 10.5. Просмотр реестра через программу ВедЕЗТе 


Итак, после выполнения этого кода мы получили доступ к разделу 
НКЕУ_СОВКЕМТ_ОЗЕВ\5ой\аге. А что если вы хотите открыть еще подраздел 
и получить доступ к НКЕУ_СОВКЕМТ_ОЗЕЖ\$оЙ\аге\М1сгозой? Для открытия 
подразделов у объекта твед1п1Е11е есть метод орепкеу. Вот так можно открыть 
подраздел Мисгозой: 

ВеаТп1 .ОрепкКеу ( 'М1свозоЕЕ" ‚ Ехгое); 

У метода орепкеу два параметра: 

О имя подраздела, который надо открыть; 
О надо ли создавать подраздел, если он не существует. 

Если в качестве второго параметра передать Еа1зе, и подраздел не будет суще- 
ствовать, то произойдет ошибка и ничего не откроется, т. е. вы останетесь на том 
же уровне реестра, где и были. Ну а если передать значение сгие и раздел не будет 
существовать, то функция автоматически создаст его. 

Теперь разберемся с чтением и записью. Для чтения есть несколько методов: 

С веаавоо1 — прочитать булево значение (егие ИЛИ #а1зе); 
| Веаатиеедехг — прочитать целое число; 
О веаа5Ех1па — прочитать строку. | 

Все они очень похожи и имеют одинаковое количество параметров. Единствен- 
ная разница — в типе третьего параметра. Давайте подробно рассмотрим 
Кеаа5Ех1па, а остальные будем использовать по аналогии с этим методом. 


8 Зак. 1273 
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У методов чтения три параметра: 


С имя подраздела, из которого мы хотим прочитать. Допустим, что мы открыли 
раздел М!сгозой и находимся сейчас в реестре по адресу НКЕУ_ 
СОВКЕМТ ОЕ \5ой\аге\Мкгозой. Если мы захотим прочитать строку из 
подраздела НКЕУ_СОВВЕМТ_ОЗЕЖ\$оЙ\аге\Мисгозо\Му5оЁй\аге, то в каче- 

стве первого параметра вы должны написать: мубоЕемаке; 


О имя параметра; 


О значение, которое будет использоваться по умолчанию, если такой параметр не суще- 
ствует. Для метода веад 5х 1па это должна быть строка или переменная типа "строка". 


ВНИМАНИЕ. Сразу необходимо предупредить, что даже если вы будете читать или 

‚записывать в реестр число с помощью методов Мг1еетпеедех или КеаЯТпеедек, 
объект ТВедТп1Е11е все равно будет сохранять и читать эти числа как строки. Только 
после чтения будет преобразование в число. твезТп1Е11е хранит все данные в рее- 
стре только как строки. Если вы хотите сохранять числа в реестре как обычные числа, 
то нужно воспользоваться объектом ТВед1зЕгу. Он является предком для 
ТКед1п1Е11е и обладает всеми рассматриваемыми здесь методами. 


Давайте взглянем на команду чтения в действии: 

ЗЕг:=КеачТп1.КеаЯа5Ехг1па ('МубоЕЕмахге', 'РабП', 'с:\'); 

В этом примере из подраздела музоЕемаге читается параметр раен. Если такой 
параметр не существует, то будет возвращено значение по умолчанию - с: \. Ре- 
_ зультат чтения записывается в переменную 5х. 

Точно так же происходит и запись, только в качестве третьего параметра надо 
указать не значение по умолчанию, а значение, которое надо записать. Для записи 
используются три метода: 


ОС ие:еевоо1 — записать булево значение (кгие ИЛИ а1зе); 
О ие:Еетоседехг — записать целое число; 
О ие1еебех1па — записать строку. 


Простейший пример записи выглядит так: 
Бед1Тп1.Мх1есебех1па ('МубоЕбмаге', 'РабП', ‘'с:\\Мпаом$'); 


В этом примере мы записываем в подраздел музоЕЕмаке параметр Раен. Значе- 
ние, которое будет записано, равно третьему параметру — с: \и1паомз. 


После всех операций с реестром его нужно закрыть с помощью метода Егее: 
Кедч1п1.Егее; 


Для примера напишем программу, которая будет сохранять свои параметры при 
выходе и восстанавливать позицию и размер на экране при запуске. 

Создайте простейшую форму с одной только кнопкой Закрыть. 

Теперь создайте обработчик события опзвом, в котором нужно восстанавливать 
параметры программы, которые были после последнего закрытия программы. Что- 
бы не перезагружать этот обработчик, давайте просто напишем вызов метода 
ГоааРгодРагам. Этого метода пока не существует, но мы его скоро напишем. 

ргоседите ТЕотта1 .ЕохтабПом (бепаег: ТОБЗесЕ); 

Бед1п 

ГоаЯРгоаРагат; 
епа; | 
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Теперь создайте обработчик события опс1озе. Здесь будут сохраняться пара- 
метры окна. Здесь мы не будем загромождать программу и просто вызовем метод 
бахеРрРгодРагам. 

| ргоседоге ТЕРогт]1 .ЕогиС1о5е (бепаег: ТОБ)ес®; уаг Асе1оп: ТС1озеАсе1оп); 
Бед1п | 
ЗахеРгодРагам; 
епа; 


Если сейчас попытаться скомпилировать программу, то будет получено три 
ошибки. Компилятор Реры "ругается" на то, что не может найти процедуры 
ТоаЯРгодРагам И бауеРгодРакаю. Давай создадим их. Для этого поднимитесь в на- 
чало модуля и найдите раздел описания закрытых ‘процедур рг1уаЕе. Опишите 
здесь эти две процедуры без всяких параметров: 

рг1уаке 

{ Рх1уабсе аес1ахае1оптз$ } 
ргосеаиге ГоааРгоаРагапц; 
ргоседиге ЗахерРтгоадРагат; 


Теперь нажмите сочетание клавиш <СИ]>+<5З9>+<С>, и Бер создаст заго- 
товки под эти процедуры: | | | 

ргоседаге ТРотт1 .ГоаЯРгоаРагат; 

Беа1по 

епа; 


рхосе@иге ТЕохт1 .5ауеРргодРагат; 

Бед1по 

епа; 

Добавим свой код в эти шаблоны. Для этого напишите в процедуре 
ЗауерРгодРагам содержимое листинга 10.19. 


ргоседцге ТРогт1 .бауеРгодРагам; 


уах 
РТп1Е11е: ТВедТп1Е1]1е; 


Ъеа1п - | . 
ЕТп1Е1]е := ТВед1Тп1Е11е.Сгеаке ('боЁЕмаге'); // Инициализирую реестр 


Е1п1Р1]е.ОрепКеу('\УК', Егие); // Открываю раздел _. | 
ЕТп1Р11е.ОрепКеу ('\УК-Оп11пе', Егие); // Открываю еще один раздел | 


1Е М1паомбкабе=иМогта1 ЕТеп 

Бед1п | 
ЕТИ1Е11е.Ихг1еетпеесдег ('ОрЕ1оп', ‘изаеь’, заем); 
ЕТп1Е11е.Мх1сетТпеесдег ('ОрЕ1оп', 'Не1аёВ', Не1лоаВе); 
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Е]п1Е1]е.Мх1ееТосесвег ('ОрЕ1оп', 'ГеЁЕс', Геёё); 
ЕТп1Е11е.Ме1еетТпседехг ('ОрЕ1оп', 'Тор', Тор); 


епа; _ 


Е111Е11е.Иг1сетТисесдех ('ОрЕ1оп', 'И1пбеаее', Тпеедех (\/1пЯомбеаее)); 


ЕТр1Е11е.Ргее; //Освобождаю реестр 


епа; 


После инициализации реестра и подготовки разделов делаем проверку, в каком 
состоянии находится окно. Если и1паомзкаеке равно мзМогва1, то сохраняем пара- 
метры окна. Если нет, то этого делать не надо. Если у вас стоит разрешение экрана 
800х600, то при максимизированном окне значение его ширины будет 802, а высо- 
. ты 602. Эти значения больше реального разрешения, и если вы установите их при 
загрузке, то изменять размеры окна мышью будет неудобно. 

После этого сохраняем состояние окна — и1паом5каее. Так как оно имеет тип 
ТИ1паомЗекаее, То приходится приводить этот тип к тпеедех с помощью записи 
Тпеедег (М1пом5еаее). Благо типы совместимы и с приведением типов не возника- 
ет проблем. 

Процедура гоааргодРакам работает таким же образом, и ее содержимое вы мо- 
жете увидеть в листинге 10. 20. | 


ргоседиге ТЕГогт1 .ГоаЯРгоаРагап; 


уах 
ЕТл1Е11е: ТКедТп1Е11е; 

Беа1п | 
ЕТп1Е1]е := ТВедТп1Р11е.Сгеаке ('боЁЕмаге'); 


ЕТ01Е11]е.ОрепКеу ('УВ', Егиае); 
ЕТп1Е11ё.ОрепКеу ('УВ-Оп11пе',Ехие); 


ИТАЕН: =ЕТ01Е11е.ВеаЯТиседех ('ОрЕ1оп', 'узаеь', 600); 
Незаве : =ЕТп1Е11е.ВеаЯТпеедех ('Оре1оп', 'НезчЕН', 400); 
`ТеЕе:=Е1п1Е11е.ВеаЯТаеедек ('ОрЕ1оп', '.еЕе', 10); . 
| Тор:=ЕТо1Е11е.ВеаЯТиседег ('ОрЕ1оп', 'Тор', 10); 


И1пЧомсЕаее : =ТИ1пЧомбеаее (ЕТп1Е11е.ВеаЯТоседехг ('ОрЕ1оп', 'М1пбеабе', 2)); 


ЕТ01Е11е.Ехее; 


епа; 


ПРИМЕЧАНИЕ. На компакт-диске, прилагаемом к книге, в папке \Примеры\Г лава 10\ 
Аедзег вы можете увидеть пример этой программы. 
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Рассмотрим еще несколько методов, которые могут быть полезны при работе 
с реестром. 


С релеке\а1ие — удалить значение из реестра. Например, если вам ‘нужно удалить 
значение с именем изаЕъ, то вы можете написать код: 
ВКеач1Тп1.Ое1есе\Уа1ле ('Рагапт') 


% 


С) вооскеу — это свойство объекта твезтп1Е11е, которое указывает на головной 
раздел, который сейчас используется. Как мы уже знаем, по умолчанию исполь- 
зуется раздел НКЕУ_СОКВЕМТ_ОЗЕК. Чтобы изменить это значение, нужно 
просто присвоить другое. Например, в листинге 10.21 приведен код, который 
записывает значение в раздел НКЕУ_ТОСАГ_МАСРШМАЕ. 


ВедТп1:ТВедТп1Е11е; 


ВедТп1 : =ТКечТп1Е11е.Сгеаее ('боЁЕЕмаге'); 

ВедТп1 .БоосКеу: =НКЕУ ЪОСАГ МАСНТМЕ; 

Вед1Тп1 .ОрепКеу ('УК-оп11пе', Ехие); 
ВечТп1.Иг1ее5ег1па ('Ва2@', 'Рагаш', Еа1е1.Техе); 


Вед1Тп1.Егее; 


Объект ткечтп1Е11е универсален и может работать не только с реестром, но 
и с ПУ!-файлами. Так как такие файлы морально устарели и их не желательно ис- 
пользовать, то здесь не будем рассматривать примеры работы с ними. Хотя код бу- 
дет тот же самый, только конструктору схеаке нужно указать имя П\-файла, 
а лучше указать еще и путь. | 

При рассмотрении реестра был упомянут объект твед1зЕкху. Это объект, кото- 
рый предназначен для работы только с реестром. Как мы уже знаем, объект 
ТВеч1п1Р11е всегда записывает в реестр только строки, даже если пишется число 
с помощью метода их1Еетпеедех. Это связано с тем, что этот объект позволяет ра- 
ботать с реестром как с ПУГ-файлом. А так как файл может содержать только стро- 
ки, то и объект работает со строками. 

Реестр, в отличие от П\-файлов, — это база данных. Поэтому она позволяет 
хранить не только строки, но и числа, и данные, и логические операторы. Если вы 
хотите, чтобы данные сохранялись и читались в виде типов, отличных от строк, то 
необходимо работать через объект твед1зегу. Он также объявлен в модуле 
_ сед1зеку, ПОЭТОМУ Вы ДОоЛЖны подключать этот модуль в раздел изез. 

Работа с твед1зегу практически такая же, как и с тведтп1Е11е. Посмотрите на 
листинг 10.22, и вы увидите много общего. 
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уах 
Вед :ТВед15егу; 
Беа1п 
Кед:=ТКедчТп1Е11е.Сгеабе; //Инициализация 
Вед .Коо<Кеу : =НКЕХ_ГОСАГ_МАСНТМЕ; / /Выбираю корень реестра 
//По умолчанию это НКЕУ_СОВВЕМТ_ОЗЕВ 


Кед .ОрепкКеу ('ЗУЗТЕМ', Егие); ‘//Открываю раздел ЗУЗТЕМ 
Кед.ОрепкКеу ( 'СиггепЕСопЕго15ее', Ехие);//Открываю раздел СиггепЕСопего1$ее 
Кез .ОрепкКеу ('СопЕго1', Ехае); | 

Вед .ОрепКеу ('без51оп Мападчех', Ехае); 

Вед .ОрепКеу ('Мептогу Мападетепе', Етае); 


//Записываю параметр С1еа’РадеЕг11еАЕ5НаЕЯомт 
Вед .Мг1ЕеТипеедег ('С1еа’РадеЕ11едАЕ5НаеЯомт', 112); 


//Читаю параметр Н1Я9аеп 
КеачТп1.КеаЯТпеесчег ('Н1Яаеп') 


Вед .С1озеКеу; //Закрываю ключ 
Ведч.Ргее; //Освобождаю объект 


епа; 


В этом примере чтение и запись будут происходить с числами, а не со строками 
‚с последующим преобразованием в число. 

Обратите внимание, что после создания объекта нужно выбрать раздел, с кото- 
рым вы будете работать: В объекте тведтп1Е11е мы использовали значение по 
умолчанию. При записи у метода иг1еетпеедех Только два параметра: | 
С имя параметра, который мы хотим записать; = 
С значение параметра. _ | 

Здесь отсутствует раздел, потому что запись будет происходить в текущий раз- 
дел. При использовании объекта тведтп1Е11е в качестве первого параметра метода 


был указан раздел (это было связано со спецификой П\М-файлов), в который нужно 
записать параметр-значение, а здесь раздел отсутствует. 


10.12. Множества 


В английском языке множества называют словом 5ег (набор), поэтому больше 
привычно понятие — набор данных. Множества — это набор заранее определен- 
ных данных. Вы объявляете переменную, которая может принимать определенные 
значения из какого-то набора. Допустим, что требуется описать часы. Какими они 
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бывают? Можно выделить два типа — цифровые или стрелочные. Чтобы пользова- 
тель не ввел чего-то своего, вы можете объявить набор из этих двух значений, 
и тогда пользовать сможет выбирать только из этого набора. | 
Множества объявляются ‘в разделе суре с помощью конструкции зе оЕ. В сле- 
дующем примере объявляется множество тзесоЕСвах типа набор символов сзах:' 
Суре 
ТбесоЕСВаг = зее оЁ сваг; | 
Тип Сваг — это число от‘0 до 255, значит, наша переменная. может принимать 
одно из этих значений. | 
Более интересный пример будет с часами: 
Суре 
ТС1оскКТуреЕпим = (21916а1, Апа1оа); 
ТСТосКТуре = зеё оЕ ТС1оскКТуреЕпип; 


В первой строке объявили переменную тс1осктуреЕпию — перечисление, в ко- 
торой перечислено два типа часов. Во второй объявили набор тс1осктуре. Теперь 
любая переменная типа тС1осктуре будет принимать значения 1191еа1,; Апа105. 
Другое значение в эту переменную записать нельзя. 

Давайте научимся работать с множествами на реальном примере. Для этого 
представим, что нам надо хранить в какой-то переменной дни недели, когда было 
полнолуние. Объявление такого множества будет выглядеть следующим образом: 

‘Буре 

ТРаузОЕМеек = (Понедельник, Вторник, Среда, Четверг, 
Пятница, Суббота, Воскресенье); | 
ТЕо1]Моопрауз$ = зеб оЁ ТраузОЕМеек; 


В реальной программе нельзя будет использовать русские значения в множест- 
ве, но для данного примера использовались понятные нам названия дней недели. 

Чтобы использовать это множество, мы должны объявить переменную такого 
типа, например Моопрауз : ТЕи11Моопдауз. А чтобы присвоить значение, мы должны 
указать его в квадратных скобках. В следующем примере заносится в такую пере- 
менную два дня — понедельник и четверг: 


уаг 

Моопрауз: ТЕа11Моопрауз; 

Бед1п 

МоопПауз := [Понедельник, Четверг]; 
ера; 


Чтобы проверить, находится ли какое-то значение в переменной, НУЖНО ИСПОЛЬ- 
_ зовать оператор 11; 
1Е Понедельник 1п поопрауз %Веп.о 

Выполнить действие | 


Для добавления и удаления элементов из множества вы можете использовать 
операторы сложения и вычитания или функции тпс1а4е И Ехс1аае. В следующем 
примере показаны различные варианты использования этих функций: 

Моопрауз := Моопрауз + [Среда]; //Добавляем среду 

МоопПауз$ := Моопрау$ — [Понедельник, Четверг]; // Удаляем два дня 
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ТпсТаае (Моопрауз, 'Воскресенье'); //Добавляем воскресенье 
Ехс1аае (Моопрауз, 'Среда'); // Удаляем среду 


Функции работают быстрее и реализованы в одной машинной команде. Опера- 
торы сложения и вычитания при работе со множествами отнимают больше ресур- 
сов и используют больше команд. 


10.13. Потоки 


Под потоком понимается объект т5Егеаш, который является базовым объектом 
для потоков разных типов. В этом классе реализованы все необходимые свойства и 
методы, необходимые для чтения и записи данных на различные типы носителей 
(память, диск, медианосители). Благодаря этому объекту, доступ к разным типам 
носителей становится одинаковым. 

В этой главе, когда мы рассматривали работу с файлами, уже использовались 
потоки. Объект ТЕ11е5егеам является потомком главного объекта т5Егеам И ПО- 
зволяет получить доступ к диску. Точно так же можно › получить доступ к: 


О памяти через объект тмепогу5еЕгеам; 

СО сети через объект ти1пбоскее5екеамп; 

О СОМ-интерфейсу через то1езегеам; 

С строкам, находящимся в динамической памяти тег 1пазегеам. 


Это неполный список объектов потоков, но даже все эти объекты мы рассмат- 
ривать не будем. Это отнимет очень много времени и места, а смысл работы иден- 
тичен. Рассмотрим только базовый объект т5Егеам, а вы потом посмотрите на то; 
как производилась работа с тг11ебегеаш, и увидите, что работа объектов идентич-_ 
на и таким же образом можно работать с любым другим типом потока. 

Итак, давайте разберемся со свойствами и методами потока. 

Свойства: 


О Роз1е1оп — указывает на текущую позицию курсора в потоке. Начиная с этой 
позиции будет происходить чтение данных; | 

О 512е — размер данных 1 в потоке. 

Методы: 

С соруЕгом — метод предназначен для копирования из другого потока. У него два 
параметра — указатель на поток, из которого надо копировать, и число, показы- 
вающее размер данных, подлежащих копированию; 

О веаа — прочитать данные из потока, начиная с текущей позиции курсора. У это- 
го метода два параметра — буфер, в который будет происходить чтение, и чис- 
ло, показывающее размер данных для копирования; 

С еек — переместиться в новую позицию в потоке. У этого метода два 
параметра, первый — число, указывающее на позицию, в которую надо перейти. 
Если вам нужно передвинуться на 5 байт, то просто укажите цифру 5. Второй 
параметр — откуда надо двигаться. Тут возможны три варианта: 
® зоркошвед1пп1па — двигаться на указанное количество байт от начала файла; 
® зогГОоПпСиггепЕе — двигаться на указанное количество байт от текущей пози- 

ции в файле к концу файла; 
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® зоргомЕПа — двигаться от конца файла к началу на указанное количество 
байт; 

С зеЕ512е — установить размер потока. Здесь только один параметр — число, 
указывающее новый размер потока. Допустим, что вам надо уменьшить размер 
файла. В этом случае с помощью метода 5е=512е потока ТЕ11е5егеап вы можете 
уменьшить или даже увеличить размер файла; 


С] иг1Ее — записать данные в текущую позицию потока. У этого метода два пара- 
метра: 
»е переменная, содержимое которой нужно записать; 
е число байт для записи. 


Это основные методы, которые вам могут понадобиться при работе с потоками. 
На практике мы еще встретимся с подобными объектами, и вы еще раз увидите, как 
с ними работать. 

В русском переводе слова зиеат и геад почему-то переводятся переводчиками 
одинаково — поток. Но в программировании это разные термины. $еат — это 
поток каких-либо данных, а {геа обеспечивает многопоточность приложений (па- 
раллельное выполнение или вычисление). У слова {геа4 есть еще одно значение — 
нить, т. е. ниточка в пучке процессов, выполняемых в ОС. Чтобы вас не путать, 
можно использовать один термин — поток, но в дальнейшем постараемся понять 
разницу между двумя этими терминами. 


СОВЕТ. Обращайте внимание на англоязычное название объектов, с которыми мы 
будем работать, и помните, что $1геат — это поток данных, а {Игеа — отдельная нить 
процесса, выполняющего инструкции программы. Процесс (ргосез$) — это отдельная 
программа, которая может состоять из нескольких потоков (Игеад). В данном случае 
поток можно воспринимать как процедуру, которая выполняется параллельно основ- 
ной задаче. Именно поэтому я советую вам следить за названиями, чтобы не путать 
поток данных и программный поток. 


10.14. Концентрация на объекте 


Давайте вспомним ситуацию, когда создается обработчик события для какого- 
то пункта меню, и в нем мы пишем вызов метода с1озе. Как вы знаете, это метод 
объекта формы, который закрывает ее. Когда мы вызываем методы какого-то 
объекта, мы должны писать перед ними имя объекта, метод которого мы вызыва- 
ем, например, гогт1.С1озе, ГДе Еогш1 — это объект типа ТЕоги. Но если вызов 
метода объекта происходит в другом методе этого же объекта, то писать имя 
объекта не обязательно. 

А если нужно выполнить десять обращений к различным. свойствам или мето- 
дам одного и того же объекта? Каждый раз писать одно и то же имя? Да! Но есть 
способ лучше — оператор м1 ев. Он выглядит следующим образом: 

м1ЕМ имя_объекта ао 

Беа1п 
код 
епа; 
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Теперь все методы и свойства, которые находятся между Бед1п И епа, КОМПИЛЯ- 
тор будет сначала искать у объекта имя_объекта, и если не найдет, то тогда уже 
продолжает поиск у того объекта, внутри метода которого написан код. | 

Вспомним пример из листинга 10.21, когда`мы работали с реестром. В том при- 
мере создавался экземпляр класса ТБедч1п1Е11е, а потом вызывались его методы 
‚ и свойства. А теперь сравните тот код со следующим вариантом: — 

Вед: =ТКедчТп1Е11е.Сгеаее; 
м1ЕП Вед Яо 
Беа1п 
КооеКеу : =НКЕУ_ТОСАТ, МАСНТМЕ; 


ОрепКеу ('ЗУЗТЕМ', Етае); 
ОрепкКеу ( 'СиггепеСопЕхо15ее', Ехие); - 
Еуее; 
епа; 
В этом примере после создания объекта вед класса твечтп1Е11е мы начинаем 
блок м1 ЕЪ, внутри которого все методы этого объекта можно писать в сокращенном 
варианте, без добавления вед и точки в начале. | 


Глава 11 


Обзор дополнительных 
компонентов ОБеры 


Так как наши навыки о программирования уже сильно улучшились, то и про- 
граммы станут более сложными, интересными и соответственно более полезными. 
А дальше — больше, а далыше — лучше и еще интереснее. | 

Здесь вы на реальных примерах почувствуете всю мощь среды разработки 
Ре]рН! и, возможно, уже будете готовы самостоятельно создавать свои проекты. Но 
прежде чем начнете это делать, желательно прочитать в конце книги главу о работе 
с самой средой разработки. Во многих книгах эта глава идет в самом начале, но 
здесь она дается в конце, потому что нет смысла рассказывать о том, чему вы еще 
не можете найти применения. Только когда почувствуете, что имеете достаточно 
сил и опыта для создания самостоятельных проектов, тогда и изучайте работу со 
средой Хер, а также порядок отладки приложений. | 

В процессе написании программы всегда возникают ошибки или просто опечат- 
ки. При компиляции Бер находит только синтаксические ошибки. Недочеты 
в логике выполнения программы компилятор найти не может. Поэтому в Веры 
встроены мощные средства отладки приложений, которые позволяют находить 
‚ ошибки и недочеты именно в логике программы. Если вы уже готовы и собирае- 
тесь писать самостоятельный проект, вам необходимо познакомиться с этими воз- 
можностями. | | 


11.1. Дополнительные кнопки Оерны: 
(ТЗрееаВиНоп и ТВИВ!7) 


Мы уже познакомились с кнопкой тВчЕЕоп с вкладки %апдагд. В Реры есть 
еще два вида кнопок на вкладке АЯ@@юопа! — тв1Евел и Т5рееаваекоп. Помимо 
простого текста, они могут содержать и изображения, разница только в том, что 
ТВ1ЕВЕп может получать фокус ввода с клавиатуры, а Т5рееаВиаекоп нет. | 

Что значит "получение фокуса ввода"? Когда вы щелкаете мышью по какому-то 
элементу управления, то он получает фокус ввода. Например, вы щелкнули по 
строке ввода тка1+е. После этого в ней появляется курсор для ввода текста, и все 
события от клавиатуры будут посылаться именно этому компоненту. Точно так же 
с кнопкой. Если вы щёлкнули по ней, то все нажатия на клавиатуре будут посылаться 
кнопке. Правда, кнопка не может получать текст, но если вы нажмете клавишу 
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<Ещтег>, когда фокус находится на кнопке, то это будет равносильно щелчку по 
этой кнопке мышью. 

Кнопка т5реедВиЕ коп не может получать фокуса. Это значит, что если вы наби- 
рали какой-то текст в строке ввода, а потом щелкнули по такой кнопке, то обрабо- 
тается соответствующее событие и фокус возвратится обратно в строку ввода. Он 
не останется на кнопке. 

‚ Как вы знаете, фокус выделенного компонента в программах можно менять кла- 
вишей <Таб>. Если вы нажмете ее, то будет выделен следующий по счету компо- 
нент. Так вот клавишей <Таб> невозможно выделить кнопку Т5рееяваЕ оп. , 

Объект ТВ1ЕВЕп хорошо подходит там, где нужна кнопка с изображением, 
а тзрееяВиЕ коп для кнопок панели инструментов, потому что такие кнопки никогда 
не должны получать фокуса ввода. Наверное, поэтому т5рееаВие коп отображается 
в Ре!рЫ на панели инструментов в виде квадратной кнопки, ведь на панели инст-- 
рументов в большинстве программ кнопки квадратные. 

Давайте попробуем создать небольшое приложение, в котором будут ИСПОЛЬЗО- 
ваться оба типа этих кнопок. Запустите Ое]рЫ и создайте новый проект. 

Установите на форму компонент трапе1 с вкладки Запдага. Измените у него 
СВОЙСТВО А119п На а1Тор, чтобы панель растянулась по верху формы. Теперь уда- 
лите текст в свойстве сарегоп и измените высоту (свойство незаве) на 24. Как по- 
казывает мой опыт, такие панели наиболее эстетичны, а кнопки получаются доста- 
точного для работы размера. 

Установите на панель кнопку ТбрееаВаекоп и установите у нее свойства ее 
(левая позиция) в 0 и Тор (верхняя позиция) в 1. Ширина (изаеь) кнопки должна 
быть равна 23, а высота (незон+) — 22. Давайте изменим имя кнопки на ЕхзеВаЕкоп, 
потому что по нажатии этой кнопки мы будем закрывать программу. | 

Если вы все сделали правильно, то у вас должно получиться нечто похожее 
на рис. [1.1. 

Теперь дважды щелкните по свойству слурь, и перед вами должно открыться окно 
загрузки изображения (см. рис. 11.2). Нажмите на кнопку гоаа, и загрузите картин- 
ку. К Раыры прилагается большая библиотека готовых изображений. Расположены 
они в папке \Ргоргтат Е|е\Соттоп ЕЙез\ВоПапд ЗВагед\Гтаге$\Вивоп$. На ком- 
пакт-диске, который прилагается к книге, вы также можете найти подборку допол- 
нительных картинок, которая может пригодиться при написании программ. 

Загружаемая картинка по умолчанию должна иметь размер 16х16. Пусть будет 
загрузка картинки, которая идет вместе с РерШ под названием 4оогореп.6тр. Мо- 
жете сделать то же самое. Как только вы выберете картинку, нажмите ОК, чтобы 
закрыть окно загрузки. изображения. Теперь на кнопке отображается выбранная 
картинка. Запустите программу, чтобы посмотреть на результат ее работы. 


СОВЕТ. Вы можете заметить, что кнопка выглядит немного выпукло, а во всех совре- 
менных приложениях ‘кнопки плоские и плавающие. Это легко исправить, если изме- 
НИТЬ СВОЙСТВО КНОПКИ Е1а{ на Егце. 


Теперь создадим для кнопки событие овс11ск. Для этого нужно дважды щелк- 
нуть левой кнопкой мыши по самой кнопке или выделить ее и на вкладке Еует@$ 
объектного инспектора и мышью дважды щелкнуть по свойству опс11ск. В соз- 
данном обработчике события напишите код вызова метода закрытия формы: 


С1озе; 
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Рис. 11.1. Форма будущей программы Рис. 11.2. Окно загрузки изображения 


Теперь можно запустить программу и проверить ее работу в действии. 

Усложним задачу и поместим на форме еще две кнопки. Пусть они будут распо- 
ложены так, как это показано на рис. 11.3. В первую из них загружена картинка из 
файла ВШБоЙ.Ьтр (во1ъоЕЕВоЕкоп), а во вторую — ВиШоп.Ытр (Ви1ЪопВчЕЕоп). 
В скобках указаны имена кнопок. 

Теперь установите у обеих 
КНОПОК СВОЙСТВО Сгоиртпаех рав- 
ным [ иу любой из них измените 
СВОЙСТВО Ромп На Е гие. Таким об- 
разом, мы назначили этим кноп- 
кам один и тот же индекс группы, 
и они стали сгруппированными. 
Можно устанавливать любой ин- 
декс больше нуля. При нулевом 
значении считается, что группи- 
ровки нет. Кнопка, у которой 
СВОЙСТВО Рот установлено в Егкие, 
по умолчанию выглядит нажатой. 

Попробуйте теперь запустить программу и нажимать на новые кнопки. Когда 
нажата одна из них, то другая автоматически отпускается. Это связано с тем, что 
кнопки сгруппированы и работают как одно целое. | 

Таким способом часто оформляют операции выравнивания. Например, в том же 
текстовом редакторе У/ог кнопки выравнивания работают именно так. 

Возможность кнопки находиться в нажатом и нормальном состоянии появилась 
после того, как были сгруппированы две кнопки, путем присвоения их свойству 
скоиртидех значения |. Вы можете создать еще одну группу кнопок (количество 
кнопок не ограничено двумя) и присвоить ей значение 2. В этом случае новая груп- 
па кнопок будет работать независимо от первой. 


= Пример работы с кнопками 


Рис. 11.3. Улучшенная форма будущей программы 
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ВНИМАНИЕ. Свойство ромлз может быть равно Егие только у одной кнопки в группе. 


Теперь установим на форму кнопку тв1ЕВЕп и назовем ее 5кагЕВеп. В свойстве 
СарЕ1оп напишите слово "Старт" и загрузите сюда любую картинку. Загрузка про- 
исходит точно таким же образом, как и при использовании т5$рееаВче коп. 

Кнопки ТВ1ЕВЕп И ТбрееаВаЕ коп очень похожи и имеют практически все одина- 
ковые свойства и методы, поэтому больше тут сказать уже почти нечего. 

Очень интересным является свойство Ггауоце, которое показывает, где должна 
располагаться картинка, а где текст. На рис. 11.4 показаны разные варианты кно- 
пок, а снизу приписаны установленные значения в свойстве тгауоце. | 


р: Е. а, В 
Зе р я 
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Рис. 11.4. Различные варианты свойства 1ауоце 


Другим интересным свойством является к1па. В нем заложен список заранее 
подготовленных стандартных кнопок. При выборе любого из них автоматически 
изменяется текст и изображение на кнопке. На рис. 11.5 вы можете увидеть раз-. 
личные кнопки и соответствующие им значения к1па. Жаль только, что текст анг- 
лоязычный, но его изменить очень легко. Помимо картинки и текста, изменяется 
СВОЙСТВО Мода1Вези1+ — результат, который вернет кнопка для диалогового окна. 


БкАБИ . 2 0 1 Ы№ 
ЬКАИ а. ькок 


КСюзе ` 26 | БКВену 


ЬКНер м 1 Ыте: 


ЫКопоге — №. я. тс | ЫЖСапсе! 


‚ Рис. 11.5. Кнопки с различными вариантами Рис. 11.6. Вторая форма программы 
установок в свойстве к1па 


Давайте напишем пример, который будет запускать дочернее модальное окно по 
нажатии кнопки Старт. 

Создайте еще одну форму. Если вы работаете в Оеры 7 и ниже, то сразу от- 
кройте менеджер проектов (Рго]есё Мапаргег), чтобы легче было переключаться 
между формами (для этого нужно выбрать меню Уем | Ргодесё Мапарег). Теперь 
установите на новую форму три кнопки. Желательно расположить их так, как это 
показано на рис. 11.6. о 

Для первой кнопки установим свойство к1па в кок, для второй — в ЪсСапсе1, 
а для третьей — ькАБохге. | 
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Теперь вернемся в первую форму (для этого дважды щелкните мышью в окне 
Ргодес{ Мапагег по первой форме) и создадим обработчик события опс11ск для 
кнопки Старт. В нем нужно написать содержимое листинга 11.1. 


рхоседиге ТМа1пЕогм. 5 агЕВепС11сК (Зепаехг: ТОБ)десе); 
реалп 
Роги2 .бпомМоЯа1; // Показываю вторую форму. 


_1Е Рог? .Мода1Кеза1]е=шуоКкК ЕВеп 
Арр11саЕ1оп .МеззадеВох ('Вы нажали кнопку ОК', 'Вы нажали’); 


1Е Рока .Мода1Вези1е=шеСапсе1 Ъеп 
Арр11саЕ1оп .МеззадеВох('Вы нажали кнопку Сапсе1', 'Вы нажали’); 


1ЁЕ Рогл2 .Мода]Кеза1Е=пкАрохгеЕ ЕПеп 
Арр11са*1оп.Меззадевох('Вы нажали кнопку АБоге', 'Вы нажали’); 
епа; 


В первой строке кода показывается вторая форма как модальное окно. Если 
пользователь нажмет одну из трех кнопок, модальное окно закроется и в свойстве 
формы гоги2 .Мода1Вези1е будет находиться результат, который указан у нажатой 
КНОПКИ В СВОЙСТВе Мода1Кези1е. Вот именно этот результат мы проверяем после 
закрытия окна, и в зависимости от этого выводится на экран необходимое сообще- 
ние. Попробуйте запустить этот пример и посмотреть его в действии. 


ПРИМЕЧАНИЕ. На компакт-диске, прилагаемом к книге, в папке \Примеры\Глава 11\ 
ВИВт&ЗреедВийоп вы можете увидеть пример этой программы. 


11.2. Самостоятельная подготовка иконок 


Стандартный размер картинки для кнопки равен 16х16. Вы можете создавать 
изображения и большего размера, но если хотите, чтобы кнопочки выглядели эле- 
гантно, то желательно, чтобы они имели именно такой размер. Такие габариты вы- 
браны не случайно, просто они эргономичны и минимально достаточны для зри- 
тельного восприятия. 

Как теперь уже известно, кнопка может быть в двух состояниях — активная 
(СВОЙСТВО ЕпаБ1еа = кгкие) и неактивная (ЕпаЪ1еа = Еа1зе). Когда кнопка неак- 
тивна, то ее изображение должно’ отображаться се- | 
рым цветом. Если вы будете делать кнопку неак- 
тивной, то желательно подготавливать изображе- 
ние размером 32х16. Такое изображение нужно 
разделить пополам. Слева нарисовать цветную 
картинку, а справа — ее дубликат в оттенках серо- Рис. 11.7. Изображение 
го, как это показано на рис. 11.7. | для кнопки в двух состояниях 
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Когда кнопка активна, ОерЬ! автоматически будет подставлять изображение 
слева, а когда неактивна, то правое изображение. 

В принципе, Рерш и сам может автоматически сделать картинку для неактив- 
ного состояния, поэтому этим правилом можно пренебречь. Но если во время 
‚ тестирования программы вы заметили, что в неактивном состоянии изображение 
исчезает или выглядит некорректно, нужно подготовить правильное изображение 
в виде двух картинок. 


11.3. Маскированная строка ввода (ТМазКЕай) 


Слово "маскированная" в данном случае происходит не от слова "прятаться" 
("“маскироваться"), а от слова "маска". Очень часто требуется, чтобы пользователь 
ввел в программу какие-то данные в определенном формате. Для этого существует 
компонент ТМазкЕа1е, который позволяет указать нужный формат данных, а зна- 
чит, у пользователя меньше шансов ошибиться при вводе. 

Давайте создадим небольшой пример, который проиллюстрирует работу с ком- 
понентом ТМазкЕа1е. Создайте новое приложение. Поместите на него текст 
(ТГаЪе1) "Введите дату". Рядом поставьте компонент ТмазкЕа1е. Щелкните по нему 
и посмотрите на свойства. Большинство свойств в данном случае идентично ком- 
поненту тЕа1е с палитры инструментов Эапдаг4. 

Самое интересное здесь свойство — Еа1ЕМазк. Щелкните по нему два раза мы- 
шью, и перед вами откроется окно редактора ввода (рис. 11.8). | 

В строке ввода три Ма$К вы можете вводить маску. Справа расположен спи- 
сок примеров. Слева внизу расположена строка Те$ё [ариф, в которой можно тести- 
ровать указанную маску. 


1 
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Рис. 11.8. Редактор маски 


Создавать маску очень просто. Если вы хотите, чтобы пользователь ввел четыре 
числа, потом тире и еще три числа, можно в строку три МазК ввести 9999-999. 
Цифра 9 означает, что на этом месте должна быть любая цифра. Если вам нужно, 
чтобы в начале ввода была еще буква "К", то укажите маску — К9999-999. 


ПРИМЕЧАНИЕ. На компакт-диске, прилагаемом к книге, в папке \Примеры\Г лава 11\ 
МазКЕай вы можете увидеть пример этой программы. 


Обзор дополнительных компонентов Верт 231 


11.4. Сеточки (Тзитоата, ТОгаиап9) 


Очень часто в программах нужны сетки ввода данных. Например, взгляните на 
электронную таблицу Ехсе]. Ее окно построено на основе сетки ввода. Вы можете 
себе представить электронную таблицу без такой сетки? Очевидно — нет. 

На рис. 11.9 вы можете увидеть про- 
стейшую сетку, которая еще не умеет 
ничего делать. В Рер № вам доступно 
сразу два вида сеток ТзЕх1пастза и 
ТОгамсг1а. Разница в них незначитель- 
ная. В т5ег1паск1а вы можете вводить 
данные, и они там будут сохраняться и 
отображаться, а в Тогамсг1а данные мо- 
гут вводиться, но за их отображение Рис. 11.9. Простейшая сетка 
должен отвечать ваш код. Другими сло- 
вами, т5ех1поскза-—— это сетка строк, 

а Тргамсхг1а — это сетка рисунков. 

Рассмотрим работу только с т5Ехг1поск1а, потому что он более распространен 
и потребность в нем появляется намного чаще. Работа второго почти не отличается, 
и, кроме того, у нас еще не хватает знаний о графических возможностях Веры. 

Создайте новый проект и поместите на его главную форму сетку т$ег1пабх19. 
Выделите ее, и давайте рассмотрим ее специфичные свойства в объектном инспек- 
торе (те, что нам известны, рассматриваться не будут). 


О вогаег$&у1е— стиль обрамления. Здесь возможны варианты Ъ$51п91е или 
ЬзМопе. Можно самостоятельно, по очереди, установить оба этих типа и посмот- 
реть, что они собой представляют. _ 


О со1жисочае — количество колонок в сетке. Оставим так, как есть — 5 штук. 


О 


РеЁац1ЕСо1\1аЕв — ширина колонок по умолчанию. 


С] реЁач1е0кам1п9 — рисование по умолчанию. Если здесь установлено ехое, то 
компонент сам будет отображать введенные данные. Если га1зе, то это придет- 
ся делать самостоятельно, реагируя на соответствующие события. 


| Реёац1(Со1Не1айЕ — высота строк по умолчанию. Значение, установленное 
здесь, достаточно большое, поэтому давайте введем 16. Так сетка будет ВЫГЛЯ- 
деть более элегантно, по крайней мере на мой вкус. 


О г1хеасо1ох — цвет фиксированных колонок и строк. В фиксированные ячейки 
нельзя вводить текст, они используются в качестве заголовков. На рис. 11.9 пер- 
вая колонка и первая строка фиксированы и поэтому отображены цветом эле- 
ментов управления (цвет по умолчанию). 


О г!1хеасо1з — количество фиксированных колонок. Они всегда первые, нельзя 
создать фиксированную колонку в середине сетки. Хотя нет, возможно, все это 
только вопрос времени, но для этого придется писать код самостоятельно. 


О к:1хеавомз — количество фиксированных строк. Они всег да первые, нельзя создать 
фиксированную строку в середине сетки. Это можно сделать только самостоятельно. 
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С склаьлпеизаевь — толщина разделительных линий сеток. 


С оре1опз — настройки сетки. Если дважды щелкнуть левой кнопкой мыши по 
этому свойству или один раз по квадратику слева от названия свойства, то рас- 
кроется большой список дополнительных свойств. Рассмотрим каждое из них 
в отдельности: 


доЕ1хеа\УегЪ1пе — рисовать вертикальные линии сетки у фиксированных 
ячеек; 


доЕ1хедНог2Г1пе — рисовать горизонтальные линии сетки у фиксированных 
ячеек; | 


до\УегЕЁЬ1пе — рисовать вертикальные линии сетки у нефиксированных ячеек, 


чоНог211пе — рисовать горизонтальные линии сетки у. нефиксированных 
ячеек; | | 


докапае$е1есе — позволять выделять несколько ячеек; 
доргамЕоси5е1ескеа — рисовать фокус выделенной ячейки; 

довом$121па — можно ли изменять размер строк перетягиванием мышью; 
90Со1$1=1п9 — можно ли изменять размер колонок перетягиванием мышью; 


докомМоу1па — можно ли перемещать строки (если егие, то можно нажать 
кнопку мыши, установив ее указатель на фиксированную ячейку строки, 
и перетащить в новое положение); 


чоСо1Моу1па — можно ли перемещать колонки (если ские, то можно нажать 
кнопку мыши, установив ее указатель на фиксированную ячейку колонки, 
и перетащить ее в новое положение); 


ЧОЕЯ1Е1п9 — МОЖНО ЛИ ВВОДИТЬ с клавиатуры данные в сетку (для нашего 
примера установим в егие); 


доТаъз — если здесь установить кгие, то между ячейками можно путешест- 
вовать с помощью клавиши <ТаБ>; 


аоком5е1есе — если здесь Еа1зе, ТО выделяется только выделенная ячейка _ 


‚ (если сгче, то вся строка); 


чоА1мауз5НомЕЧ1Еог — еСЛИ Еа1зе, То когда вы обратились к ячейке, для ее 
редактирования нужно нажать <Ещег> или <Е2>, если сгие, то`как только 
выделяется ячейка, ее сразу можно редактировать; 


аоТромЬТгаск1па — будут ли данные прорисовываться, пока пользователь 


перемещает полосу прокрутки. 


С вомсоиае — количество строк. Для первого примера нам хватит пяти. 


0 


3сго11Вагз — нужно ли показывать полосы прокрутки. Здесь возможны вари- 
анты: 


‘ззМопе — не показывать: 


$5Ног12опфа1 — только горизонтальную полосу, 
<зУегк1са1 —— Только вертикальную полосу. 
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Итак, давайте напишем первый пример. Создайте обработчик события опбном 
для формы и напишите там содержимое листинга 11.2. 


ргоседике ТМа1пЕРоут.ЕРотгтабВом (бепаехг: ТОБес®); 


Беа1п 
// Заполняем значениями первую колонку 
5:11049С6:1491.Се11$[0,1]:='Иванов'; 
5$Е:119Сх191.Се11$[0,2]:='Петров'; 
5%:1196.191.Се11$[0,3]:='Сидоров'; 
5Е:119Сг1а1.Се11$[0,4]:='Смирнов'; 


// Заполняем значениями первую строку 
5Е:1п9Сх191.Се11$[1,0]:='Год рожд.'; 
5Е:119Сх:191.Се11$[2,0]:='Место рожд. '; 
5Ег119Схг191.Се11$[3,0]:='Прописка'; 
3Ех1196х141 .Се11$[4,0]:='Семейное положение '; 


ева; 


У объекта тзех1пасгаа есть еще одно свойство, которое не описано в объект- 
ном инспекторе — се11з. Это свойство — двумерный массив из строк, в которых 
хранятся данные, отображаемые в сетке. Чтобы получить доступ к какой-либо 
ячейке, нужно записать $Е:1п9Сг1а1.Се11$[номер колонки, номер ячейки]. 


ВНИМАНИЕ. Нумерация колонок и строк начинается с нуля. Например, если вы хоти- 
те записать во вторую колонку и четвертую строку текст "Привет", то необходимо 
записать: 5$Е:1п9Сбх191.Се11$[1,3]:='Привет'.Таким же способом можно и чи- 
тать содержимое ячеек: 1Е 5Ег1паСг191.Се11$[1,3]='Привет' ЕПеп Сделать 
[какие-либо действия]. 


Рис. 11.10. Программа в запущенном виде 


На рис. 11.10 вы можете увидеть окно, в котором показан пример в запущен- 
ном виде. — | 

Давайте усилим этот пример и заодно поглубже познакомимся с сеткой, Как ви- 
дите, в примере есть поле Год рождения. В это поле должны вводиться даты, 
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а значит, они должны иметь определенный формат. Было бы очень удобно, если бы 
в этом поле можно было бы задать маску ввода, но сетка такое не поддерживает. 
Тут можно использовать одну хитрость — когда пользователь щелкает мышью по 
нужному полю, подставлять компонент тмазкЕа1е, и пускай пользователь вводит 
информацию в него в строго определенном формате. | 

Давайте, реализуем сказанное на практике. Для этого поместите на форму ком- 
понент тмазкЕа1е (место расположения не имеет значения) и назовите его 
Рафека1е. Установите маску для ввода даты 99/99/9999. Теперь установите у него 
СВОЙСТВО \/151Ъ1е В Еа15е, чтобы компонент не был виден. 

Создайте обработчик события опргамСе11 и в нем напишите содержимое лис- 
тинга 11.3. 


 огоседиге ТМа1пРохи. веЕзпасЕ1 а1реаисе11 (зепдех: ОБЗесе; АСо1, 
АКом: Тпбедег; Кесе: ТКесе; беаее: ТСг1Я0гам5аее); 


Беч1п , 
ПРабсеЕа1е. Уве = Еа1зе; // Сделать невидимым компонент БаёеЕа1+ 


1Е (чАРосцзеЯ 1п 5бабе) ЕБеп // Если текущая ячейка в фокусе, то 
Беа1п | 
1Е АСо1=1 ЕВеп // Если рисуется ячейка первой колонки, то 
Бед1п 
// Записать в РабеЕЯ1е текст ячейки — 
ПРабсеЕа1е.Тех® : =56:1п09Сг1а1.Се11$[АСо1, АКом]; 
// Установить левую позицию | | 
ПакеЕа1е.ТеЕЕ := Кесе.ЦеЕЕ + 5х1п9Схг1491 .ЦеЕе+2; 
_// Установить верхнюю позицию | 
ПасеЕЯ1е.Тор := Кес®е.Тор + 56х1паСг1а1.6ор+2; 
// Установить ширину 
РаесеЕЯ1е.\М1аЕй := Весе.В19ре — Весе.ШеЕК; 
// Установить высоту 
ПасеЕа1е.НелавеЕ := Весе.Восеом — Кесе.Тор; 
// Сделать компонент РабеЕЯ1е видимым: 
РасеЕа1е .\15151е := Етае; 
ех1(; 
епа; 
ера; 


епа; 


Этот обработчик вызывается каждый раз, когда надо прорисовать какую-нибудь 
ячейку. Если прорисовывается вся сетка, то он вызывается для каждой ячейки отдель- 
но. Для нас Реры создал процедуру — обработчик события 5Е:1196:1910хамСе11 со 
следующими параметрами: 

О зепаег — здесь передается указатель на объект, который сгенерировал 1 событие: 
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О] АВом И АСо1 — номер строки и номер столбца (координаты) ячейки, которую 
надо прорисовать; 


С весе — структура, в которой указаны относительные размеры и положения 
ячейки. 


Что понимается под словом "относительные"? Структура весе выглядит так: 


Суре 
ТВесЕ. = гесога | 


ТтеЁЕ, Тор, В1а0Е, ВоЕЕом: Тпбедег; 
епа; 


Как видите, это структура из четырех 
параметров — левой, верхней, правой 
и нижней позиции. На рис. 11.1] стрел- 
ками показан тот размер, который будет 
в параметрах геЕе и влане структуры 
Вес. Размеры будут указаны в пикселах. 
В параметре к:аъе будет указано рас- 
стояние в пикселах от левого края сетки 
до правого края ячейки, а в параметре 
ВосЕом будет расстояние от верхнего 
края сетки до нижнего края ячейки. То 
есть мы получаем размеры относительно 
самой сетки, а не всей формы. 

‚ Ну и последний параметр, передаваемый нам в процедуру-обработчик собы- 
ТИЯ, — 5каке. В нем находится информация о состоянии ячейки, которую надо 

_ прорисовать. Состояния могут быть следующими: 

С очазелескеа—— ячейка выделена; 

О загосазеа — ячейка имеет фокус ввода: 

С загухеа — ячейка является фиксированной. 

Если в параметре $каее нет ни одного из этих значений, то это простая ячейка. 

Параметр 5Еаее объявлен как набор значений. Это значит, что он может прини- 
мать любое из указанных значений или их сочетания. Чтобы проверить, установле- 
но ли что-нибудь в зкаее, надо написать: 

1Е (значение 1п беаее) СНеп 


Рис. 11.11. Левая и верхняя позиции ячейки 


Выполнить действие 


Именно так проверяется во второй строке кода наличие значения загосизеа. 
И только если ячейка, которую надо прорисовать, имеет фокус, выполняются сле- 
дующие действия. Но перед этим мы прячем навгу маскированную строку ввода, 
потому что она могла находиться видимой в другой ячейке, и чтобы не было про- 
блем, лучше ее спрятать. 

Если рисуемая ячейка в фокусе, мы проверяем, в какой колонке находится ри- 
суемая ячейка. Если это первая колонка (где мы должны вводить дату), то мы пока- 
зываем рРакеЕа1еЕ на месте рисуемой ячейки. Для этого сначала присваиваем 
В Расека1е текст, который должен находиться в данной ячейке. Затем устанавлива- 
ем позицию и размеры компонента расека1* и только потом показываем его. 
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Как видите, способ очень простой и элегантный. Теперь осталось только создать 
обработчик события опсвапдае для компонента ракека1+. Это событие происходит, 
когда данные в строке ввода изменились, а это значит, что нам их надо сразу же 

прописать в редактируемую ячейку сетки, иначе они потеряются. Это потому, что 
все Данные ВВОДЯТСЯ В РабеЕа1е, анев сетку, а переносить их мы должны вручную: 
ргоседиге ТМа1пРога.ПабеЕЯ1еЕСвапае (бепдех: ТОБзес®); 

Бед1п | 

5Е:г1п09Схг191.Се11$ [56:119С6:191.Со1, 56г119Сг1а1.Вом] : =РасеЕЯ1е .Техе; 
епЯ; 


Чтобы еще больше закрепить материал этой части главы, давайте сделаем в по- 
следней колонке появление компонента тснесквох, ПО которому можно менять 
значение в ячейке между "Женат" и "Холост". Для этого на форму надо установить 
компонент съесквох и сделать его невидимым. Потом надо изменить событие 
Опрха\Се11, как это показано в листинге 11.4. | 


‘’ргоседаге ТМа1пЕогт. $6 х1пабг1Я1РгамСе11 (беп@ег: ТОБзесе; АСО1., 
`АКом: Тобедег; Весе: ТВесе; Збабе: ТСг1Я0гамбеаее); 
Бед1п | 
РасеЕа1е.\У1$101е := Еа1зе;. 
СрескВох1 .\У1$15]е := Ёа1зе; 
1Е (зЯаРосизеЯ 1п 5еаее) (Веп 
Беа1п 

:Е АСо1=1 ЕНеп 

Беалп * 

РасеЕа1е .Техе:=5%г1196х191.Се11$ [АСо1, АКо\] ; 
ПаЕеЕа1е.ГеЁЕе := Весе.цеЕЕ + 5г1паСг1а1 .ГеЕк+2; 
РаееЕа1е.Тор := Весе.Тор + 56х1п9Стг1&1.6ор+2; 

‚ РабеЕа1е.итаЕн := Весе.Взайе — Весе.ЦеЕе; 
РафеЕа1е.Незане := Весе.Воебом — Весе.Тор; 
РазеЕа1е .\1$151е := 6хще; 
ех1{; | 


ета; 


1Е АСо1=4 Епеп 
Беа1п ° 
СрескКВох1 .СарЕ1оп:=56г1п9Сг1а1.Се11$[АСо]1, АКБом]; 


1Е СВескВох1 .СарЕ1оп='АА1а6' Ереп 
СпескВох1 .СВескеа: =Егае 


е1зе 
СПесКкВох1 .СВескКеа: =ЁЕа15е; 


СрескВох1 .ШеЁЕ := Весе.ГеЁЕ + 5%х1п9Сг191.ГеЁЕ+2; 


Обзор дополнительных компонентов Беры | | 237 


СпескВох1.Тор := Весе.Тор + 56г1пабг1&а1.6ор+2;. 
СВесКВох1.Маен := Весе.клане — Весе.ЪеЕс; 
СБескКВох1 .НелзаНе := Весе.Восбом — Весе.Тор; 
СвесКВох1 .\1$1Ъ1е := $хие; | 
ех1{; | 
епа; 
епа; 
епа; 


Ну и, конечно же, необходимо "поймать" событие опс11ск компонента 
СпескВох1, чтобы записать измененное значение обратно в сетку. В этом обработ- 
чике напишите код листинга 11.5. 


ргоседиге ТМапЕоги. Снесквох1С11сК (бепдег: ТОрзес®); 
Ъед1п 

1Е СВесКкВох1.Свескед=Егае Епеп 

СрескКВох1 .СарЕ1оп:='Женат' 

е1зе 


СрескКВох]1 .СарЕ1оп:='Холост' 


ЗЕг1п9Сг1а1 .Се11$ [56:1п9б:1а1.Со1, 5Ех1паСг191.Вом] : =СВескВох1 .Саре1оп; 


епа; 


ПРИМЕЧАНИЕ. На компакт-диске, прилагаемом к книге, в папке \Примеры\Глава 11\Спа 
вы можете увидеть пример этой программы. 


11.5. Компоненты Птаде, Тбваре, ТВеуе! 


Сейчас мы познакомимся с тремя компонентами, которые чаще всего использу- 
ются для придания приложениям красочной формы. Но это не значит, что вырази- 
тельность — их основное назначение, просто на данном этапе будем рассматривать 
именно это их свойство. Чуть позже мы создадим что-нибудь более полезное из 
этих компонентов, но пока остановимся на модификации пользовательского ин- 
терфейса. | 

Создайте новый проект и установите на форму компонент ттпаде. Теперь щелк- 
ните дважды левой кнопкой мыши по свойству рР1сеиге, и перед вами появится уже 
знакомое окно загрузки изображения (рис. 11.12). 

Теперь если вы хотите, чтобы компонент автоматически принимал размеры за- 
груженной картинки, то установите свойство Ашго$12е В гие. Если требуется, 
чтобы картинка была по центру компонента, нужно выставить свойство сепеег в 
Егие (При ЭТОМ Ацхго512е надо выставить в Еа1зе). Ну а если надо растянуть кар- 
тинку по всей поверхности компонента, свойство зехессн надо установить в Егие 
(при ЭТОМ Ацго$1=е надо установить в Еа1зе). 
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Рис. 11.12. Окно загрузки изображения Рис. 11.13. Различные виды компонента 
ТбВаре 


Если картинка должна быть прозрачной, можно выставить свойство Тхапзрахепе 
В Егие. Хотя такая прозрачность. и не очень эффективна при использовании растро- 
вых картинок, но в случае особой необходимости это можно сделать. Если вы бу- 
дете использовать векторную графику, такую как формат УМЕ, то прозрачность 
будет идеальной (рис. 11.13). 

Остальные свойства Тттаде вам должны быть уже известны, поэтому на них мы 
останавливаться не будем. Когда мы будем рассматривать графику, то еще вернем- 
ся к картинкам. Сейчас необходимо еще знать, что Ттпаде может отображать 
большое количество форматов файлов, но по умолчанию поддерживается только 
ВМР и УМЕ. Если вы хотите, чтобы компонент мог загружать еще и картинки, то 
в разделе чзез вашего модуля должен быть подключен модуль )ред. В нем реали- 
зованы функции работы с алгоритмом /]РЕС. 

В стандартной поставке Ре]р! больше не поддерживает другие форматы фай- 
лов, но в Интернете можно найти пакеты для всех основных графических форма- 
тов. Нужно только установить их и подключить к модулю. 

Теперь разберемся с компонентом т$варе. Установите один такой экземпляр на 
форму и посмотрите на его свойства. Самое интересное здесь — свойство паре, кото- 
рое отвечает за тип фигуры, отображаемой на компоненте. На рис. 11.13 показана фор- 
ма программы, на которой расположено шесть разных видов компонента т5ьаре. Спра- 
ва от компонента подписано, какое именно значение установлено в свойстве паре. 

‚Помимо этого, за отображение отвечают еще и свойства вхизЪ (закраска) и Реп 
(карандаш). Свойство вхазь отвечает за цвет и стиль закраски нашей фигуры, 
а СВОЙСТВО Реп говорит о стиле и цвете обрамления. 

Если дважды щелкнуть мышью по свойству вхоазЪ, то появится список из двух 

дополнительных свойств: 


С со1ог — цвет заливки; 
С зеу1е — способ заливки. 
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Рис. 11.14. Различные способы заливки 


На рис. 11.14 показаны различные типы заливки, которые вы можете устано- 
вить, и результат их работы. Попробуйте сами поработать с этими параметрами, 
устанавливая различные значения цветов и способов заливки. | 

Когда вы будете изменять значения, то заметите, что изменяется только внут- 
ренняя окраска компонента, а обрамление будет оставаться в виде тонкой полоски 
черного цвета. За обрамление отвечает свойство Реп. Если щелкнуть по нему два 
раза, то перед вами откроется список из четырех дополнительных свойств: 


О со1ок — цвет заливки; 

О моде — режим отображения; 
О зеу1е —— стиль линии; 

С и:аеь — толщина линии. 


Здесь также попробуйте самостоятельно выставлять разные значения, чтобы 
увидеть результат их работы. На рис. 11.15 вы можете увидеть различные стили 
карандаша. 


([ ]рз@еаг 
= 1 разн 
Е - 1 рзБазиб о 

| - - раз. бо@Ю о! 
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Рис. 11.15. Стили карандаша Рис. 11.16. Разные стили обрамлений 


Ну и, наконец, компонент твеуе1, который предназначен для простого обведе- 
ния чего-либо рамкой. На первый взгляд этот компонент похож на тРапе1, НО ЭТО 
только на первый взгляд, потому что на ТВеуе1 нельзя установить компоненты. Это 
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практически прозрачная рамочка. Если вы поставите ее поверх ‘строки ввода, то эта. 
строка будет видна сквозь ТВеу\уе1, а вот доступ к ней получить будет невозможно. 

Самыми интересными свойствами у этого компонента являются 5варе и 5ку1е. 
В разных сочетаниях значений в них можно добиться совершенно невероятных 
эффектов для рамок. На рис. 11.16 сделана попытка воспроизвести некоторые воз- 
_ можные варианты, но только некоторые. Узнать о рамке больше вы сможете, толь- 
ко если самостоятельно попробуете выставить какие-нибудь значения. 

На рис. 11.13 было показано окно моей программы, в которой я приводил вам 
примеры компонентов из этой части. Как видите, окошко выглядит очень даже 
прилично за счет того, что по всей его площади растянут компонент твВеуе1, кото- 
рый придает вид трехмерности. Я вообще люблю устанавливать на форму компо- 
нент ТВе\уе1 и растягивать его на всю форму (устанавливать свойство А119п 
В а1С11епЕ). Это украшает окно и абсолютно не влияет на производительность или 
загруженность памяти. 


ПРИМЕЧАНИЕ. На компакт-диске, прилагаемом к книге, в папке \Примеры\Глава 11\ 
Ттаде ТЗПаре ТВеуе!| вы можете увидеть пример этой программы. 


11.6. Панель с полосами прокрутки (Т$сгоПВох) 


Теперь я хочу рассказать про компонент т$сго11 Вох. В заголовке этой главы он 
назван как панель с полосами прокрутки. Это не совсем точный перевод названия 
компонента, но именно такое название отражает суть выполняемых компонентом 
действий. 


Рис. 11.17. Окно формы 


Создайте новое приложение. Теперь установите компонент т5сго11]Вох на фор- 
му. Поместите на компонент $сго11Вох картинку (ттваде). Теперь загрузите 
В Тмаде1 изображение большого размера, чтобы оно не помещалось в пределы эк- 
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рана, и установите свойство АиЕо$12е В сгие. В этот момент компонент тпаде1 
должен увеличиться до реальных размеров картинки. Если он не будет помещаться 
в пределы $сго11Вох, ТО Появятся полосы прокрутки, как это показано на 
рис. 11.17, и вы сможете прокрутить изображение. 


ПРИМЕЧАНИЕ. На компакт-диске, прилагаемом к книге, в папке \ Примеры\г лава 11\ 
ЭсгойВох вы можете увидеть пример этой программы. 


11.7. Маркированный список (ТСЛескЕ/$1Вох) 


ТСВескг1$ЕВох очень похож на простой Ть1зЕВох, только у каждого элемента 
списка есть еще и квадратик для выделения, как у ТСвесквох. На рис. 11.18 показан 
вариант организации компонента тсъескр1 Вох. 

Давайте создадим пример, который будет работать. с этим компонентом. Соз- 
дайте новое приложение в Ое]рШ и поместите на него компонент тсвескг1 Вох. 
Теперь дважды щелкните левой кнопкой мыши по свойству теешз, и перед вами 
появится редактор элементов списка. Это простейший текстовый редактор, в кото- 
ром каждая строка отображает отдельный элемент в компоненте тсвескь1зЕВох. 
Введите там несколько строк на свой выбор. 

У тснескГ1 зЕВох есть еще одно интересное свойство — со1итпз, т. е. количест- 
во колонок в списке. Если вы укажете здесь число, большее 1, и ваш список не бу- 
дет помещаться в одну колонку, то элементы будут разбиты на указанное количе- 
ство колонок (рис. 11.19). ` 


отг Принер р работы с "тСвескизвоя 1х: 


Комвыютеры 
-| Программирование 


1] Программирование 
. Спорт 
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Рис. 11.19. Список, 


Рис. 11.18. Компонент ТсъескГ1зЕВох ‚ разбитый на несколько колонок 


На рис. 11.19 вы можете видеть еще и кнопку ОК. Добавьте ее на свою форму. 
По нажатии этой кнопки мы будем проверять, какие элементы выделил пользова- 
тель, и сообщать об этом. Создайте обработчик события опс11ск для кнопки и на- 
пишите там следующий код (листинг 11.6). 


.ркосебаге ТРотгти1 .ОКВиееопС11ск (бепдекг: ТОБ)есе); 
уах 


1:Тибедег; 
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ЗЕг: бехлпа; 
Беач1п 
5Е’:='Вы выбрали '; 
Рог 1:=0 со СПескЬ1$ЕВох1 .Тбем$ .СоцпЕ-1 ао // запуск цикла 
1Е СВескт15ЕВох1.СНескея[1] ЕПеп //Если 1-й элемент выделен 


Бег: =56:+Среск15ЕВох1 .ТЕемз [1]+' '; //Добавить в 5% текст элемента 


// Вывести на экран результат 
Арр]11саЕ1оп .МеззадеВох (РСВаг (5х), 'Внимание!!!'); 


епа; 


Теперь можете запустить приложение и посмотреть на результат работы. Выде- 
лите несколько элементов и нажмите кнопку ОК. Вы должны увидеть окно, в ко- 
тором перечислены все выделенные элементы. 

Теперь разберемся, что же происходит по нажатии заветной кнопки ОК. Снача- 
ла объявляются две переменные — целое число 1 и строка 5ех. В первой строке 
кода мы присваиваем строке зег текст "Вы выбрали". После этого запускается 
цикл, в котором проверяются все элементы. Если 1-й элемент выделен, то добавля- 
ем текст строки к переменной $ег. 

Чтобы узнать, выделена ли какая-то строка, надо проверить свойство Спескеа 
компонента свескт1ЕВох1. В квадратных скобках надо указать номер интересующей 
строки. Например, если вы хотите проверить нулевую строку, то надо написать: 

1Е СрескЬ1$6Вох1.СВескеяа[0] ЕТеп 


В нашем примере перебираются все элементы, поэтому в квадратных скоб- 
ках указан параметр 1. Текст строки можно узнать в свойстве теетз компо- 


нента Сспескт1зЕВох1. Чтобы узнать текст нулевой строки, надо написать 
СпескГ1$ЕВох1 .Теемз [0] | | 


ПРИМЕЧАНИЕ. На компакт-диске, прилагаемом к книге, в папке \Примерь\Глава 11\ 
Спеску$!Вох вы можете увидеть пример этой программы. 


11.8. Полоса разделения (Т5рИ@Нег) 


Запустите проводник УМ тдо\$ Ехрогег. Посмотрите на его главное окно, кото- 
рое разбито на две части. Слева вы можете увидеть список дисков и папок, а справа 
находятся файлы из выбранной папки. Между двумя половинами окна находится 
полоска, которую можно двигать, увеличивая или уменьшая одну из половин окна. 
Вот именно такой эффект легко создать с помощью компонента т5р11екек. 

У т5р11Е%ег не так уж и много свойств, поэтому мы не будем заострять на нем 
внимание, а просто рассмотрим пример работы с этим компонентом. 

Создайте новое приложение. Теперь установим на форму компонент панели 
(ТРапе1) и растянем его по верхнему краю формы (установите у него свойство 
А119п В а1Тор). В свойстве сарЕ1зоп напишем "Верхняя панель". Далее установим 
на форму т5р11ееег и у него тоже установим в свойстве А11ап значение а1Тор. 


Обзор дополнительных компонентов Беры 243 


Еще одну панель выровняем по левому краю. В свойстве СсарЕзоп напишите 
"Левая панель". Добавим еще один т5р11есех и тоже установим выравнивание по 
левому краю. | 

Установим еще одну панель с выравниванием по всей оставшейся площади 
формы (свойство А11ап должно быть а1С11епе). Ну а в свойстве саре1оп напишем 
"Клиентская панель". | | | 

С помощью свойств паев и 
НезапЕ можно изменять высоту и 
ширину разделителя. Только если 
компонент растянут горизонтально 
(в свойстве А11ап Находится а1Тор 
ИЛИ а1ВоЕсом), ТО ширину изменять 
бесполезно, потому что компонент 
занимает всю доступную ширину. 
А вот с помощью высоты можно 
изменить толщину разделителя. То 
же самое при растягивании компо- 
нента вертикально — имеет смысл 
изменять только из аъ. 

Если вы все сделали правильно, 
то у вас должно получиться что-то 
похожее на рис. 11.20. Здесь три па- 
нели и между ними разделители т$р11ЕЕек. Попробуйте запустить эту программу и дви- 
гать мышью разделители. Размеры панелей будут меняться автоматически, что очень 
удобно для большинства программ. И при этом мы не написали ни одной строки кода. 


7” :.; Верхняя панель | 


Рис. 11.20. Форма будущей программы 


ПРИМЕЧАНИЕ. На компакт-диске, прилагаемом к книге, в папке \Примеры\Глава 11\ЗрЖег 
вы можете увидеть пример этой программы. 


11.9. Многострочный текст (Т5лайсТех\ 


Иногда возникает необходимость создать текст в нескольких строках. Для этого 
можно установить на форму в столбик несколько компонентов траЪе1. Можно по- 
ступить лучше — использовать компонент т5ЕаЕ1сТехе. Если установить его на 
форму и отключить свойство АиЕо$1те, установив его в Еа1зе, то компонент не бу- 
дет автоматически принимать размеры введенного текста. Если введенный текст не 
вмещается, то он будет разбит на несколько строк. 

По своим свойствам Тт5каЕ1сТехЕ — полная копия компонента ттаЪе1. Разница 
только в возможности выводить многострочные поля текста. 


11.10. Редактор параметров (ТУаше/$1{ЕоПог) 


В этом разделе мы рассмотрим компонент туа1иет1зЕЕа1 ког. Это очень удоб- 
ный компонент для редактирования различных свойств. Например, с помощью это- 
го компонента можно легко создать редактор свойств наподобие того, что исполь- 
зуется в объектном инспекторе, где`вы изменяете свойства компонентов. 
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Создайте новый проект и поместите на форму один такой компонент. Рассмот- 
рим его основные свойства. 


С реЁаз1ЕСо11иимт ав — ширина колонок по умолчанию. 
С] реЁац1 ЕСо11ппНезапЕ — высота колонок’‘по умолчанию. 


- С о:1зр1ауоре1оп — опции отображения компонента. Здесь вам доступны три под- 
пункта: | 


® ЧоСошпТ1Е1ез — нужно ли показывать заголовки колонок; 
® Чо^лиЕоСо1Вез12е — могут ли колонки автоматически изменять размер; 
® доКеуСо1Е1хеа — является ли ключевая колонка фиксированной. 


С т:е1есаре+опз — имена заголовков. Щелкните дважды по этому свойству, и вы 
увидите простой текстовый редактор, в котором можете изменять имена заго- 
ловков. Давайте введем там только два заголовка: Свойство и Установленное 
значение. | 


О г:хеасо1ок — цвет фиксированной колонки. 


СО г:хеасо1з — индекс фиксированной колонки. По умолчанию стоит 0, т. е. фик- 
сированной колонки нет. Измените это значение на 1, чтобы сделать первую ко- 
лонку фиксированной. 


О кеуорЕ1оп — настройки ключевого поля. Их бесполезно менять, если вы уста- 
новили в свойстве Е1хеаСо1з какое-либо значение. Но здесь доступны следую- 
щие подпункты: | 


® КеуЕа1е — название ключа можно редактировать; 
е Кеудаа — ключи можно добавлять; 

® Кеуре1есе — ключи можно удалять; 

® кеу0п1аце — ключ должен быть уникальным. 


С] 5ег1паз — имена свойств (рис. 11.21). Этот редактор состоит из двух колонок. 
В левой колонке вы должны вводить имена ключей (свойств), а в правой — их 
значения по умолчанию. | 


Давайте введем в свойство 5Ех1паз несколько значений для нашего будущего 
примера: Фамилия, Имя, Отчество, Ник, Год рождения, Место рождения, Адрес, 
Телефон. | | | 

Больше в дизайнере пока нет ничего особенного, заслуживающего нашего вни- 
мания. На рис. 11.22 показана форма, которая должна у вас получиться. 

Списки свойств имеют одну очень удобную особенность — они могут поддер- 
живать свойства с ниспадающими списками. Это значит, что нужно указать, какое 
свойство будет иметь ниспадающий список, заполнить его значения, и после этого 
оно будет работать как свойство выравнивания любого компонента в объектном 
инспекторе. 

Теперь давайте займемся программированием. Создайте обработчик события 
для формы оп5во\. В нем напишите код, показанный в листинге 11.7. 
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|7 уаше 45: едИог 


21 Фамилия 
- | Имя 


7: Пример работы с Уаме 5 еЧКог 


— Отчество Умань мы 
к пенное 
Пг од рождения. 

. Ме рождений алии плшинаиь ищи ишемии и не ли  тишши оллнше 
Адрес | ия 
в Телефон _ п роиритижидаЕ 
| Место рождения 
Адресно 


Телефн. о 


Рис. 11.22. Форма будущей программы 


рхгоседите ТЕГоути1.Еоутабпом (бепаег: ТОБесЕ); 


Бед1п 

\Уа1леГ15$ЕЕЯ1ог1.ТЕетРгорз [6] .Еа1Е5Еу1е: =езР1сК!.15%; 

\а1 ле! 156ЕЯ16от1 .ТеетРгор$ [6].Р1скГ156е.АЯа ('Москва'); 

\Уа] лег 15ЕЕЯ1е0оу1. ТЕешРгорз [6] .Р1скГ15е.Ааа ('Питер'); 
\Уа1ае!.15ЕЕа16ог1.ТеетРгорз$ [6] .Р1сКГ.1$5е.АаЯа ( 'Ростов-на-Дону'); 


\а]ае!Г1$ЕЕЯ16ох1 .Т6етРгор$ [4] .ЕЧ41ЕМазк:='99/99/9999'; 


ева; 


У компонента \уа1ет1 зЕа1еох есть одно свойство, которое вы не видите в объектном 
инспекторе — теепргорз. В нем хранятся свойства элементов списка. Если вы хотите из- 
‚менить свойства третьего элемента, то надо написать \Уа1 ет 13 Е@916ох1.ТеЕетРгорз [2]. 
Обратите внимание, как и в большинстве компонентов, здесь элементы нумеруют- 
ся с нуля. Поэтому нужно указывать на 1 меньше необходимого. 

Среди свойств элементов есть еще одно интересное свойство — Еа1е5еу1е (стиль ре- 
дактирования). Это свойство отвечает за вид элемента. В первой строке кода мы изменяем 
стиль редактирования для шестой строки Уа1лег1зЕЕа1еог1. ТеетРгорз [6] . ЕЯ1Е5еу1е, 
присваивая ему значение езР1ск!.1з+. Это значение заставляет эту строку превратить- 
ся в ниспадающий список. После этого мы заполняем для шестого элемента значе- 
ния, которые будут находиться в списке. В этом случае надо выполнить код 
Уа]це!156ЕЯ1ЕСог1.ТесепРгорз$ [6]. РСК 56. Ааа (текст элемента). 

Еще одно интересное свойство — Ея1ЕМазк (маска ввода для элемента). В по- 
следней строке кода нашего примера мы изменяем маску для четвертого элемента. 


ПРИМЕЧАНИЕ. На компакт-диске, прилагаемом к книге, в папке \Примеры \ \Глава 11\ 
\УаменЕОйог вы можете увидеть пример этой программы. 
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11.11. Набор вкладок (ТТабСотгоГ) 


Иногда на форме надо иметь возможность показывать несколько вкладок, на 
каждой из которых будут располагаться разные компоненты. Такое очень часто 
можно увидеть в окнах настройки программ, например, в М$ У/огд. В зависимости 
от выбранной в данный момент вкладки в основном окне отображаются относя- 
щиеся к ней свойства. 

В Вары на вкладке УУт32 палитры компонентов есть два компонента, позво- 
ляющие создавать подобные элементы управления. Сейчас мы рассмотрим первый 
ИЗ НИХ — ТТаБСопего1. 

Запустите Оеры и создайте новое приложение. Разместите на форме компонент 
ТТаЪСопехо1 и растяните его на всю форму. Давайте сразу же изменим имя компо- 
нента (свойство Маше) на Оре1опзТаь. 

Теперь пора создать сами вкладки. Для этого дважды щелкните по свойству 
Таьз, и перед вами появится знакомое окно текстового редактора. Мы уже много 
раз работали с таким окном в других компонентах, поэтому оно не должно вызвать 
проблем. | 

‚ В.этом окне введем четыре строки: 


"Основные настройки"; 
"Параметры пользователя"; 
"Загрузка и восстановление"; 


Оооо 


"Настройки печати". 


После нажатия кнопки ОК на компоненте должны появиться вкладки с введен- 
ными названиями (рис. 11.23). 


_ Основные настройки | Параметры пользователя | Загрузка и восстановление | < | 


Рис. 11.23. Компонент ттаьСопЕго1 с вкладками 


Обратите внимание, что мы ввели четыре названия вкладки, а на рис. 11.23 вид- 
но только три. Четвертая вкладка не поместилась, поэтому.справа от имен автома- 
тически появились две кнопки для прокрутки названий вкладок. | 

Давайте установим свойство Ми1Е1т1пе В ехгие, что позволит создавать мно- 
гострочные заголовки вкладок. Результат этого вы можете увидеть на рис. 11.24. 


Обзор дополнительных компонентов Бер! - | 247 


Как видите, кнопки прокрутки исчезли, зато названия выстроены в две строки. Что. 
вам больше подходит — зависит от конкретного предназначения компонента. Ино- 
гда нужны многострочные вкладки, а иногда они просто мешают. Но если вкладок 
слишком много и очень много не помещается на экран, то желательно использо- 
вать многострочный вариант, потому что прокрутка может утомить пользователя. 


` Загрузка и восстановление _. . Настройки печати 
‚ Основные наст тройки р В Параметры пользователя 


Рис. 11.24. Компонент ТафСопЕго1 с установленным свойством Ми1Е1Г1пе 


Давайте еще установим свойство ноЕТгаск В Егие. Это заставит названия вкла- 
док светиться при наведении на них курсора мыши (вы это увидите, если запустите 
приложение). 

У компонента таьбопего1 есть еще одно интересное свойство — сЕу1е. Это 
свойство отвечает за стиль отображения вкладок. Здесь можно выбрать из списка 
одно из следующих значений: 

С езтаьз — пример таких вкладок можно увидеть на рис. 11.24; 
‚О езваесопз — пример таких вкладок показан на рис. 11.25; 


О езЕ1аЕВиЕкопз — пример таких вкладок показан на рис. 11.26. 


_ Основные настройки _ ВЕ Параметры пользователя `. *-- . | Основные настройки | ‚ _ Параметры пользователя 
. Загрузка и восстановление -_ | ” - Настройки печати. - | Загрузка и восстановление 1 Настройки печати 


Рис. 11.25. Вкладки в стиле езВаоЕсопз Рис. 11.26. Вкладки в стиле ЕЗЕ1аЕВаеЕопз 


В нашем примере мы не будем менять это свойство и оставим значение по 
умолчанию. | 

Здесь показаны возможные варианты только для того, чтобы. вы знали об их су- 
ществовании и могли использовать в своих приложениях. В дальнейшем мы будем 
использовать вкладки стандартного вида. 


9 Зак. 1273 
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Перед тем как создать реальное приложение, давайте рассмотрим еще три инте- 
ресных свойства — тафнезаве, Тафтпдех И ТафРоз1е1оп. 


С] табне1ъеЕ — высота кнопок вкладок. Если здесь указать 0, то будет использо- 
ваться значение по умолчанию. 


С] таьтодех — индекс выделенной в данный момент времени вкладки. Номера 
вкладок нумеруются как всегда с нуля, поэтому в нашем случае можно. выстав- 
лять значения от 0 до 3. Изменяя значение, установленное здесь, вы можете ме- 
нять выделенную вкладку. Ну а когда приложение запущено, по этому свойству 

_` можно определять, какую вкладку выбрал сейчас пользователь. 


С] таьРоз1Е1оп — позиция вкладок. Здесь можно выбрать из списка одно из сле- 
дующих значений: 


‚ ® ЕрВоЕссом — вкладки должны быть расположены снизу; 
® грьеЕе — вкладки должны быть расположены слева; 
® ЕрРЕ1аНЕ — вкладки должны быть расположены справа; 
® ЕрТор — вкладки должны быть расположены сверху. 


По умолчанию здесь установлено значение ертТор. 

Теперь попробуем создать приложение. Попробуйте установить в ‚рабочее поле 
любой из вкладок какой-нибудь компонент и запустить приложение или просто 
изменить индекс выделенной вкладки. Если вы сделаете это, то заметите одно не- 
удобство — компонент не привязывается к какой-нибудь вкладке. Когда вы выби- 
‚ раете любую вкладку, установленные внутри компоненты всегда остаются види- 
мыми. Хорошо, когда необходимо, чтобы все вкладки имели один и тот же вид, 
а если они должны отличаться? Значит, нам самим нужно прятать или показывать 
компоненты в зависимости от выбранной в данный момент вкладки. Попробуем 
написать пример, в котором рассмотрим простейший способ избавиться от этого 
недостатка. | | 

Поместите на форму четыре панели и постарайтесь их расположить рядом, при- 
мерно так, как показано на рис. 11.27. Это нужно, чтобы ни одна из панелей слу- 
чайно не попала поверх другой. Все они должны лежать на компоненте орезоптаь 
(ЭТО ТТаБСопего1). Посмотрите на окно ОБесё Тгее Меч (рис. 11.28). В нем пока- 
зана иерархия компонентов, что и на чем лежит. 

Измените у всех панелей свойство Веуе10икехг на БЬуьомегеа, это сделает панели 
более приятными на вид. И еще, у компонентов Рапе12, Рапе13 И Рапе14 установи- 
те свойство \/15$1Ъ1е в ккие. Видимой должна остаться только первая панель. 

Теперь очистите у всех свойство саре1оп и растяните на всю форму. При растя- 
гивании компонентов можно поступить несколькими способами. 

С Выбрать каждый компонент в отдельности в окне ОЩесе Тгее\Ме\ (или 
в ниспадающем списке сверху окна объектного инспектора) и установить у него 
СВОЙСТВО А11 дп В а1С11епе. 

С Выделить все панели (удерживая клавишу <ЗВШ>, щелкнуть по всем пане- 
лям левой кнопкой мыши) и потом у всех сразу выставить свойство А11дп 
Ва1С11епё. 
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2-8 ОриопзТаь 
| # Я  Рапей 


9 2 РапеЗ 


Рис. 11.27. Форма с четырьмя панелями Рис. 11.28. Иерархия компонентов 


Сейчас у нас все панели находятся точно друг под другом, и только одна из них 
будет видима. Давайте поместим на каждую из панелей надпись. Если у вас сейчас 
наверху находится не первая панель, то щелкните правой кнопкой мыши и выбери- 
те из появившегося меню пункт Сопёго! | Зепд ю ВасК. Повторяйте эти действия, 
пока наверху не окажется первая панель. Установите на эту панель надпись "Здесь 
можно располагать компоненты для основной настройки". 

После этого можете выделить следующую панель и установить на нее любые 
другие компоненты. Желательно таким образом заполнить все панели, установив 
на них хотя бы по одному компоненту, чтобы можно было увидеть, как они будут 
меняться. 

Теперь создайте обработчик события опсвапае для компонента оре1оптаь 
и в нем напишите содержимое листинга 11.8. Этот обработчик будет вызываться 
каждый раз, когда пользователь меняет вкладку. 


ргоседиге ТЕоги1.ОрЕ1оп$ТаБСВапае (бепаег: ТОБ)ес®); 


Беатп | 
Рапе11.\71$151е:=Ёа1зе; 
Рапе12.\1$151е:=Ёа15е; 
Рапе13 .\/1$151е:=ЁЕа1зе; 
Рапе14.\1$1Ъ1е:=Ёа15е; 


сазе ОрЕ1опзТар.ТаБТпаех оЕЁ 
О: Рапе11.\1$5161е:=Ехае; 
1: Рапе12.\15101е:=Егое; 
2: Рапе13.\1$151е:=6хае; 
3: Рапе14.\15151е:=Егае; 
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В самом начале мы делаем невидимыми все панели, а потом проверяем, какая 
именно вкладка выделена с помощью оператора сазе, и в зависимости от этого 
_ Делаем выделенной конкретную панель. Например, если выделена вторая вкладка 
(В ОрЕ1опзТаЪ.Таьтпаех находится [), то видимой станет Рапе12. 

Вот таким простым способом можно присваивать различным вкладкам разные 
компоненты. 


СОВЕТ. Если нужно, чтобы абсолютно все вкладки были разными, то желательно 
воспользоваться компонентом ТРадчеСопЕго1, который будет рассмотрен ниже. Ком- 
понент ТТаЪСопЕго1 удобнее, когда все или некоторые вкладки имеют схожий вид 
или когда нужно использовать не панели, а что-то экзотическое. 


ПРИМЕЧАНИЕ. На компакт-диске, прилагаемом к книге, в папке \Примерь\Глава 11\ 
ТабСотмго! вы можете увидеть пример этой программы. 


11.12. Набор страниц (ТРадеСопно! 


В предыдущем разделе мы познакомились с компонентом ттаЪСопегхо1. Он дос- 
таточно хорош, но работать с ним очень неудобно, потому что постоянно прихо- 
дится самому следить, какая сейчас выделена вкладка, и в зависимости от этого 
отображать нужные компоненты. Всех этих недостатков лишен компонент 
ТРадеСопего1, который также находится на вкладке \УУ!т32 палитры компонентов. 

Компонент трРадеСопЕго1 обладает практически всеми свойствами ттаБСопехо1 
плюс несколько дополнительных. Давайте посмотрим на него в работе. 

Создайте новое приложение и поместите на форму компонент тРадеСопегхо1.. 
В этот раз мы не станем менять его имя и оставим значение по: ‘умолчанию. 
РачеСопЕго11. Единственное, что желательно 
сделать, — растянуть его на всю форму. 


Щелкните правой кнопкой мыши по компо- 
ненту, и перед вами откроется меню управления Габрееи | 
компонентом. В верхней части меню находятся _ Рорещех ре 
4 пункта, с помощью которых можно управлять Гбадиай р Е 
страницами: _ Сарвоп г `Таббнеёй 


ры | Поеболзивны — 
И. Тоевие: 


О №т\ Раре — создать новую страницу (вкладку); 


ыы 
у 


С № хе Раге — перейти на следующую страни- раме ре = а 
паШед. ое о 

. >. Кехет 44. пр кои - =" 

цу (вкладку); | Ром = 


О Ргемюи$ Раге — перейти на предыдущую 


_Неюри. ттт 19. 
страницу (вкладку); хе 


„НарСощехе._ и: А 
‚ НерКерио9 Г Е: = 


Г 
|. 
| 


О ВРеее Разе — удалить выделенную страницу 
(вкладку). | 
Создайте новую страницу. Теперь посмотрите 
в объектный инспектор (рис. 11.29). Обратите 
внимание, что сверху в ниспадающем списке 
сейчас показывается выделенный компонент 
Таьзнеек1 типа ТТаъзнеее — это созданная нами Рис. 11.29. Свойства страницы 


ыы 
; : ` 5. : : 


[АГ Зпоит ры а 7 ПТИ 
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страница. Получается, что когда мы создаем новую страницу, то мы как бы создаем 
отдельный компонент внутри компонента ТРадесопего1. Именно поэтому 
ТРадеСопеко1 лишен недостатков компонента ттаЪСопеко1. Каждая его страни- 
ца — это отдельный объект внутри целого компонента. Если в прошлый раз нам 
самим приходилось делать что-то подобное с помощью панелей, то тут это делает- 
ся автоматически. | 

Я надеюсь, что вы заметили, что сам компонент происходит от тРадеСопЕхо1, . 
а вот страницы происходят от ттаЪ5ъеек. | 

У каждой страницы есть свойство СарЕ1оп, в котором можно написать заголовок 
страницы. Помимо этого, есть свойство твадетпаех, в котором можно выбирать 
картинку, как это делалось при создании меню. В этом случае нужно установить на 
форму компонент Ттвадег1 зе и загрузить в него картинки. После этого достаточно 
выбрать компонент РадеСопЕхо1 и указать в его свойстве ттачез компонент 
Ттадег1 зе. Теперь в спискё тмадетпаех у страниц появятся картинки, и вы сможете 
их выбирать. Попробуйте весь процесс подключения картинок проделать само- 
стоятельно. | 

Если необходимо сделать какую-то страницу невидимой, то можете не пытаться 
изменить свойство \/151Ъ1е, это не поможет. За видимость страниц ттаъзьеее отве- 
чает свойство ТаЪ\У1з151е. 

Давайте создадим четыре вкладки со следующими именами: 
О Основные настройки; 
О Параметры пользователя; 
О Загрузка и восстановление; 
О Настройки печати. 


На рис. 11.30 показана форма 
нашей будущей программы. По- 
пробуйте создать нечто подобное. 
Практически все, что необходимо | 
для этого знать, мы уже проходи- | С Экоюмю = 
ли. В данном примере на каждую |’ Г хр о 
вкладку установлено несколько | С Наилучшее качество 
компонентов, чтобы можно было [с 
видеть, как меняются страницы. 
Они ничего не делают, а.служат 


просто оформлением для большей Рис. 11.30. Форма будущей программы 
наглядности. - | | 


| '[: Пример работы с ТРадеСоп! о! 
‚ _. @ Основные настройки: й _ $2 Параметры пользователя | 
` _ 3 Загрузка и восстановление. | Настройки печати — 


ПРИМЕЧАНИЕ. На компакт-диске, прилагаемом к книге, в папке \Примеры\Глава 11\ 
РадеСопиго! вы можете увидеть пример этой программы. 


Теперь рассмотрим поближе свойства и методы компонента тРадчеСсопего1. 


(С Асе1уеРаде — это свойство имеет тип Ттаь5Неек и указывает на активную 
в данный момент страницу. Вы можете управлять этой страницей, например, 
можно изменить ее заголовок: 


РачеСопЕго11.АсЕ1\уеРаде.СарЕ1оп:='новый заголовок'. 
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АСЕ1уеРадетпаех — индекс выделенной в данный момент страницы. 

РадеСоциЕ — в этом свойстве хранится количество страниц. 

Радез — в этом массиве хранятся все страницы. Например, чтобы изменить за- 

головок нулевой, можно написать следующий код: 

РачеСопктго11.Разез[0].СарЕ1оп:='новый заголовок'. 

О ноеТкаск — если этот параметр равен егое, то заголовки страниц будут подсве- 
чиваться при наведении на них курсора мыши. | 

С мале1ь1пе — заголовки могут выстраиваться в несколько строк, если названия 
не умещаются в одну строку. 

О ми1Е15е1есЕ — разрешить выделение нескольких страниц сразу. Это свойство 
может быть истиной, только если в свойстве 5ку1е указано езР1аЕсВиЕКоп$ ИЛИ 
ЕзВиЕсопз. Честно говоря, внешний вид и результат не очень удобен и эстети- 
чен, и, на мой взгляд, лучше воздержаться от множественного выбора. 

С $Еу1е — стиль заголовков страниц. Здесь можно указать одно из значений: 
® ГзТарз — стандартный вид; 
® Е-Виссоп$ — В виде кнопок; 
® ЕЗР1асВиекоп$ — В виде плавающих кнопок. 

С] таьроз1Е1оп — позиция вкладок. Здесь может быть одно из значений: ертор, 


ЕрьеЕк, ерА19йе, ерВоееом, что соответствует верхней, левой, правой и нижней 
ПОЗИЦИИ. 


О ТаБНе1апЕ — высота вкладок. Вы можете указать определенное значение высо- 
ты или 0, что будет соответствовать значению по умолчанию. 


С табизаен — ширина вкладок. Если здесь указано 0, то ширина будет минималь- 
но необходимой для отображения заголовка. 


Это основные свойства, которые могут вам понадобиться. 

Если посмотреть на класс страниц ттаЪ5бпеее, то он очень. похож на панель 
ТРапе1, ТОЛЬКО имеет свойства рРазетпаех (индекс страницы) И Тмадетпаех (индекс 
картинки). | | 


Ооо 


11.13. Набор картинок (Т1таде!!$% 


Наборы картинок используются для удобного хранения изображений. Мы уже 
не раз использовали такие наборы (ттнадеь1з®) в примерах. Здесь мы рассмотрим 
только некоторые особенности их применения, которые могут понадобиться при 
разработке приложений. Никакие примеры в этом разделе приводиться не будут, 
потому что мы уже использовали основные функции. Теперь только рассмотрим 
небольшие пояснения. 

В свойствах незане и изаен находится ширина и высота хранящихся картинок. 
Когда вы добавляете новую, то она обязательно приводится к указанным размерам. 

Вы можете программно доставать любую картинку из массива с помощью ме- 
тода сееВ1 етар. У этого метода есть два параметра: 


С индекс картинки, которую надо получить; 
О ‘объект типа тв: етар, куда запишется результирующая картинка. 
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Например, чтобы получить четвертую картинку из массива, нужно написать так: 
ах | | | 
Ъ нпар:ТВ тар; 
Беа1п 
Тпастет1зЕ1 .Сеев1 тар (3, 1 мар); 
епа; 


ВНИМАНИЕ. Обратите внимание, что для выборки четвертой картинки надо указать 
цифру 3, потому что картинки, как и большинство массивов, нумеруются начиная с 0. 


11.14. Ползунки (ТТгаскВай 


Ползунки (так их ласково называют) тткаскВах чаще всего используются, когда 


надо дать пользователю выбрать какое-то значение из определенного диапазона. 
Например, вы, наверное, не раз пользовались архиваторами, так вот там степень 
сжатия устанавливается таким ползунком. Хотите еще пример? Вспомните, как вы- 
глядит регулятор громкости звука в любой из программ. Чаще всего это опять же 
будут ползунки. Просто они выглядят по-разному, но принцип действия одинаков. 


О 


ое 


ое 699 


Простейший ползунок выглядит, как показано на рис. 11.31. 

У ползунка есть ряд свойств. Рассмотрим их. | 

ггеацепсу — этот параметр показывает, как часто надо рисовать риски значе- 
ний. Допустим, что у вас ползунок может принимать значения от 0 до 10. Если 
указать в этом свойстве 2, то будут нарисованы только 5 рисок (рисуется каждая 
вторая риска), если указать 3, то будет рисоваться каждая третья риска. 

Мах — максимальное значение ползунка. 

М1п — минимальное значение ползунка. 

Ог1епЕаЕ1оп — вид ползунка. В этом свойстве выбор значений производится 
с помощью ниспадающего списка, в котором можно выбрать одно из двух: 

® сгНог12опеа1 — ползунок горизонтальный; 

® су\УегЕ1са1 — ползунок вертикальный. 

Ро$1Е1оп — Текущая позиция ползунка. 

5е15кагЕ — в ползунке может быть выделено определенное число значений, 
и это свойство указывает на начало выделения. 

5е1Епа — конец выделения. | 

511Яех/15151е — должен ли быть виден бегунок. | - 

Т1сКМахкз — указание, где рисовать риски. Здесь доступны следующие значения: 
® спВоскошв1аНе — снизу; 

® сивоЕп — снизу и сверху; 

е® ситТорцеЕе — сверху. 

Т1ск5еу1е — стиль рисок. Здесь доступны следующие значения: 

® ЕЗАЦЕО — риски рисуются автоматически; 

® Е-Мапиа1 — рисуется только начальная и конечная риска; 

® ЕзМопе — риски вообще не рисуются. 
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Попробуйте сами изменять эти свойства, 
и вы увидите результат их действия. Теперь 
мы готовы написать простенький пример. 
Для этого надо создать три ползунка разной 
формы и установить на форму три компо- 
нента ТГафе1 с именами гГаье11, Гаре12 
И ГаЪе13 (рис. 11.31). 

Теперь необходимо создать обработчик 
события ОпСсвапае для первого ползунка и 
написать там следующий код: 


ргоседиге ТЕГоги1 .ТкаскВахг1Срапае 
(Зепаег: ТОБ]есе); 
ъес1п | Рис. 11.31. Форма будущей программы 


‘т 


Тафе11 .Саре1оп: =ТиеТобЕх 
(ТхеаскКВах1 .Роз1е1оп); 


ета; 


Здесь преобразуется текущая позиция ползунка (тгаскВаг1.Роз1Е1оп) в строку 
(потому что позиция имеет тип целого числа) с помощью функции тпЕТозег. Ре- 
зультат запоминается в компонент гаЪе11. Таким образом, после изменения пози- 
ции ползунка мы сразу отображаем текущую позицию. 

Подобный код написан и для остальных ползунков. Попробуйте написать его 
сами или посмотрите его в исходном коде. | 


ПРИМЕЧАНИЕ. На компакт-диске, прилагаемом к книге, в папке \Примеры\Глава 11\. 
ТгаскВаг вы можете увидеть пример этой программы. 


11.15. Индикация процесса (ТРгодге$$Ва!) 


Компонент ТРгоагеззВах (индикатор состояния процесса) нашел довольно ши- 
рокое применение в современных приложениях. Вспомните любое окно копирова- 
ния файлов или любых других данных. Практически в любом таком окне есть бе- 
гунок, который показывает, сколько процентов сейчас выполнено. Такой бегунок 
выполнен на основе компонента тРходгеззВах или ему подобных. 

У этого компонента есть три необходимых для работы свойства: 

О мах — максимальное значение (по умолчанию = 100); 
С м.п — минимальное значение (по умолчанию = 0); 
О Роз1Е1оп — ПОЗИЦИЯ. | 

Давайте рассмотрим пару примеров. Допустим, что вам нужно вычислить в цик- 
ле 100 чисел. В этом случае очень удобно поставить на. форму компонент 
ТРгодгеззВаг и отображать в нем текущее вычисляемое значение. Давайте рас- 
смотрим общий пример такого случая на реальном примере. 


Поместите на форму одну кнопку и компонент тРгодгеззВак. Теперь для собы- 
тия, связанного с нажатием кнопки, напишите содержимое листинга 11.9. 
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ргоседаке ТЕогт1 .ВиЕЕоп1С11ск (5еп@ег: ТОЪзес+); 


уах 
1:Тибедег; 

ред1п 

‚® Еог 1:=0 Со 20 ао 
| Беа1п 


//Здесь можно делать какой-то расчет 


//После расчета отображаем текущее состояние 
РгодгеззВак1 .Роз1Е1оп:=РгодгеззВак1 .Роз1100+5; 
З1еер (100); //Делаем задержку в 100 миллисекунх 
епа; 
Ргоагез$Вау1.Ро5$1610п:=0; 


епа; 


В данном случае запускается цикл от 0 до 20. На каждом этапе цикла позиция 
вгочгеззВаг увеличивается на 5 и на двадцатом шаге выполнения цикла будет рав- 
на своему максимальному значению — 100. В цикле также устанавливается за- 
держка на 100 миллисекунд, чтобы наша полоска не проскочила слишком быстро, 
и вы хотя бы увидели иллюзию расчета. В реальных примерах задержка не будет 
нужна, ведь если расчет выполняется так быстро, что пользователь даже не увидит 
движение ползунка, то нет смысла создавать рРкодхеззВах. 

Приведенный пример не совсем универсальный, потому что требует, чтобы мы 
заранее знали приращение пяти единиц на каждом шаге. В противном случае есть 
два варианта решения. | | 


О Изменить свойство Мах компонента РгодгеззВаг на 20 и на каждом шаге при- 
ращивать только единицу. Это очень удобный способ, потому что позиция 
`РкодгеззВаг будет изменяться от 0 до 20. Цикл тоже действует в этом диапазо- 
не, так что пример может упроститьбя и выглядеть так, как показано в листин- 
ге 11.10. 


ргосеаиге ТЕРогт1 .Виееоп1С11сК (бепдег: ТОБ)дес®); 


уаг 
1:Тибеаег; 

Беа1п 
Бог 1:=0 Ко 20 ао 
Беа1п 


//Здесь можно делать какой-то расчет 


//После расчета отображаем текущее состояние 
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Рходгез$Вау1 .Ро$з16100:=1; 
51еер (100); //Делаю задержку в 100 миллисекунд 
епа; | 
РгодгеззВахг1.Ро$161о0оп:=0; 
епа; 

В данном случае нам не надо делать приращение для РгодгеззВаг, а доста- 
точно сразу присваивать в свойство позиции значение 1, потому что значение 
позиции и значение 1 изменяются в одном диапазоне от 0 до 20. 

С Второй способ заключается в расчете относительного положения состояния 
РгодгеззВах. В этом случае ПОЗИЦИЯ РгодтеззВаг должна изменяться от 0 до 100 
и нужно воспринимать эти значения как проценты. После этого рассчитывать 
процент выполнения на каждом шаге цикла. Не пугайтесь, этот расчет очень прост 
и не затруднителен для машины. Иногда такой способ удобнее (листинг 11.11). 


НЫ 
ргосеадиге ТРог1 .ВиеЕоп1С11сК (5епдег: ТОБ]ес®); 
уах | | | 
1:Тпседег; 

Беа1п 
Бог 1:=0 Со 20 ао 
Бед1п 


//Здесь можно делать какой-то расчет 


//После расчета отображаем текущее состояние 
‚ Ргодхез5Ваг1.Роз1Е1оп:=гоипа (1/20*100); 
51еер (100); //Делаем задержку в 100 миллисекунд 
еп; | 
РгодгеззВаг1 .Ро$1Е1о0п:=0; 


ера; 
и 


В этом примере позиция рассчитывается по формуле преобразования чисел 
в проценты, т.е. текущее значение делится на максимальное и умножается 
на 100 (в нашем случае 20/ и умножить на 100). Результат этих вычислений 
нужно округлить, потому что среди операций расчета было деление, значит, 
общий результат будет в любом случае восприниматься как дробное число, да- 
же если результат явно должен быть целым. | 

В последнем случае есть небольшая погрешность из-за операций деления 
и округления, но в реальных условиях заметить эту погрешность невозможно, 
потому что она равна менее половины процента. Все равно при выводе графики 
всегда бывают погрешности из-за масштабирования. 


ПРИМЕЧАНИЕ. На компакт-диске, прилагаемом к книге, в папке \Примеры\Глава 11\ 
РгодгеззВаг вы можете увидеть пример этой программы. 
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11.16. Простейшая анимация (ТАттаЕ) 


Очень часто в программах надо создавать какую-нибудь анимацию, чтобы поль- 
зователь не скучал, пока проходят какие-нибудь долгие расчеты. Анимация позво- 
ляет показать пользователю, что компьютер еще не завис и работает. Например, 
когда программа копирует большой файл, то желательно вывести какой-нибудь’ 
мультик, отображающий копирование. В Ое[р№Ш создание такой анимации — самое 
простое дело. | 

Компонент тАп1таеке умеет выводить на экран указанную в свойстве Е11еМаще 
анимацию. Дважды щелкните по этому свойству, и перед вами откроется окно от- 
крытия АУ]-файла. АУ[ — это стандартный формат видеофайлов в \/т4о\5$. Толь- 
ко не надо думать, что любой такой файл сможет быть проигран на любой машине 
только из-за того, что он стандартный. 

На самом дёле АУТ — это очень сложный формат, потому что в нем может быть 
сформировано видео любого типа. Формат АУГ — это только оболочка, а содер- 
жимое может храниться в любом виде. Например, кадры видеофайла могут хра- 
ниться без сжатия, с простым сжатием — ВГЕ или со сложным сжатием — 
МРЕС4. Для воспроизведения файла, хранящего данные в нестандартном виде, ис- 
пользуются специальные программы — кодеки, которые должны быть установле- 
ны в системе. Таким образом, если вы хотите быть уверены в том, что файл вос- 
произведется на любой машине, можете поступать следующими способами: 
°С использовать не кодированное хранение данных или стандартное У тдо\5- 

кодирование. В этом случае файлы будут достаточно большими, зато воспроиз- 

ведутся на любой машине; 

СО) использовать кодек, поддерживаемый какой-нибудь версией МедаР1ауег, а по- 
том только указать, что для нормальной работы программы нужно иметь уста- 
новленный Ме аР1ауег определенной версии или выше; 

С вместе с программой поставлять и кодек. В’этом случае нужно копировать на 
машину клиента не только свою программу, но и файлы кодека. Кодеки надо не 
только скопировать, но и установить в системе, чтобы ОС потом смогла их най- 
ти при попытке воспроизведения вашего файла. 

Но не все так страшно. Для стандартных операций уже предусмотрены стан- 
дартные видеоролики. Их список можно найти в свойстве сопштопаут. Все эти роли- 
ки уже установлены в \/1190\5, и их не надо копировать на другую машину вместе 
с программой. В этом случае можно быть уверенным, что они воспроизведутся где 
угодно. Вот список доступных роликов: 
а\1СоруЕ11е — ролик копирования файла; 
а\1СоруЕ11ез — ролик копирования нескольких файлов; 
а\1Ре1еЕеР11е — ролик удаления файла; | 
а\у1ЕпреуКесус1е — ролик очистки корзины; 
ау1Р1паСопрабехг — ролик поиска компьютера, 
а\1Е1п9Е11е — ролик поиска файла; 


ооооооо 


а\1Е1пЯРо1Аег — ролик поиска папки; 
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О ау:Весус1еЕг11е — отправка файла 
в корзину; 

О ау:Мопе —`не использовать стандарт- 
ных роликов. 


Как только вы выбрали АУ]-файл Рис. 11.32. Пример воспроизведения 
в свойстве Е11еМате или указали стан- ролика копирования файлов 
дартный ролик, можно установить свой- 
СТВО АСЕ1 уе В ские и видео сразу же нач- 
нет воспроизводиться в окне (рис. 11.32). 


11.17. Ниспадающий список выбора даты 
(ТРаеГ/теР!ске!) _ 


На первый взгляд это простейший ниспадающий список (ТСопЪоВох), но на са- 
мом деле, вместо ниспадающего списка тут выпадает календарь. Получается очень 
удобная строка ввода с ниспадающим списком в виде календаря. На рис. 11.33 вы 
можете увидеть список выбора даты в действии. 

У этого компонента, как уже было отмечено, НН 
большинство свойств похожи на свойства ком- :[04.06.2002 | | 
понента тсопьовох, но есть и свои отличия. Рас- нь 2002г 
смотрим их. 


О расе — это свойство указывает на выбран- 
ную дату. 

С] расегогиак — формат даты. Здесь возможны 
только два значения: | 


_ Сегодня: 04.06.2002 


® ЧЕЗНОГЕ — короткий формат; 
® ЗЕГопа — длинный формат. | Рис. 11.33. Ниспадающий 
список выбора даты в действии 

О] махраее — максимальная дата. 


О м:1праеке — минимальная дата. 


11.18. Календарь (ТМогАСа!епаа) 


Предыдущий компонент позволяет выбирать в виде ниспадающего списка дату. 
А что если вам нужно просто показать календарь? Вот именно для этого и сущест- 
вует ТМопЕВСа1епдахг. Он обладает следующими свойствами: 


Е1хзЕРауоЕМеек — день недели, указываемый в качестве первого; 
Расе — это свойство указывает на выбранную дату; 

Махраке — максимальная дата; | | 

М1праЕе — минимальная дата: 

Ми1Е13е1есе — есть ли возможность выбирать диапазон чисел месяца; 


ообооооо 


сво\Тодау — показывать текущую дату; 


Обзор дополнительных компонентов Берн! | | 259 


О звомтодауСс1хс1е — показывать круг текущей даты (по щелчку в область этого 
круга календарь перескакивает на текущую дату); 


С] иеекКМипюегз — показывать номера недель. 


Пример здесь мы не будем рассматривать, потому что он слишком прост, а ка- 
лендарь еще будет часто использоваться в примерах, которые рассматриваются по. 
ходу книги. | 


11.19. Дерево элементов (ТТгее\УГеи/ 


Сейчас нам предстоит познакомиться с достаточно сложным, но мощным ком- 
понентом — дерево элементов (ткее\У1е\м). Любая более-менее большая программа 
обязательно использует этот компонент, потому что он очень удобен для отобра- 
жения ‘древовидных данных. 

Давайте сразу напишем пример и познакомимся с деревом на практике. Компо- 
нент Тгее\1ем Достаточно сложный и с. ним нужно знакомиться на реальном при- 
мере, чтобы увидеть все прелести работы с ним. | 

Создайте новый проект и поместите на него два компонента: Тхгее\У1ем 
И Тпаде!г1 зе. В список картинок Тпадег1зЕ надо поместить пару любых изображе- 
ний, потом они пригодятся. А пока добавьте еще три кнопки (ТВаекоп): 


ОП Добавить (в свойстве Маме укажите даавоекоп); 

О Добавить элемент (в свойстве мае укажите Ааась11авоекоп); 
О Удалить (в свойстве маме укажите ре1ВиЕкоп); 

С Изменить заголовок (в свойстве Маше укажите Еа1 ЕВиесоп). 


В результате у вас должна быть форма приблизительно такого вида, как показа- 
но на рис. 11.34. 

Теперь нужно указать у нашего дерева в свойстве Тначез установленный набор 
картинок. После этого можно переходить к программированию. 

По нажатии кнопки Добавить мы должны добавлять в дерево новый элемент. 
Для этого будем использовать код, представленный в листинге 11.12. 


ргоседихе ТТкее\1емРоги. АааЯВиЕ 6 опС11сК (беп4ек: ТОБЗесЕ); 
уаг 

Саре1опбег: ЗЕг1па; 

Мем/Моае : ТТгееМоае; 
Беа1п 

СарЕ1оп5Ег : = 


Е поЕ ТприЕОчцегу('Ввод имени', 'Введите заголовок элемента',СарЕ1оп5$Ехг) ЕНеп ех1е; 


Мем/Моае : =Тгее\1е\м1 .Теетз .АЯа (Тгее\1ем1 .бе1есбеЯ, СарЕ1опбеЕг); 
1Е МемМоае .Рагепе<>п11 ЕВеп 
` Мем\оае . ТпачеТпаех: =1; 


епа; 
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Здесь мы объявили две переменные: 
С) саре1оп5Ех — типа строка $ех1па; 
С] меммоае — типа ТТгееМоае (Тип ТТкееМоде — это тип отдельного элемента дерева). 

В первой строке кода мы обнуляем строку сарезопзех. Эта строка в будущем 
. будет использоваться для хранения имени нового элемента а дерева. 

Вторая строка имеет следующий код: 


1Ё поЕ ТприеОчегу('Ввод имени', 'Введите заголовок элемента', Саре1оп5%хг) 
ЕВеп 


ех1{; 


у 


Здесь выполняется функция тприЕОцегу, которая используется для вывода на 
экран окна ввода. У этой функции есть три параметра. 


С) Заголовок окна ввода. 
0 Текст-пояснение, который подсказывает пользователю, что ему надо вводить. 


О Строковая переменная, в которой мы передаем значение по умолчанию и полу- 
чаем результат ввода. Если перед вызовом записать в эту переменную какое- 
нибудь значение, то оно будет использоваться в качестве значения по умолча- 
нию. Но после вызова этой функции этот параметр всегда хранит реально вве- 
денное пользователем значение. 


На рис. 11.35 вы можете увидеть это окно ввода. 


7. Пример работы с Тгее\ещ 
ПЗ. О ра 


Рис. 11.34. Форма будущей программы Рис. 11.35. Окно ввода 


Если окно было закрыто не кнопкой ОК, то происходит выход из процедуры. 
Об этом говорит фрагмент кода: 
1ЁЕ поЕ ТприЕОцеку(. .) Ереп 
ех1(; 
Следующая строка кода добавляет новый элемент в наше дерево: 
МемМоае : =Тгее\/1е\м1 .Теетс.АЧА (Ткее\У1ем1 .бе1есЕеЯ, СарЕзопбег); 
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У компонента Тгее\1ем1 есть СВОЙСТВО ТЕешз, в котором хранятся все элементы 
дерева. Это свойство имеет объектный тип ТТгееМодез. Чтобы добавить туда новый 
элемент, нужно вызвать метод даа объекта теетз. Получается, что в объекте 
Тгее\1ем1 есть еще один объект — тЕетз, в котором хранятся все элементы. Мы уже 
сталкивались с такими случаями, когда внутри одного объекта был другой объект. 

У метода даа есть два параметра: 


О элемент, к которому надо добавить новый (здесь мы передаем выделенный эле- 
мент Тгее\1ем1 .5е1ес+еЯ); 


@ заголовок нового элемента. 


Результат выполнения этого метода — указатель на новый элемент. Этот ре- 
зультат мы сохраняем в переменной Мем/Мо4е. Теперь можно изменять и другие зна- 
чения этого элемента. Например, как в следующем коде изменяется картинка: 

1Е МемМоае .Рагеп*&<>п11 ЕБеп 

Мем/Мо4е . ТтачеТпаех: =1; 


Здесь идет проверка, если свойство Рагепе нашего дерева не равно нулю (Т. в. 
компонент не является верхним в дереве), то изменить значение тмадетпаех ©03- 
данного нами элемента на | (по умолчанию это значение 0). 

Для события, вызываемого нажатием кнопки Добавить элемент, напишем код, 
показанный в листинге 11.13. 


\уаг 

СарЕ1опбех: 5Ег1па; 

МемМоае : ТТгееМ\№оае; 
Беч1п 

СарЕ1оп5Ег:=''; | 

1Е поЕ Тприебцегу('Ввод имени подэлемента', 


'Введите заголовок подэлемента',СарЕ1оп5еу) ЕПеп ех1{; 


МемМосе : =Тгее\/1е\м1 .Теетз$ .АЯЯСЬ11а (Тгее\У1ем1 .бе1есееа, сар1опбег) ;.. 
1Е Мем\оае .Рагепе<>п11 Ереп 
МемМоде .Ттадетидех:=1; 

ера; 


Здесь код практически тот же, что. и для кнопки Добавить. Единственная раз- 
ница в том, что при добавлении нового элемента используется метод Ааасьа1а. От- 
личие этого метода от просто даа заключается в том, что он добавляет дочерний 
элемент. Например, если вы выделили в списке какой-то элемент и передали его 
в качестве первого параметра в Аааси11а, то новый элемент будет как бы ПОДЧИ- 
няться выделенному. При использовании метода Ааа новый элемент будет нахо- 
диться на одном уровне дерева с переданным в качестве первого параметра. Теперь 
напишем код для кнопки Удалить: 

1Е Тгее\У1ем1 .5е]1есвеЯ<>п1] ЕПВеп 

Тгее\У1ем1 .Теетз.Ре1еее (Тгее\/1ем1 .бе1есееа); 
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Здесь нужно удалить выделенный элемент, поэтому с сначала мы проверяем, есть 
ЛИ вообще выделенный элемент в дереве: 
1Е Тхее\у1ем1 .бе1есвеа<>п11 (феп 


Если такой элемент есть, то выполнится следующий. код: 
Тгее\/1е м1 .ТЕемз .Ое1еее (Тгее\У1е\м1 .бе1есевеа); 


Здесь используется метод ре1еее объекта ткемз, чтобы удалить элемент дерева. 
В качестве параметра надо передать элемент, который мы хотим удалить (мы пере- 
даем выделенный тгее\У1ем1. се1есеея). 

Для кнопки Изменить заголовок мы напишем код листинга 11.14. 


ргоседиге ТТгееУ1емРотта. ЕЯ 1 Вис опС11ск (бепаег: ТОБес®); 


уах 
СарЕ1опбек: 5ех1па; 

Бели 

‘`СарЕлопбеЕи:=''; 

1ЁЕ пое ТприбОчегу('Ввод имени' 


'Введите заголовок элемента',Саре1оп5еЕх) ЕПеп ех1е; 


Тгее\У1е\м1 .бе1ессе.Техе : =Саре1оп5ег; 


ета; 


Здесь снова вызывается окно тприЕОцегу, чтобы пользователь смог ввести новое 
имя для выделенного элемента. Теперь, чтобы изменить имя, Надо изменить свой- 
СТВО ТехЕ для выделенного элемента: Тгее\У1ем1 .Зе1ескеа.Техеё. 

Давайте сделаем возможность сохранения и загрузки данных в наше дерево. Для 
этого создайте обработчик события опс1озе и напишите в нем следующее: 

ргосеаиге ТТгее\/1емЕотта. ГоутаС1о5е (бепаег: ТОБЗесе; 

уах АсЕе1оп: ТС1озеАсЕ1оп); | 

Бед1п 
Тгее\/1ем1 .бауеТоЕ11е (ЕхегасеР11ерРаеЬ (Арр11саЕ1оп.ЕхеМаме) +'Егее.дак'); 
епЯ; 


Для сохранения дерева нужно вызвать метод бауеТоЕ11е И в качестве единст- 
венного параметра указать имя файла. В качестве имени файла можно указывать 
что угодно, но здесь используется (и это желательно делать) полный путь, чтобы 
файл случайно не создался в каком-нибудь другом месте. Для этого надо использо- 
вать следующую конструкцию: | 

ЕхегасеЕ11]еРаер (Арр11са1оп.Ехемаше) +'Етгее.@аае' 


Арр11сае1оп .ЕхеМмаме — указывает на ИМЯ запущенного файла. 

ЕхегасеЕ11еРаекн — извлекает путь к файлу из указанного в качестве параметра 
пути к файлу. Получается, что вызов ЕхЕгасЕЕ11еРае В (Арр11сак1оп.ЕхеМате) вернет 
путь к папке, откуда была запущена программа. Остается только к этому пути при- 
бавить имя файла (у нас это "гее.4аГ) и можно быть уверенным, что файл обяза- 
тельно будет находиться там же, где и запускаемый файл. | 
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Теперь нужно загрузить сохраненные данные. Для этого по событию опбНном на- 
пишем следующий код: 
ргосеаиге ТТкее\У1емРотта. ГохтабВом (беп@ег: ТОБзесе); 
Беа1п 
1Е Е11еЕх1 363 (ЕхехасЕЕ11ерРаеН (Арр11сае1оп.ЕхеМаме) +'+гее.Зас') «Пеп 
Тгее\/1ем1 .ГоаЯРгомЕ11е (Ехсгас®Р11еРаЕр (Арр11саЕ1оп.ЕхеМаше) + 
'сгее.Час'); 
епа; 


Здесь сначала проверяется с помощью вызова функции Е11еЕх1зЕз существова- 
ние файла. Этой функции нужно передать полное имя файла, и если он существует, 
то функция вернет екое, иначе Еа1зе. | 
° Если файл существует, то можно его загрузить с помощью вызова метода 
ГоааРгопЕ11е. 

Обязательно проверяйте файл на существование. Если его нет или кто-то его 
удалил, а вы попытаетесь загрузить данные из несуществующего файла, произой- 
детошибка. 

Попробуйте запустить пример. Если создать несколько элементов и потом переза- 
пустить программу, то вы сразу же сможете заметить, что старые дочерние элементы 
имеют один рисунок, а вновь созданные другой. Почему так получилось? Ведь мы же 
всегда меняем рисунок, если это дочерний элемент? Просто после закрытия про- 
граммы дерево сохраняется в файле, а после загрузки оно загружается без учета изо- 
бражений. Состояние картинок не сохраняется — об этом нам нужно заботиться са- 
мостоятельно. Но это уже отдельная история, о которой мы поговорим в другой раз. 
В следующем примере мы избавимся от этого неприятного эффекта. 


ПРИМЕЧАНИЕ. На компакт-диске, прилагаемом к книге, в папке \Примеры\Глава 11\ 
ТгееМем вы можете увидеть пример этой программы. 


Итак, чтобы восстановить состояние картинок после загрузки данных из файла, 
надо скорректировать обработчик события оп5вом следующим образом: 
ргоседиге ТТгее\ 1 емРотти. РогабНом (бепдех: ТОБ]есе); 
уах | 
1: Тибевег; 
Беа1п —. 
1Е Е11еЕх1565$ (ЕхЕгасеР11еРаеВ (Арр11сае1оп .ЕхеМмаще) +'Егее.Чае') Епеп 
Тгее\1е\м1 .ГоаЯЕкомЕ11е (ЕхегасеЕ11еРаЕН (Арр11саЕ1оп .ЕхеМапе) + 
'Схее.Чаае'); 
Еог 1:=0 о Тгее\У1ем1 .тТеетз .Соцпе-1 ао 
Бед1п | 
1ЁЕ Тхгее\У1ем1 .ТеЕемз[1].РахепЕ=п11 реп 
Тгее\/1ем1 .Теетз [1] .ТпадеТпаех: =0 
е1зе 
Туее\У1е\м1 .Теетз [1].ТтадеТпаех: =1; 
епа; | 


ета; 
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Здесь сначала происходит загрузка данных из файла, а потом запускается цикл, 
_в котором перебираются все элементы дерева. В цикле мы делаем проверку, если 
у текущего элемента свойство Рахепе равно п11, значит, у элемента нет родитель- 
ского элемента и он корневой, поэтому устанавливаем нулевую картинку. Если 
свойство не равно нулю, то элемент дочерний, и мы устанавливаем ему картинку 
с номером 1. | 

Вот и все. Вот таким простым способом мы восстанавливаем картинки элемен- 
тов, потому что они не сохраняются в файле. 


ПРИМЕЧАНИЕ. На компакт-диске, прилагаемом к книге, в папке \Примеры\Глава 11\ 
Ттгее\Мем/2 вы можете увидеть пример этой программы. 


11.20. Профессиональное использование 
компонента ТгееУгеи 


Сейчас мы рассмотрим свойство раса элементов дерева тгее\У1ем. Это очень 
удобное свойство, потому что в него вы можете записывать указатель на любые 
свои данные. На работу компонента это поле не влияет, это просто переменная, ко- 
торая есть у каждой ветви дерева, и вы можете использовать ее на свой вкус и цвет. 
Именно поэтому с помощью раба компонент превращается. в мощнейшее оружие 
программирования. ‘, 

Рассмотрим пример, в котором закрепим знания о компоненте тгее\1ем, а также 
о структурах и о работе с файлами. | 

Создайте новый проект и главную форму, как показано на рис. 11. 36. В рабочей 
области формы располагаются: 


‘С компонент тхее\1 ем, который нужно растянуть по левой стороне окна; 
С компонент рапе1 с тремя кнопками: Создать, Удалить и Сохранить; 
С четыре строки ввода с подписями для ввода имени, фамилии, адреса и е-тай. 


7: Пример работы с Тгее\ещ 


Рис. 11.36. Главная форма будущей программы 
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В разделе суре до объявления объекта формы опишем структуру моаеорЕ1опз, 
как это показано в листинге 11.15. Тут же объявим переменную — указатель на 
структуру. В ней будет четыре поля, которые соответствуют полям ввода на форме. 


Суре 
РМодеоре1оп$ = ^МодеОрЕ1опз; 
Моае0д0рЕ1оп$=гесога 

Маме: 5Еглпа [255]; 

бигпаме: 5Ег1па [255]; 
Ааагезз: $56х119[255];. 
ЕМа11: $6х1п9[255]; 

епа; 


Обратите внимание на то, что все используемые строковые переменные объяв- 
лены с ограничением на размер в 255 символов. Это связано с тем, что мы готовим 
содержимое структуры для сохранения в файл. А так как строка имеет переменную 
длину, то в файл структура будет писаться неравномерно. Тут есть два выхода. 


О При записи в файл писать и размер каждой строковой переменной. В этом слу- 
чае запись и чтение будут сложнее, но мы сэкономим файловое пространство. 


С Жестко объявить размер строк, как это сделано в нашей структуре. Здесь уже 
строка будет писаться с определенным размером и чтение/запись упрощается. Так 
мы сможем писать в файл всю структуру за один заход, как мы это уже делали. 
Теперь напишем обработчики событий для наших кнопок. Для кнопки Создать 


нужно написать содержимое листинга 11.16. В этом обработчике будет создаваться 
новый элемент и инициализироваться начальные данные. 


ргоседиге ТМа1пГоут.МемВепС11ск (бепаег: ТОБ]есе); 


\уах 
МоаеМате : б6у1па; 

Моаерака : РМоаеоре1опз; 

МемМоае : ТТгее№оае; 
Беач1п 

1ЁЕ поЕ ТприеОчегу ('Новый элемент', 'Введите имя нового элемента' 


Моаемате) ЕПеп ех1{; 
МемМоае : =Тхее\1 ем. ТЕетз . АаЯСВ11а (Тгее\У1ем.бе1ессе@Я, Модемапте); 


// Инициализация начальных данных структуры 
Модерака: =пем (РМоаеорЕ1оп$); | 
М№одерака .Мате:=''; 

М№оаераса.батпаме:=''; 


266 | | Глава 11 


Моаера‹а.Ааагезс : = 
Моаераба.ЕМа11 : = 


МемЛМоае .Па*а: =МоаеПа*а; 


епа; 


В самом начале приведенного выше кода мы запрашиваем у пользователя имя 
нового элемента с помощью функции тприЕОчеку. Далее новый элемент добавляет- 
ся в дерево. В качестве корневого элемента используется выделенный в настоящий 
момент элемент. 

Теперь нужно проинициализировать переменную Моаерака, которая имеет тип 
структуры РМодеорЕ1опз. Мы создаем ее с помощью функции Мем и каждому эле- 
менту присваиваем значение по умолчанию. В данном случае всем присваивается 
пустая строка, чтобы в каком-то из элементов случайно не оказался "мусор". 

В самой последней строке происходит сохранение переменной модераса В свой- 
стве раса нового элемента. Вот тут нужно сделать несколько пояснений: 


С Переменная модерака — это указатель на структуру, поэтому мы сохраняем ад- 
рес структуры в памяти. 


О Переменная модерака объявлена локальной и, по идее, она должна уничтожать- 
ся. Это первая ошибка начинающих программистов. Уничтожаются простые пе- 
ременные, которые хранятся в стеке, а выделенная память не может освобож- 
даться автоматически, потому что она выделяется в динамической памяти. 
Именно поэтому указатель на структуру, который мы сохранили в свойстве. 
Раса, будет действителен даже после выхода из процедуры. 


С созданием элементов разобрались. По нажатии кнопки Сохранить мы будем 
сохранять введенные в компоненты ТЕа1е данные в структуру данных выделенно- 
го элемента. Для этого создайте обработчик события опс11ск и напишите. в нем 
содержимое листинга 11.17. 


ыы - д Че 3 
О 


‘ргоседиге ТМазпРота. бауеВЕпС11ск (5епаег: ТОБ)ес®); 
Бед1п 
1ЁЕ ТгееУ1ем.бе1есбеЯ=п11 ЕПеп ех1%; 


РМоаеОре1оптз (Ткее\У1ем. 5е1есееа.Паса) .Маме : =МатеЕЯ1е .Техе; 
РМодеОрЕ1опз (Тгее\У1ем.5е1есее@.Рака).бигпате : =бикпатеЕа1е .Техе; 
РМоаеОре1опз (Тгее\/1ем.5бе1есееЯ.Раса) .Адагезз : =АЯЯгезЕа1е .Техе; 
РМодеОоре1оптз (Ткее\/1ем.5е1есееЯ.ПРака) .ЕМа11 : =ЕМа11ЕЯ1е .Техе; 
епа; 


Прежде чем сохранять, надо убедиться, что в дереве есть выделенный элемент. 
Если такого не будет, то при попытке сохранения произойдет ошибка, потому что 
Тгее\1ем.Зе1есееа будет нулевым указателем. Свойство имеет тип ТТгеемоде, 
т.е. это объект, хранящий в себе выделенный элемент. Если ничего не выделено, 
значит, объекта нет, и мы увидим п11. | 
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Структура для выделенного элемента находится в СВОЙСТВ Рака выделенного эле- 
мента, т.е. в Тгее\У1ем.5е1ескеа.Рака. Так как это свойство — простой указатель, не 
имеющий представления о данных, которые хранятся по его адресу, мы должны ука- 
зать тип самостоятельно. Для этого используем РпоаеОрЕ1опз (Ткее\1ем.5е1ескеЯ.Рака). 
Остальное вам ДОЛЖНО быть понятно из кода. 

По нажатии кнопки Удалить нужно написать всего две строки кода: 

3Е Тгее\У1ем.бе1есвеЯ=п11 Ереп ех1&; 

Тгее\У1ем.5е1есееа.ПОе1еке; 


В первой строке проверяется, равен ли нулю выделенный элемент. Если да, то 
нужно выйти из процедуры, потому что ничего не выделено. Если нет, то можно 
удалять. Для этого используется метод ре1еёе. Если не сделать проверку, то 
В Тгее\1 ем . бе1есееа будет отсутствовать объект и при обращении к методу ре1еке 
произойдет ошибка. 

Теперь программа умеет создавать элемент, сохранять в структуре данные 
и удалять элементы. Осталось только научить ее отображать введенные ранее дан- 
ные. Для этого давайте создадим обработчик события опснапа1па для компонента 
Тгее\1ем. Он будет вызываться каждый раз, когда пользователь выбирает новый 
элемент в дереве. В этот момент мы должны вывести в компоненты тЕа1е инфор- 
мацию из структуры нового выделенного элемента. В обработчике опсвапа1па 
нужно написать содержимое листинга 11.18. 


ргосеацие ТМа1пРотм.Тхгее\/1емСКВапа1па (бепаехг: ТОБзесе; Моде: ТТхееМ№оае; 
Ууаг А1]омСрапае: Воо1еап}; 
Бед1п 


1 М№оае=п11 ЕПеп ех1(; 


МатеЕа1е.Техе : =Р\№одеоре1опз (Моде.Раса) .Маще; 
ЗигпамеЕа1е .Техе: =РМоаеОрЕ1опз (Моде Раса) .5итгпаце; 
АаЯгезЕЯ1е .Техе : =РМоаеОрЕ1опт$ (М№оае.Раба) .Аяатезсз; 
ЕМа11ЕЯ1* .Техе: =РМоЧ4еОре1оп$ (Моде .Пафа) .ЕМа11; 


епЯ; 


` 


Попробуйте запустить программу и создать несколько элементов. Измените 

у нескольких из них значения и попытайтесь понять, как работает сохранение и 
отображение данных из структуры. 

° Теперь у вас есть хорошая заготовка для работы со сложными данными с помощью 
Тгее\1ем. Вы можете сохранять нужные данные в файле и потом загружать их. На дан- 
ном этапе не станем описывать сохранение и загрузку, потому что это не совсем про- 
сто. Дело усложняется тем, что данные хранятся в виде дерева и нужно сохранять не 
только структуры, но и позицию в дереве, чтобы потом ее можно было восстановить. 


ПРИМЕЧАНИЕ. На компакт-диске, прилагаемом к книге, в папке \Примеры\Глава 11 
\ТгееМем_Оаа вы можете увидеть пример этой программы. 
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11.21. Список элементов (Т/$Меи)) 


Следующий компонент тоже достаточно сильно распространен. Попробуйте за- 
пустить Проводник \/т4о\5 и посмотрите на появившееся окно. Слева есть дерево 
каталогов. Как работает такое дерево, мы уже разобрались. А вот справа находится 
список файлов в выделенной папке. Этот список как раз и хранится в компоненте 
ТЬ15Е\М1ем, с которым мы сейчас познакомимся. | 

Для этого напишем простейший файловый менеджер и заодно закрепим боль- 
шинство уже пройденного материала на практике. Но все это в следующем разделе 
этой главы, а сейчас остановимся только на основных свойствах компонента 
ТЬ1зЕУем, чтобы легче было двигаться дальше. 

У списка элементов очень много свойств, отвечающих за обрамление (внешний 
вид рамки) компонента. Не будем их все перечислять, потому что разных вариан- 
тов очень много. Остановимся лишь на некоторых свойствах. 


С веуе1Еадез — здесь указывается, с какой стороны должна быть оборка. По 
умолчанию со всех сторон стоит гие. | 


Ве\уе1Тппег — вид внутренней оборки. 

Веуе1ОцЕег — вид внешней оборки. 

Веуе1К1па — тип оборки. 

Вогаег5еу1е — стиль обрамления (плоский или трехмерный). 


ооо 


СпескКЪохез — если здесь кгие, то каждый элемент списка содержит еще и ком- 
понент СпескКВох.. 


О со1итрс11ск — свойство определяет, должны ли заголовки колонок выглядеть 
как кнопки и принимать сообщения ОТ КНОПОК МЫШИ. 


С] со1итмоз — если здесь щелкнуть дважды кнопкой мыши, то появится маленький 
редактор колонок списка. \ 


С г1аЕ5бсго11Ваг — свойство, определяющее способ отображения полос прокрутки, 
а именно — должны ли полосы прокрутки выглядеть в стиле е1ах (плавающий). 


О Ел 1ргач — определяет полное перетаскивание. 


О) сх1аг1пез — определяет видимость сетки, когда компонент выглядит в стиле 
узВероге (отчета). 


С] ноеТгаск — включает режим НоЕ, когда при наведении на элемент списка могут | 
происходить какие-то действия. 


‚С ноетгаск$еу1ез — это группа свойств, в которой описываются действия, проис- 
ходящие при включенном режиме ноеТкаск: 


® ПЕНапаРо1пе — если равно сгие, то при наведении на элемент курсора мыши, 
курсор принимает вид руки (как в Пиегпе! Ехрогег при наведении на ссылку); 


е ПЕ0паег11пеСо1а — если равно Егце, То надо подчеркивать надписи на эле- 
ментах, даже когда не наведен указатель мыши, 


® ПЕОпаег11пеНое — если равно егае, то надо подчеркивать надписи на эле- 
ментах, только когда наведен указатель мыши на элемент. 


С тсопорЕ1опз — группа свойств, отвечающих за иконки элементов. 
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О Аггапаетепе — свойство, определяющее расположение иконки (сверху или слева). 

О Ааеодгкгапае — автоматическое выравнивание. 

О игарТехе — свойство указывает, что надо переносить надпись под иконкой, ко- 
гда она не помещается в одну строку. 

С теепз — это объект, который хранит все элементы списка. Он очень похож на 
тот, что был рассмотрен в предыдущем разделе при написании примера к дереву 
элементов. 

О ТагдеТмадче — здесь указывается компонент ТГладег1$е, В КОТОром ДОЛЖНЫ 
храниться большие иконки для элементов (32х32). 

О ме: сетесе — свойство определяет, есть ли возможность выделять сразу несколь- 
ко элементов. 

С вомзе1есеь — здесь дается указание, должна ли выделяться вся строка, когда 
компонент выглядит в стиле узВероге. 

С зномсотиианеадех — свойство определяет. возможность показывать заголовки, 
когда компонент выглядит в стиле узВероге. 

С 5па11Тваае — здесь указывается компонент ттТмаде!г1з6, в котором должны 
храниться маленькие иконки для элементов (16х16). 

О \У1ембеу1е — задается стиль отображения списка. Здесь возможны варианты: 
® узтсоп — большие иконки; 
е® \узбма11Тсоп — Маленькие иконки; 
® 3751156 — СПИСОК; 

Фе узкерох’Е — отчет. 

Как видите, свойств очень много. Я настоятельно рекомендую вам попробовать 
поиграть свойствами самостоятельно, чтобы воочию увидеть их влияние на компо- 
нент. Для этого желательно, чтобы в списке были элементы. Чтобы их создать, 
щелкните дважды по свойству теешз и в появившемся окне редактора элементов 
списка создайте несколько элементов. Теперь по очереди изменяйте свойства и за- 


пускайте. приложение, чтобы увидеть результат в действии. Как бы я красиво ни 
рассказывал, это не заменит личные ‘ощущения и опыт. 


11.22. Простейший файловый менеджер 


Здесь рассказывается о том, как самостоятельно написать простейший файло- 
вый менеджер. Этим примером мы закрепим наши знания по работе с файлами 
и научимся работать со списком элементов. | 

Создайте новый проект в Ое|рЫ и установите на него следующие компоненты: 
О одну кнопку; 

С одну строку ввода; 
О один список элементов. 
Все это расположите так, как показано на рис. 11.37. 


Для работы программы этого примера понадобится модуль зве11ар1, поэтому 
давайте сразу добавим его в раздел изез. 
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| Файловый менеджер 


> __ Назад. _ 


Рис. 11.37. Форма будущей программы 


СОВЕТ. Здесь и в дальнейшем будут рассматриваться только’ наиболее интересные 
моменты программного кода. Для того чтобы уяснить назначения остальных его ко- 
манд, обращайте внимание на комментарии. Они помогут вам разобраться 
с происходящим в программе. 


Программу начнем писать с обработчика события опсгеаЕе. Создайте соответ- 


ствующий обработчик события для формы и напишите в нем содержимое листин- 
га 11.19. 


ргосебиге ТРотг1 .ЕогтСгеаее (5еп4ехг: ТОБ3есЕ}; 


уатг 


бузПпааеГ1$е: а1пЕ; 

ЕТ: ТОНЕ11еТпЕо; 
Беа1п 

//Создаем списки маленьких и больших иконок. 
Г1$6\/1е\м1 .ГагдеТтадез : =ТТтаде!1$е .Сгеаее (зе1Е); 
1$6\У1ем1 .бта11 ТГиадез : =ТТтаде! 156 .Схгеаее (5е1Е); 


//Запрашиваем большие иконки | 
бЗузПлаае!1$е := 5НбееЕ11еТтЁо('', 0, 5$ЕТ, 
312е0+ (ТЗНЕ11етиЕо), ЗНСЕТ_ЗУЗТСОМТМОЕХ ог $5НСЕТ_ГАВСЕТСОМ); 
1Е суз ‘падет 1% <> 0 пеп 
Беа1п 
//Присваиваем системные иконки в 1156У1ем1 
Г156\/1ем1.Гагдетадез .НапЯ1е := бузПпаде!156; 
Т.1$56\/1ем1 .Гагде1тадез.бпагеТтмачез$ := Тгце; 
епа; 


//Запрашиваем маленькие иконки 
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сузтааег1 в := ОНСесР11е1ТтЕо('', 0, 5ЕТ, $12е0Е(Т$НЕ11еТтЕо), 
ЗНСЕТ ЗУЗТСОМТМОЕХ ог 5НСЕТ_5МАБОТСОМ); 
1Е бузпиадер1ве <> 0 ЕНеп 
Беа1п | 
//Присваиваем маленькие системные иконки в 1Г1$\/1ем1 
15 Е\/1е\1 .5бта111тадез .Напа1е := бу аааеГ1$(; 
Т.1 $\/1ем1 .$па111тадез. 5пахгеттадез := Те; 
епа; 


ева; 


В первых двух строках кода создаются списки маленьких и больших иконок. 
Свойства ТагдеТтадчез И 5бма11Ттадез имеют тип ТТмаде!г1$е, Но сразу после соз- 
дания компонента они равны п11. Поэтому они создаются, присваивая результат 
вызова ТТвадег1$Е.Сгеаке (зе1#). Когда они проинициализированы, необходимая 
память будет выделена. — 

Раньше мы подключали картинки визуально, добавляя на форму компонент 
Ттпадеь1зс, потому что брали их с диска. В этом примере изображения нужно по- 
лучить из системы У/тдо\з$ и поэтому ставить визуальный компонент нет смысла, 
в редакторе форм мы картинок не увидим. Они будут существовать в списке только 
во время выполнения программы. | 

Можно поступить немного другим способом — поставить на форму два компо- 
нента Тттадег1зЕ и просто указать их в соответствующих свойствах. В этом случае 
не пришлось бы ничего инициализировать, потому что компоненты, стоящие на 
форме, инициализируются автоматически. Но здесь так не делается с целью пока- 
зать, что объектное свойство можно сразу заставить работать без использования 
дополнительных компонентов. 

В дальнейшем мы запрашиваем у системы список больших иконок. Для этого 
используется функция знбееЕ11етоЕо, которая возвращает информацию о файле, 
папке или диске. Первый параметр — путь к файлу. Второй — атрибуты. Третий — 
указатель на ТЗНЕТГЕТМЕО. Четвертый — размер ТЗНЕТЬЕТМЕО. Последний пара- 
метр — это флаги, указывающие на тип информации, запрашиваемой у системы. 

Теперь о том, как выглядит функция в нашем примере. Первые два параметра 
пустые, это означает, что нужны глобальные данные, а не информация о конкрет- 
ном файле. Если указать здесь реальные значения файла, то получим информацию 
о нем, а если указать нулевые значения, то будет получена системная информация. 

В качестве флагов указывается $ЗНСЕТ_ЗУЗТСОМТМОЕХ И 5НСЕТ_ТАКСЕТСОМ. 
ЗНСЕГ_бУЗТСОМТМОЕХ ОЗНачает, что нужно вернуть указатель на системный список 
иконок (ттадер,1з®). Второй флаг говорит, что нужны большие иконки. | 

При втором вызове этой функции (чуть ниже в коде) мы запрашиваем маленькие 
иконки (5НСЕТ_5МАБЬТСОМ). Функция возвращает указатель на соответствующий системе 
бу$ Поаче!. 15%, который мы впоследствии присваиваем [,1$6\/1е\м1 .ГагхаеТтадез .Напа1Те. 
После этого присваивания 1,15Е1е\1 .ГахдеТтадез содержит все системные иконки раз- 
мера 32х32. Почему? Потому что свойство напа1е — это‘указатель ‘на выделенную для 
картинок память. Этот указатель мы изменили на тот, который получили из системы, 
и теперь наш список картинок указывает на системный. 
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Системный список иконок (Тваде!1зЕ) содержит все иконки, установленные 
в системе и ассоциированные с разными типами файлов. Эти иконки вы можете 
видеть в проводнике (\УМтдо\$ Ехрогег) у файлов 4ос, 1х6 шь, 21р и др. 

На следующем этапе разработки программы создадим обработчик события 
Оп5ром. В нем вызовем процедуру адаЕ11е, которая считывает все файлы из теку- 
щей папки: | 

АЗЯЕ11е(`С:/*.*', ЕаАпуЕ11е); 


Процедуру дАааЕ{1е нужно объявить в разделе рх1уаЕе нашей формы гРохт1 сле- 
дующим образом: 
рг1уасе | 
{ Рузуабе аес1агае1оп$ } | 
ЕипсЕоп АЗЯЕ11е (Е11еМазк: з6у1па; РЕ11]еАсех:ПОМОКО): Воо1еап; 


Объявите эту процедуру так же, а потом нажмите комбинацию. клавиш 
<Си]>+<$ЫЙ>+<С>, и РерЫ создаст заготовку для будущей процедуры. В эту за- 
готовку напишите содержимое листинга 11.20. 


ЕопсЕ1оп ТЁРоги1.АяЯЕ11е (Р1]еМазк: зеулпа; ЕЕ11еАсех:ПМОКО): Воо1еап; 
\ах | | | 
ЗЬТпво: Т5НЕ11етоЕо; | | 
асех1Юабез: эеуг1па; | 
Е11еМаше: $еу1па; 
_ВЕараЕ11е: ТНапа1е; 
бЗеахспВес: ТбеагсрВес; 


ЕопсЕе1оп АЕЕЕЗег(Абфх: 1пбедег): зег1та; 

Безч1п 
Вези]1е := '!; 
1Е (ЕТЬЕ_АТТВТВОТЕ ОТВЕСТОВУ ап@ АЕЕх) > 0 ЕМеп Вези1Е := Вези1е + ''; 
1Е (ЕТЬЕ АТТВТВОТЕ_АВСНТУЕ апа АБЕг) > 0 ЕВеп Вези1Е := Вези1е + 'А'; 
1Е (РТЬЕ_АТТКЕТВОТЕ_ВЕАГОМГУ апа АбЕхг) > 0 ЕПел Вези1Е := Веза1е + 'В!; 
Е (ЕТЬЕ_АТТЕТВОТЕ_НТООЕМ ап@а АбЕхг) > 0 ЕЪеп’ Везо]1е := Веза1е + 'Н'; 
1Е (ЕТЬЕ_АТТЕАТВОТЕ_СУЗТЕМ апа АЕбехг) > 0 (Теп Вези1Е := Веза1Е + '5'; 
епа; 


Беа1п 
Т,156\У1ем1 .Теемз .Веа1пОрааее; 
Т15Е\/1ем1.Теетз.С1еах; 


Кезо1е := Еа1зе; 
ПЕ1паЕ11е := Е1таЕ1г$6 (Е11еМазк, РЕ11еАсех, ЗеагсйРКес); 
1Е БЕ1лтаЕ11е <> ТААЛАЬТО_НАМРЬЕ_УАГОЕ сТеп 

ку | 

тереа+ 
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\1ЕР беагсбВес.Е1пЯБаба @о 


Бед1п 
Е (Зеа’срКес.Мате = '.') ох (ЗеахсбВес.Мате = '..') ох 
(ЗеаусрВес.Мате = '') ЕБел сопЕ1пае; 


Е11еМаше := $51азр5ер (ЕЯ 1 Е1.Техе, ЗеахсНКес .Маще); 
нсееЕ11етпЁо (РСНаг (Е11еМаме), 0, ЗптпЕо, $51хе0Е (5птово), 
| | ЗНСЕТ_ТУРЕМАМЕ ог $НСЕТ_ЗУЗТСОМТМОЕХ); 
АЕЕГ1рисез := АбЕЕЗсх (ЧмЕ11еАсег1раеез); 
//Добавляю новый элемент 
мтЕВ Г1$Е\/1е\м1 .ТЕетз.Ааа ао 
Бед1п 
//Присваиваю его имя 
СарЕ1оп := ЗеагсНВес .Мапе; | 
//Присваиваю индекс из системного списка изображений 
ГлачеТпаех := 5ИТоЁЕо.1Тсоп; 
//Присваиваю размер 
ЗиртТеЕетз . Ада (ТпеТобег (беагсйВес.512е)); 
ЗаБТеетз . Ааа ( (5ПТпЕо.$52ТуреМмапе) ); 
ЗартТЕем$ . Ааа (Р11еТ1теТорасеТ1меб г (ЕЕГазЕМх1ееТ1ме)); 
ЗибТЕемз . АДА (аб Ег1Боеез); — 
ЗирТеЕетм$ . АЗЯ (ЕЯ1Е1.ТехЕ + сЕ11еМапе); 
_1Е (ЕТЬЕ_АТТЕТВОТЕ_ ОТКВЕСТОКУ апа ме 1едеЕх1Ьиеез) > 0 степ 
зиБтЕетз .Ааа(' 91’) | | 


е15е 
‚ чБТеемз .Ааа ('Ё11е'); 
епа; | 

Вези1еЕ := Ехое; 

епа; 


ипе11 (Е1п@Мехе (5еагснВес) <> 0); 
Е1па11у | 
Р1пЯС1озе (ЗеахсНКес); 
епа; | 

Т156\/1ем1.Теетмз .ЕпаОрааее; 

епа; 


Процедура получилась достаточно большая и надо подробно ее рассмотреть. 
Делать это будем по частям программного кода, чтобы было легче воспринимать 
объяснения. | 

После имени процедуры идет объявление локальных переменных. Это все по- 
нятно, и мы не раз уже такое делали. Но после объявления переменных вместо на- 
чала процедуры Ъед1п стоит объявление другой локальной функции: 

Еопсе1оп АбЕубех (Абу: 1пЕедег): зЕу1та; 

Ъез1п | 

Везо1е := ''; 
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1Е (ЕТЬЕ_АТТЕТВОТЕ ОТКЕСТОВКУ ап@а Абег) > 0 ЕТеп Везо1Е := ВКеза1Е + ''; 

1Е (ЕРТЬЕ_АТТЕАТВОТЕ_АВБСНТУЕ ап@а АЕЕу) > 0 ЕЦБеп Везо1е := ВКезо1Е + 'А!'; 

1Е (ЕТЬЕ_АТТЕАТВОТЕ_ВЕАГОМ.У ап АБЕх) > 0 (Теп Веза1е := Везо1е + 'В'; 

1Е (ЕТЬЕ_АТТВТВОТЕ_НТООЕМ апа Абех) > 0 ЕМеп Веза1Е := Везоа1е + 'Н'; 

1Е (РТЬЕ_АТТАТВОТЕ_СУЗТЕМ ап@а АЕЕу) > 0 ЕПтеп Везо1е := Везо1е + '5'; 
епЯ; 


Конечно же, эту функцию можно написать как полноценную, но в данном слу- 
чае мы ‘закрепляем на практике локальные процедуры. Этот код будет нужен толь- 
ко внутри функции АдаЕ11е и больше нигде, а значит, нет смысла выделять отдель- 
ную функцию. о 

Если одна процедура или функция (внутренняя) объявлена внутри другой 
(внешней), то внутренняя процедура может быть вызвана только из внешней. Весь 
остальной код программы не будет знать о существовании где-то внутренней про- 
цедуры. 


ПРИМЕЧАНИЕ. В примере сложилась ситуация, когда используется внутренняя про- 
цедура. Это сделано искусственно, потому что вы можете встретить такую конструк- 
цию в других программах. Однако многие программисты стараются не использовать 
такой прием, потому что трудно найти случай, когда внутренняя процедура действи- 
тельно необходима. По этой причине обходятся без нее. 


После объявления и описания внутренней процедуры идет начало внешней про- 
цедуры. Вот тут начинается самое интересное. В самом начале вызываются два ме- 
тода компонента Гг15Е\1е\м1: 

Т,1$6\/1ем1 .Теемз .Вед1пОрааее; 

Т1$6\/1ем1.ТеЕем$ .С1еаг; 


Первый метод веа1п0рдаее говорит о том, что начинается обновление элемен-. 
тов списка. После этого вызова никакие изменения, вносимые в элементы, не будут 
отражаться на экране, пока не будет вызван епаурадахе. 

Когда вы хотите произвести незначительное изменение, то не надо вызывать эти 
методы, но когда предполагается, что элементы списка будут изменяться очень 
сильно, то лучше все изменения заключить между вызовами Вед1пОрдаее 
И ЕпаОрдаее. Это связано с тем, что когда вы вносите хоть какое-то изменение, оно 
сразу отображается на экране. Логично? А что если вам нужно удалить все элемен- 
ты и потом в цикле добавить в список 1000 новых ‘элементов. В этом случае после 
удаления и каждого добавления нового элемента будет происходить прорисовка 
компонента. Вот тут и возникает вопрос: "Зачем после каждого добавления рисо- 
вать?" В этом случае намного эффективнее будет добавить все элементы, а только 
потом их прорисовать, причем все сразу. Вот именно для этого и существуют свое- 
образные операторные скобки вез1пОрдаее и Епа0рдаее: 

1,1 5Е\/1еи1 .Теемз .Вед1пОрдаее; // Запрещаем прорисовку 


// Делаем необходимые изменения 


Г1$Е\/1ем1.Теем$ .ЕпЯ0рааеке; // Прорисовываем все изменения сразу 


После вызова Вез1п0рдаЕе производится очистка текущего списка элементов 
с помощью вызова Г,1 $Е\/1ем1.тТЕемз .С1еахг. | 
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Далее идет цикл поиска файлов, с которым мы уже немного познакомились 
в гл. 10. Вспомним этот процесс. _ 

Е1п9Е1хзЕ — открывает поиск. В качестве первого параметра выступает маска 
поиска. Если вы укажете конкретный файл, то система найдет его. Второй пара- 
метр — атрибуты включаемых в поиск файлов. Здесь мы используем ЕаАпуЕ11е, 
чтобы искать любые файлы. Последний параметр — это структура, в которой нам 
вернется информация о поиске, а именно: имя найденного файла, размер, время 
создания ит. д. | | | 

После вызова Е1пЧЕ1хзЕ мы. проверяем корректность найденного файла. Если все 
в норме, то запускается цикл вереаЕ — 0111. Этот цикл выполняет операторы, располо- 
женные между гереа{ И пЕ11, Пока условие, расположенное после слова ипе{1, явля- 
ется верным (имеет значение кгое). Как только условие нарушается, цикл прерывается. 


ПРИМЕЧАНИЕ. Цикл ппе11 похож на мз11е, но с одним отличием. Если в мВ11е 
условие заведомо неверно, то операторы внутри цикла не выполнятся. 
В гереае — ипЕ11 выполнятся, потому что сначала происходит выполнение операто- 
ров, а лишь затем проверка 0пЕ11. 


Напоминаю, что функция поиска может возвращать в качестве найденного име- 
ни в структуре 5еагснВес (параметр Маме) точку или две точки. Если встречаются 
такие имена, то их просто отбрасывают. 

Далее идет вызов функции 51азЪ5ер: 

Е11еМаше := $51]азН$ер (Еа11.Техе, ЗеагсйВес .Мате); 


Эта функция и Е11ет1метораекеТ1тезехг будут написаны позже и объявлены 
в разделе уах после объявления объекта: 
уах 
Еогт1: ТЁЕоги1; 
Еопсе1о0оп $51азр5ер(РаЕВ, ЕМате: з6г1па): зеу1па; 
РопсЕ1оп Е11еТ1теТтораееТ1тебех (Е11еТле: ТЕР1]еТ1ле): зеу2та; 


Здесь функция $1азъ5ер объявлена не внутри объекта, значит, она никому не 
принадлежит. | 

Вообще-то самостоятельные функции не обязательно где-либо объявлять. Вы 
можете без проблем просто реализовать ее и нигде не описывать. Однако здесь на- 
до учитывать, что если где-то необходимо использовать эту функцию, то реализа- 
ция обязательно должна быть раньше использования. Пример правильного исполь- 
зования самостоятельной процедуры или функции показан в листинге 11.21. 


ргоседоте Ехапр; 
Бед1п 
епЯ; 


ргоседигте Еоги1 .Ехапр2; 
Бедлп = 
Ехапр; 


епа; 


276 | | Глава 11 


В этом примере объявлена самостоятельная процедура кхатр и метод объекта 
Роги1 — Ехатр2. Из метода Ехапр2 мы вызываем самостоятельную процедуру 
Ехашр. Этот код правильный, потому что процедура сначала реализуется, а потом 
уже используется. | 

А теперь посмотрите на неправильный код, который показан в листинге 11.22. 


ргоседиге Роги] .Ехатр2; 
Беач1п 

Ехапр; 

епа; 


ргосеаиге Ехапр; 
Бед1п 


епа; 


В этом примере происходит попытка вызвать процедуру, которая реализована 
после вызова, поэтому компилятор выдаст ошибку. Чтобы этого избежать, само- 
стоятельные процедуры можно описывать в разделе Уах, как это показано в лис- 
тинге 11.23. | 


1пбеуЁЕасе 


уаг 
‚ргосеиге Ехапр; 


1пр1етепеае1оп 


ргосеаиге Роги] .Ехапр2; 
Беач1п | 

Ехапр; 

епа; 


ргосеёиге Ехапр; 

Беа1п 

епа; | | 
А теперь давайте посмотрим, как же выглядит функция $1азН5ер: 
ЕипсЕ1 оп 51азр$ер (РаеИ, ЕМаме: з6г1па): эбу1пта; 


Бед1п 
1Е Рабр[ШепаеИ (Рабп)] <> '\' ЕВеп 
Кези1Е := РаЕВ + '\' + ЕМаме 
е]1 зе 


Кези1е := Рабр + ЕМапе; 
ева; | 
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Функцию $51азВ5ер уже один раз использовали, но вспомним, что здесь проис- 
ходит. Эта функция получает два параметра — путь к файлу и имя файла, которые 
она должна соединить в одну строку, чтобы получился полный путь к файлу. 
Но сначала мы должны проверить, заканчивается ли путь (первый полученный па- 
раметр — Раев) знаком \'. Переменная Раен — это строка типа $Ег1па, а значит, мы 
можем к ней обращаться как к массиву символов. Чтобы получить доступ к перво- 
му символу, мы должны написать рРаев[1]. Нам нужно проверить последний сим-_ 
вол, поэтому в квадратных скобках используется гепдЕН (РаЕв). Функция гепдеВ 
возвращает длину переданной ей строковой переменной, а это значит, что в квад- 
ратных скобках мы указываем длину строки, т. е. последний символ. 

Если бы нужен был предпоследний символ, то мы бы написали 
Раеп [репдаеЪ (РаеН) -1]. В этом случае из длины строки вычитается единица и в ре- 
зультате получается индекс предпоследнего символа. 

Если последний символ не равен “\', добавляем сначала его, а потом имя файла. 
Если этот символ в строке имеет место, то нужно только добавить. имя файла и за- 
писать в переменную вези1*, чтобы функция вернула полный путь к файлу. ` 

С этой функцией покончено, и пора вернуться к нашему перечислению файлов. 
Следующим идет вызов системной функции знбееЕ11етпЕо. Она возвращает ин- 
формацию о файле. Не будем на ней сейчас останавливаться. В принципе, она про- 
стая и вы, наверное, сможете ее понять по коду, а если нет, то к ней мы вернемся 
немного позже. | | 

Сейчас нас больше интересует работа с компонентом т1зЕ\1ем. Следующий код 
добавляет в список новый элемент: т.1зе\1еи1 .Ткешз.Ааа. Это делается внутри кон- 
струкции мзен, значит, все последующие действия между Ъед1п И епа будут выпол- 
няться с новым элементом. А именно — изменяется заголовок нового элемента: 


Саре1оп :=`беатс|НВес .Маме 
и картинка: 
Тпадетпаех := 5ВТпЕо.1Тсоп 


У каждого элемента есть свойство зчьтЕетз, которое хранит дополнительную 
информацию. Когда компонент находится в режиме отображения иконок, то до- 
полнительная информация не видна. Но если выбрать в свойстве у1еизку1е значе- 
_ НИе узвероге, то компонент будет выглядеть в виде таблицы, где каждый столбец 
отображает дополнительную информацию, как это показано на рис. 11.38. 

Чтобы добавить дополнительные колонки к новому элементу, надо выполнить 
оператор: 

биртТеЕемс$ .АЯА (‘значение’);. 


Чтобы колонки отображались, нужно в свойстве со1итпз указать имена колонок. 
Если имена колонок не указаны, то ничего отображаться не будет. И не забывайте, 
что при описании колонок первая — это заголовок элементов, остальные — это 
дополнительные параметры в порядке их добавления с помощью зиьтЕемз .Ааа. 


| И последнее, что надо еще рассмотреть, — это функция Е11ет1петоракет1мезек, 
которая переводит время/дату из системного формата в строку. Ее код можно уви- 
деть в листинге 11.24. 
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Л Директория [о 
[Имя [Размер 


4] ЗИНОЕОб.ОАТ 9148 20.12.2000... Н5 
5] Чоабни.5 — 960 Системный файл 05.05.1999... АН$_ 
Е ОЕТЬОВ.ТХТ — 74063 - Текстовый документ 11.05.2001... Н$ 
*%] СОМЕб.55 130 Системный файл 04.04.2002... Н 
и СОММАМО.С... 95202 . Приложение М5-205$ 05.05.1399... Н$ 
6 %] 10.579 222330 , Системный файл 05.05.1939... АН$ - 
СЗ] АОТОЕХЕС. В... 460 Пакетный файл М5-005 04.11.2001... Н _. 
%] Мб005.5%5 — 1696 Системный файл 23.11.2001... ААН 
#] м500$.- 3 | 20.12.2000... Н$ 
|=) СЕТИРЦОБ.Т... 126772 Текстовый документ 20.12.2000... Н5 
| ААИМОО\/5 0. Папка с файлами 20.12.2000... А 
ы МЕТЕОВ.ТХТ 3221 Текстовый документ 20.12.2000... Н5 
т |] Моид докумен... 0 Папка с Файлами === 20.12.2000... ры 


ЕопсЕ1оп Е11еТ1теТторабетТ1мебет (Е1]1еТ1ме: ТЕ11]еТлме): эех1та; 


уах 
ТосЕТ1тще: ТР11еТ1те; 
ЗузЕТие: ТбузсеюмТлще; 
ОЕ, Тш: ТРабеТ1ме; 
ред1п | 
Е11еТлмеТоГоса1Е11еТ1ме (Е11еТлме, ГосЕТ2пе); 
Е11еТ1теТобузбемТлие (ГосЕТ1ме, ЗузЕТлте); 
сгу 
м1ЕП бузЕТиае ао 
ред1п | 
РЕ := Епсоаераее (мУеахг, \МопЕН, \мПау); , 
Тм := ЕпсодетТ1ме (мНолк, мМ1побе, мбесопЯ, мМ1111зесоп4з); 
епа; _ 
Везо1Е := БабеТимеТобехг (0е+Тм); 
ехсере 
Вези1е := ''; 
епа; 


ета; 


В самом начале мы приводим дату файла в универсальное глобальное время (по 
Гринвичу). Для этого используется функция Е11ет1метогоса1Е11еТ1ме, У которой. 
два параметра: | 
О переменная типа тЕ11ет1ме, которую нужно перевести; 
0 переменная, в которую будет записан результат. 
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Вторым этапом мы переводим универсальное глобальное время в системное 
время вашего компьютера. Для этого нужна функция Е11ет1метобузеемТ1ве, 
у которой также два параметра: 


С) универсальное глобальное время; 
С переменная результата. 


Теперь у нас дата хранится в переменной зузЕТ1ме и имеет тип тзузеетТ:ме. 
Переменная зузЕТ1ме имеет тип структуры и следующие свойства: 
муеах — ГОД, 

ММопЕ} — месяц; 

Рау — день; — 

УНоцт — Часы, 

\М1пиее — минуты; 

мбесопа — секунды, 

м\ММ11115есопаз — миллисекунды. 

Все это числа, и нам надо превратить их в строку, но так, чтобы строка даты вы- 
глядела в соответствии с локальными настройками системы. Если мы пишем про- 
грамму, которая будет выполняться в однотипной системе (например, в русской 
версии \УМт4о\$ с российским представлением даты и времени), то вы можете вос- 
пользоваться функцией тпЕТо5ег, чтобы превратить все поля в строки и отформа- 
тировать их по своему усмотрению. 

Однако сейчас поступим более универсально. Сначала данные превратим в формат 
Ракет1те. Для этого есть функции ЕпсодераЕе И Епсоает1е. Эти функции создают пе- 
ременные типа траке и ТТ1ме на основе переданных им числовых значений. 

Получив эти переменные, мы объединяем их в более общий формат ракет1ме 
простым сложением и переводим в строку с помощью функции разет1мето$ех. Эта 
функция переводит дату в строку в соответствии с локальными настройками ре- 
гиона в ОС \/тдо\$. Вы же можете воспользоваться и функцией гогтаЕРаке, Ко- 
торая может создать строку даты в любом виде. 


ооо 


ПРИМЕЧАНИЕ. На компакт-диске, прилагаемом к книге, в папке \Примерыь\Глава 11\ 
Н$И\ем/ вы можете увидеть пример этой программы. 


11.23. Улучшенный файловый менеджер 
(с возможностью запуска файлов) 


Давайте добавим к нашему файловому менеджеру возможность путешествия по 
папкам и запуска файлов. Для этого нужно создать обработчик события опрь1С11ск 
для компонента т,1зЕ\1ем и написать в нем содержимое листинга 11.25. 


ргосеаиге ТЕот1 .Г15\1ем10Ъ1С14сК (5епдег: ТОБ)ес®); 
реа1п 


//Это папка? 


10 Зак. 1273 
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1Е (11$56\У1ем1.бе1есееа. баБтТеемз [5] = 'а1х') ЕЪеп. 
Беач1п 
//Если да, то прибавить ‘имя выделенной папки к пути ` 
//и перечитать файлы из нее. | 
ЕЯ11.Техе:=Е9161.Техе+11$6\/1ем1.бе1есееа.СарЕ1оп+'\'; 
АЯЯЕ11е (ЕЯ1Е1.Техе+'*.*', ЕаАпуР11е) | 
епа | 
е1зе 
//Если нет, то это файл и я его запускаю. 
сре11Ехесиее (Арр11саЕ1оп.МазпЕохи.Нара1е, 111, 
РСВаг (ЕЯ1Е1.ТехЕ+11$%\У1ем1 .бе1ессеа.СарЕ1от), '', 
РСВаг (ЕЯ1(1.Техе), $мМ_$НОМ); 
ета; 


В этом коде в самом начале осуществляется проверка произведенного выбора 
(по какому объекту был произведен щелчок мышью). Если это папка, то надо пе- 
рейти в нее, а если файл, то надо его запустить. Для этого проверяется пятый до- 
полнительный параметр выделенного элемента: 

15Е\У1ем1.5е1есееа. бабтТеетз [5] ='91х' 


Когда мы добавляли элементы и дополнительные параметры в ь1зЕ\4ем, то в ка- 
честве пятого для папок указывали значение 'а1х', а для файлов — '#11е'. Теперь 
надо только проверить этот параметр. 

Если выделенная строка — это папка, то мы изменяем текст текущей папки 
В Еа1Е1.ТехЕ и перечитываем ее с помощью вызова дааЕ1т1е, указав новое значе- 
ние папки. 

Если выделенная строка — это файл, то его надо запустить. Это можно сделать 
с помощью вызова функции $Ъе11Ехесиее. о 

У функции следующие параметры: 

‘С программа, отвечающая за запуск приложения. Здесь можно указать значение 
п11, НО мы укажем главное окно программы (Арр11саЕ1оп.Ма1пРоги.Нап@1е); 


О строка, указывающая на операцию, которую надо выполнить. Укажем п11 для 
запуска файла; 

строка, содержащая полный И путь к файлу; 

строка параметров, передаваемых программе в командной строке; 

папка по умолчанию; 


команда показа. Здесь мы укажем $и_5нои для нормального отображения окна. 
Можно указать и другие параметры (все команды вы найдете в файле помощи), но 
чаще всего используются 5и_зной (нормальный режим), $и_$НОММАХТМТ?7ЕР (пока- 
зать максимизировано) или $\_зноимтитмт2еЕр (показать в свернутом состоянии). 


Оооо 


ВНИМАНИЕ. Функция 5$е11Ехесиее объявлена в модуле 51е11ар1, поэтому его не- 
обходимо добавить в раздел чзез, иначе Оери! не сможет откомпилировать проект. 


ПРИМЕЧАНИЕ. На компакт-диске, прилагаемом к книге, в папке \Примеры\Глава 11\ 
НзИА\Лем/ вы можете увидеть пример этой программы. 
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11.24. Подсказки для чайников (ТЗаш5$Ваг) 


Если ОС УМХ создавалась для профессионалов, то \Мт4о\$ создавалась для 
пользователей — непрофессионалов в области вычислительной техники, чтобы им 
легче было работать на компьютере. Потом она превратилась в ОС для всех, ну 
а сейчас У/тдо\$ превратили в ОС для "чайников", которые с компьютером пол- 
ностью несовместимы. Так что теперь для успеха любой программы нужно обяза- 
тельно делать большое количество подсказок, потому что пользователи не любят 
читать инструкции и файлы помощи (знаю по себе), и любой человек должен разо- 
браться с программой без дополнительной информации. 

Самым первым способом облегчения жизни неопытным пользователям стало 
использование строки состояния, т. е. компонента т5еаеизВах. Такие строки и сей- 
час широко’ используются, потому что просты в использовании и удобны в обра- 
щении. Именно с этим компонентом мы сейчас и`познакомимся. 

Установить этот компонент на форму — это еще не значит, что подсказки сразу 
же сами появятся на панели. Для полноценной работы надо выполнить следующее: 


О у компонента, при наведении на который должна отображаться подсказка, . 
в свойстве н1пЕ должен быть занесен текст подсказки, 


О если вы хотите, чтобы подсказка появлялась не только в строке состояния, но 
и над компонентом, то у него или.у родительского окна в свойстве’ $вомн1пе. 
нужно установить егие. 


Итак, пусть необходимо создать обработчик события на подсказки. Может, это 
звучит сложно, но на деле все просто. Создайте новое приложение и установите на 
него кнопку. Теперь в ее свойстве н1пе напишите: "Это кнопка выхода". 

Попробуйте запустить приложение и навести на кнопку указатель мыши. Ника- 
ких сообщений и подсказок пока не должно быть. Закройте программу и перейдите 
опять в Реры. Теперь установите в свойстве 5$номн1иае у компонента или у главной 
формы значение сгое. Если вы установите только у компонента, то подсказка будет. 
появляться только у него. Если у формы, то подсказка будет появляться у всех 
компонентов на форме, у которых есть текст в свойстве нзпЕ И РагепЕЗВомН1пе 
равно Егце. | 

Запустите приложение и проверьте появление подсказки. 

Теперь мы добавим к нашему приложению возможность отображения такого же 
текста в строке состояния. Установите на форму компонент т5ЕасазВаг. Теперь 
перейдите в редактор кода и найдите раздел рк1уаее. В нем добавьте объявление 
процедуры $помн1пе: 

рг1луаее 

{ Рилуаее аес1ага®е1опз$ } 
ргоседиге ЗромНтие (бепаег: ТОБ)есе); 


Имя процедуры может быть и другим (например, музвомну пе), `но параметр 
должен быть именно такой, как показано выше. 

Теперь нажмите сочетание клавиш <Си>+<$>+<С>, чтобы Реры создал за- 
готовку для процедуры. Можете и сами написать полностью код, но я ленивый че- 
ловек и в какой-то степени экономный. Люблю экономить время. 
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Итак, процедура зНомн1пе будет выглядеть следующим образом: 
ргоседиге ТЕоги1. Зпомнае (бепдег: ТОБ)ес®); 
Беа1п 
ЗЕаказВахк1 .51тр1еТехе := Арр11саЕ1оп.Н1пе; 
епа; 


Наша процедура должна будет вызываться каждый раз, когда надо вывести под- 
сказку. Внутри процедуры мы присваиваем в свойство $1тр1еТехе строки состоя- 
ния текст, находящийся в Арр11саЕ1оп.Н1пЕ. А В Арр11саЕ1оп.Н1пе всегда нахо- 
дится подсказка, которую надо сейчас отобразить. 

Теперь создайте обработчик события оп$пом для главной формы и в нем напи- 
шите следующий код: | 

ргоседаге ТЕогтм1 .ЕогиабПом (бепаег: ТОБЗесе); 

Бед1п 

Арр11сае1оп.ОпН1пе := ЗПомНлие; 
епа; 


Здесь программно назначается процедура 5Вомн1пе в качестве обработчика со- 
бытия опн1пе для класса ТАрр11саЕ1оп. Помните, что этот класс реализует функции 
приложения, у этого класса есть и основные события. Одно из таких событий — 
опн1 пе, которое срабатывает, когда нужно отобразить подсказку. 

Но можно было поступить и проще. 


1. Поставить на форму компонент тАрр1 1саЕ1опЕуепез с вкладки АЧФопа1. 


_2. У этого компонента на вкладке Еуепт5 создать обработчик события Опн1пе и там 
сразу же написать следующий код: 
Ссаби$Ват1 ..51тр1еТехЕ := Арр11саб1оп.Н1пЕ 


Но проблема в том, что компонент ТАрр11саЕ1опЕУепЕз появился только 
в РеарЫ! 7, а до этого его не было. К тому же, знать, как можно обойтись без него, 
не помешает. | 


ПРИМЕЧАНИЕ. На компакт-диске, прилагаемом к книге, в папке \Примеры\Глава 11\Ни 
вы можете увидеть пример этой программы. 


Теперь попробуем создать строку состояния 
из нескольких панелей. Выделите строку со- 
стояния ‘и дважды щелкните левой кнопкой 
мыши по СВОЙСТВУу Рапе1з. Перед вами должно = 
открыться окно редактора панелей (рис. 11.39). || О тааРала 

В этом окне кнопка [3 создает новую панель 
(также можно нажать клавишу <15$>). Вторая 
кнопка К удаляет выделенную в окне панель 
(также можно нажать клавишу <Ое]>). 

Создайте новую панель и в ее свойстве мзаев 
(ширина) установите значение 200. Теперь создай- 
те еще одну панель. Все, можно закрывать окно. 

Перейдите в процедуру обработчик события опн1пе и измените ее текст на: 

ЗсабизВау1.Рапе1$[1].ТехЕ := Арр11сае1опт.Н1пЕ; 


|; ЕФИИО 5) кавиВаг1. Рапей5 


Рис. 11.39. Редактор панелей 
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Здесь В СВОЙСТВО Техе первой панёли строки состояния присваивается текст со- 
общения (Арр11сае1оп.Н1пе). Во второй панели вы можете выводить любой текст 
и использовать еге по своему усмотрению. Для этого в любом месте кода можно 
. Написать: 

ЗсаеизВаг1 .Рапе1$[2].ТехЕе := 'Текст' 


ПРИМЕЧАНИЕ. На компакт-диске, прилагаемом к книге, в папке \Примеры\Глава 11\ 
Ни\Рапе!$ вы можете увидеть пример этой программы. 


11.25. Панель инструментов 
(ТТооВаги ТСотко!Ваг) 


Панель инструментов уже уверенно вошла в нашу жизнь. Трудно представить 
себе какой-нибудь хотя бы более-менее значащий проект без такой панели. Неко- 
торые считают, что меню достаточно, а некоторые, наоборот, обходятся только од- 
ной панелью инструментов. Однако практика показывает, что любое оконное при- 
ложение должно иметь и то и другое. 

Панель инструментов чаще всего располагается сразу же под меню, но это не 
обязательно. Иногда удобно расположить ее вдоль какой-нибудь стороны окна (ле- 
вой, правой или нижней). В наших примерах мы будем располагать ее`в основном 
сверху (классический вариант), как это делается в большинстве программ, напри- 
мер, М5 \ога. | 

Давайте создадим приложение, использующее панель инструментов. Установи- 
те на форму компонент сопехо1Вах с вкладки Ад@опа! и измените его свойство 
А11ап На а1Тор, чтобы растянуть компонент вдоль верхней кромки окна. Сразу же 
желательно изменить и свойство Ацео51 те На егие. 

Компонент сопего1Вах не рассматривался, потому что в нем нет ничего особен- 
ного, но он хорош тем, что на него удобно располагать панели инструментов. Они 
автоматически становятся перемещаемыми внутри Сопего1Вак. Это значит, что па- 
нели можно будет двигать по своему усмотрению. Ну а если свойство Ацео$12е 
равно гие, то компонент будет автоматически растягиваться и сужаться, когда вы 
будете выстраивать все панели в одну строку или в-столбик. | 

Давайте теперь установим на компонент сопехо1Вак одну панель  тоо1 Вах 
с вкладки \Ут32, Сразу же изменим одно его свойство. Дважды щелкните левой 
кнопкой мыши по свойству Еадевогаегз и измените свойство еБТор на Еа15е. Это 
заставит исчезнуть оборку сверху панели. 

Желательно также сразу изменить и здесь свойство АцЕо$1те на егие, чтобы па- 
нель принимала размеры, соответствующие кнопкам. 

Теперь создадим кнопки на панели. Для этого щелкните по ней правой кнопкой 
мыши и выберите из появившегося меню пункт №ем ВиЙоп. Пункт №е\у Зерагаюг. 
этого же меню создает разделитель между кнопками. Если вам нужно будет уда- 
лить кнопку или разделитель, то просто выделяете его и нажимаете на клавиатуре 
клавишу <Ое]|>. | 

Таким образом, создайте две кнопки, потом разделитель и еще одну кнопку. 
У вас должно получиться нечто похожее на рис. 11.40. 
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В принципе, простая панель уже 
создана, но она простая. Тенерь необ- 
ходимо сделать так, чтобы кнопки что- 
то отображали: Но для начала выдели- 
те саму панель и измените свойство 
Е1ае на сгие, чтобы кнопки на панели. :::::11::11 
выглядели более изящно (плоско). Да, — : Е: ге Е о ь 
для современных приложений этот вид И о | 


м | 
Ме Вивкоп 
| .- № ера. 


мы 


вк г — | ь . 


пили икениия 


. “. : Ар еп = › 
уже не такой современный, но все же | 9 Та Отбег.., 
достаточно удобный. 11; 8 сеавол Огег... 

Теперь установим на форму компо- `-:: ВЫ — Роме Ко Тиненкео 
нент Тттадег1зе и добавим в него три __ Аа лю Верозкогу.., 
картинки. Их изображение пока не | _ __ Мен аз Тех 
имеет особого значения, поэтому мож- [У тевом 
но выбирать любые. Главное, чтобы Рис. 11.40. Создание новой кнопки 


размер был 16х16. 

Выделите панель и в свойстве тмадез 
укажите созданный набор картинок. 
На кнопках сразу же отобразятся картинки в той последовательности, в которой вы 
их добавили. Если вы хотите изменить картинку на какой-нибудь кнопке, надо вы-. 
делить ее и изменить свойство Ттадетидех. | 

Для каждой кнопки в свойстве сарЕ1оп напишите осмысленный текст (по умол- 
чанию там стоит текст Тоо1ВаЕсоп плюс порядковый номер кнопки). Желательно, 
чтобы текст соответствовал изображению на картинке. Давайте сделаем так, чтобы 
панель отображала на кнопках не только картинки, но и указанный в свойствах 
СарЕ1оп текст. Для этого установите кгие в свойстве зНоиСарЕ1опз У панели инст- 
рументов. Результат вы можете увидеть на рис. 11.41. 

Как видно, в данном случае текст отображается под изображением. Если еще 
установить свойство 11зЕ у панели инструментов, то текст будет отображаться 
справа от картинки (рис. 11.42). 


Рис. 11 .41. Панель, отображающая картинки Рис. 11.42. Панель, отображающая текст 
и текст ‚ справа от картинки 


Для закрепления материала давайте создадим обработчик события для какой- 
нибудь из кнопок. Последняя кнопка — Выход, вот для нее и создадим обработчик. 
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Для этого дважды щелкните по ней левой кнопкой мыши и в созданной реры 
процедуре напишите с1озе. 


ПРИМЕЧАНИЕ. На компакт-диске, прилагаемом к книге, в папке \Примерь\Глава 11\ТооВаг 
вы можете увидеть пример этой программы. | 


11.26. Перемещаемые панели 
и меню в стиле М$ (Босктд) 


Очень часто разработчики приложений интересуются, как добиться такого 
эффекта, как у Тоо1Ваг в М$ ОЁсе. Для большей ясности — это когда палитру 
с кнопками можно оторвать от окна и прилепить в другое место или вообще пре- 
вратить в отдельное окно. 

Для того чтобы ттоо1Ваг Можно 
было перемещать, достаточно уста- 
НовИиТЬ в Нем Свойство РОхадк1па 
В ЧКроск. Вот и все. Но главная про- | 
блема не в этом. Самое сложное еее Е 
здесь — это сохранить положение К ФФ 
ТТоо1Ваг после выхода из програм- 
мы и восстановить его при запуске. 
Для примера напишем маленькую 
программу, которую вы можете до- 
‚ вести до полноценной. | 

На рис. 11.43 показана форма, ко- 
торую мы будем использовать для 
создания примера. Для демонстрации 
понадобилась кнопка, по нажатии 
которой будет выводиться положение 
ТТоо1Ваг. Для события, связанного 
с нажатием кнопки, пишем код, пред- 
ставленный в листинге 11.26. 


аа 


Рис. 11.43. Форма будущего примера 


ргоседите ТЕГогт1 .Вае6оп1С11сК (бепаеху: ТОБ)ес®); 


\хаг 
х:ТКБесе; 
Бед1п 
1ЁЕ Тоо1Ваг1. НОЕ роса Ке<>Сопего1Ваг1 сВеп 
Беачлп 
сееИ/1паомВесе (Тоо1Ваг1 .Нап@а1е, В}; 
Арр]11сае1оп. МеззадевВох (РСЪах (ТпЕТоЗЕг (г. ГеЕЕ)+'--'+ТпЕТобегх (у. Тор)), 
'ММ', ТРОК); 
епа; 


епа; 
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В первой строке происходит проверка, лежит ли Тоо]1Вах1 на Сопего1Вак1 
с помощью конструкции: 
Тоо1Вах1.НозЕРоскб1Ее<>Сопёго1Ваг1 


Если лежит, то получить положение Тоо1Вахг1 очень просто. Для этого нужно 
узнать всего ЛИШЬ Тоо1Ваг1 .ГеЕф И Тоо1Ваг1.Тор. 

Если Тоо1Ваг1 не лежит на компоненте Сопего1Вах1 (Тоо1Ваг1 выглядит как от- 
дельное окно), то задача усложняется. Вам придется вызывать СееМ1паомВесе, ЧТо- 
бы получить реальное положение Тоо1Ваг1 на экране. В качестве первого парамет- 
ра вы должны передать указатель на Тоо1Вах1, а второй — это переменная типа 
твеск, в которую запишется реальное положение окна. Для удобства мы выводим 
эти значения в окне сообщения Арр11саЕ1оп.МеззааевВох. 

Все это делается для наглядности. Теперь можно запустить программу и пере- 
местить Тоо1Вах1 на экране. Каждый раз, когда вы будете нажимать кнопку, про- 
грамма будет ВЫВОДИТЬ ОКНО сообщения И показывать вам реальное положение 
Тоо1Ваг1. 

Для события оп5$Ном напишите: 

ргосеаиге ТЁРотт1 .ЕоттабПом (бепаехг: ТОБзес®); 

Беа1п 

Тоо]1Вах1 .Мапиа1Роск (111,111, а1Мпе); 
Тоо1Ватг1 .Мапаа1Е1оае (Воипа$ (100, 500, Тоо1Ваг1 .ОпаосКкМ1асв, 
| Тоо1Вах1 .ОпдоскНелаве)); 
епа; 


Строка Тоо1Вах1 .Мапиа1роск заставляет переместить тоо1Ваг1 на новый компо- 
нент. В качестве первого параметра указывается указатель на компонент или окно, 
к которому мы хотим прикрепить Тоо1Вах1. Пусть требуется, чтобы после загрузки 
Тоо1Ваг1 превратился в отдельное окно, поэтому для первого параметра указывает- 
ся п11. Значение второго: параметра можно оставить п11. Он означает компонент 
внутри компонента, указанного в качестве первого параметра, на который мы хо- 
тим поместить Тоо1Ваг1. Третий параметр — выравнивание. 

С ПОМОЩЬЮ Тоо1Ваг1.Мапиа1Е1оаЕ Двигается Тоо1Ваг1 внутри нового компо- 
нента. Новый компонент п11, т. е. окно, поэтому двигается тоо1Вах1 по окну. Мо- 
жет, не совсем понятно? Попробуйте запустить пример и поработать с ним, тогда 
все встанет на свои места. | | 

И еще тоо1вах1.Опаоски1аЕн И Тоо1Вак1.Опдоскне1ане возвращают размер 
компонента Тоо1Ваг1, когда он выглядит как окно, а не лежит на СопЕго1Ваг1. | 

Когда вы будете использовать это в своей программе, для сохранения положе- 
НИЯ Тоо1Ваг1 Вам надо будет написать для события Опс1озе следующий КОД: 

\уах 

г:ТВесе; 
Беач1п 
1ЁЕ Тоо1Ватг1 .НозЕПоск$16е<>СопЕго1Вах1 ЕВеп 
Беач1п 
сен\1паомвесе (Тоо1Вах1 .Напа1е, В); 
Здесь надо сохранить в реестре В.ЦеЕЕ и В.Тор. 
А также признак, что Тоо1Ваг1 не лежит на СопЕхго1Вах1 
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епа 
е1зе 
ред1п 
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Здесь надо сохранить в реестре Тоо1Ваг1.1еЕЕ и Тоо1Ват1.Тор. 


А также признак, что Тоо]Ваг1 лежит на СопЕго]Ваг1 


ета; 
епа; 


На запуск программы (по событию оп5пом) вы должны написать код: 


ргоседиге ТГогт1 .ЕКогтабВом (бепдег: ТОБ)ес®); 


Бед1п 


Прочитать положение Тоо1Вахг1. СопЕго]Ваг1 то 


Веач1п 


Тоо1Ваг1 .ГеЕЕ:=Сохраненная левая позиция 


Тоо1Ва!1 .Торё:=Сохраненная верхняя позиция 


Епа; 
Иначе 
Бед1п 
Тоо]1Ваг1 .Мапаа1РоскК (п11,п11, а1Мопе); 


Тоо1Ваг1 .Мапца1Е1оае (Воцп@$ (Сохраненная левая позиция, 


Сохраненная правая позиция, Тоо1Вах1 .ОпЧоски1аЕн, 


Тоо]Вах1 .ОпаоскНе1ате)); 
Ера; | 
епа; 


Как видите, подводные камни есть. Но все же ничего очень сложного нет. 


Теперь мы сделаем меню в стиле М$. Для этого есть два способа, и сейчас рас- 
смотрим самый простой из них. Поместите на форму еще один Тоо1Вах и устано- 


вите его свойство 5помСарЕ1от В Егие. Со03- 
дадим на нем две кнопки и назовем их ЕЙе и 
ЕДЕ. Теперь установим компонент Ма1пМепо 
и сделаем его таким, как показано на 
рис. 11.44. Пункт меню №1 у1$1Ше сделаем 
невидимым (свойство \15$1Ъ1е = Еа1зе). 
В этом случае все меню будет подключено 
к форме, но будет невидимо. Для чего это 
делается, ведь можно было использовать 
РорирМепи? А потому что при использова- 
НИИ РорирМепи приходится мучиться с кла- 
вишами быстрого вызова, а в этом способе 
они подключаются автоматически вместе 
с главным меню. 


"71 Рог 1 .МатМепи1 


Рис. 11.44. Меню 


Чтобы создать подменю для меню ЕШе, нужно щелкнуть по нему правой кноп- 
кой мыши и выбрать Сгеже Зибтепи или нажать клавиши <Си|>+<->. | 

Теперь кнопке ЕШе в свойстве мепатееш ставим Е11е1 (имя пункта меню), 
а кнопке ЕЧИ ставим Еа1 1. И последнее, обеим кнопкам нужно установить свой- 


СТВО Сгопреа В сгое. 
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У каждой кнопки панели инструментов надо установить в свойстве сгочреа зна- 
чение егие, чтобы переход между ними был упрощенным. Если этого не сделать, 
то, открыв меню ЕПе, вы сможете перейти в другое меню только по щелчку мыши. 

Но это не единственный способ создания меню. Можно создать полноценное 
главное меню. Потом просто убрать его из свойства главной формы Мепо и указать 
у созданной вами пустой панели (без всяких кнопок) в таком же свойстве Мепц. 
С одной стороны, это проще, но будет тяжело контролировать такое меню, когда 
у вас большой проект. Когда у вас указано меню для главной формы, то горячие 
клавиши автоматически начинают работать. Если СВОЙСТВО Мепи главной формы 
очистить, то горячие клавиши придется устанавливать вручную. 


ПРИМЕЧАНИЕ. На компакт-диске, прилагаемом к книге, в папке \Примерь\Глава 11\Ооск 
вы можете увидеть пример этой программы. 


11.27. Меню и панели на основе Асйом 


До этого создавались стандартные меню и панели. Для этого мы использовали 
разные компоненты. Чтобы создать меню и панели в более современном стиле, 
нужно использовать совершенно другие компоненты, потому что М5 почему-то не 
захотело развивать старое направление функций работы с меню. Но преимущество 
не в том, что можно сделать меню в каком-то стиле, а в том, что они построены на 
действиях АсНоп. | 

Пример, описанный в этом разделе, можно воссоздать в Веры 6 и 7. В более 
старых версиях необходимых компонентов просто нет. 

Некоторых программистов смущают компоненты АсЕ1опМападех, Аск1опМа1пМепиВаг 
И АСЕ: опТоо1Вах на вкладке Ааопа|. Это возможно по причине консерватизма 
и привычки использовать классические Тоо1Вахг И Ма1пМепи. Давайте попробуем - 
перебороть себя и написать приложение с помощью новых компонентов. Вы буде- 
те в восторге, поэтому что эти новые компоненты действительно упрощают 
и улучшают программиревание. 

Итак, создадим новый проект и поместим на главную форму по одной копии 
компонентов АсЕ1опМапачех, АсЕ1опМа1пМепиВах И АСЕ1оПТоо1 Вах. Для большей 
красоты нужно поместить на форму еще и набор картинок тмадег1зЕ с вкладки 
У\т32. В этот набор нужно добавить картинки размером 16х16 для ваших будущих 
кнопок и пунктов меню. После этого выделите Асе1опМападек И в свойстве ттадез 
укажите созданный набор картинок. . 

Теперь создадим набор действий. Для этого дважды щелкните мышью по ком-. 
поненту АсЕ1опМападек, и вы увидите окно, показанное на рис. 11.45. Чтобы соз- 
дать новое действие, нужно щелкнуть по кнопке “Я. В списке Асезопз появится 
новый элемент АсЕ1оп1. Выделите его и посмотрите в объектный инспектор. Здесь 
нас интересуют следующие свойства: = 


О СарЕ1оп — заголовок элемента (для начала создадим элемент "Новый"); 


С саседоку — категория (просто введите здесь слово "Файл", и будет создан но- 
вый раздел). 
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С съескеа — оставьте кхие, если 
элемент должен иметь два со- 
стояния — выделенный и нет 
(для таких элементов нужно 
еще —ставитъ и — свойство 
АосоСнеск в ехие, чтобы они 
автоматически выделялись); 


"Ето Гог 1 .АсбопМападег! 


Тозья Ао | ор] | 


40п$: 


О Епар1еа — доступность; 


О н:оЕ — подсказка, чтобы она 
появлялась, у формы нужно ус- 
тановить в свойстве зномнапе 
значение егие; 


| — -Оезсирвот-=- п — - - —— 
С тпадетоаех — индекс картинки; й и 


о мкдых ооо, обиты 


О) 5поЕсие — горячие клавиши. 


Это основные свойства, с кото- 
рыми вы будете часто работать. 
Попробуйте создать четыре эле- 
мента с заголовками: "Новый", 
"Редактировать", "Удалить" и "Вы- 
ход" с категорией саседогу, рав- 
ной "Файл". После этого создайте 
еще один элемент с заголовком "О программе" и в свойстве саседогу укажите 
"Помощь". Будет создана новая категория с таким именем. 

Теперь захватите указателем мыши имя категории "Файл" и перетащите его на 
компонент АсЕ1опМа1пМепиВах. То же самое проделайте и с категорией "Помощь". 
Будут созданы два пункта меню. Если вы теперь посмотрите меню Файл, то уви- 
дите, что все элементы находятся последовательно, хотя желательно сделать разде- 
литель, чтобы отделить пункт Выход. Для этого существует кнопка Ога? ®ю сгезе 
эерага{ог$, которая расположена внизу окна создания наборов. Возьмите эту кноп- 
ку и перетащите на меню Файл, когда меню раскроется, установите мышь между 
пунктами ‘Удалить и Выход. | 
Если теперь щелкнуть по меню 
Файл, то можно увидеть резуль- 


Рис. 11.45. Окно создания действий 


\ 


тат, показанный на рис. 11.46. т пе В 
Попробуйте сейчас запус- С Новый сим | 

тить программу, и вы увидите, [Ра Редактировать 

что все пункты недоступны. || Удалить 

Это связано с тем, что для этих |= Выход 


пунктов не созданы обработчи- 
ки событий оОпЕхесиее. Само 
событие срабатывает, когда 
пользователь выбирает какой- 
то элемент меню, как событие 
Опс14ск. Опять возвращаемся Рис. 11.46. Меню Файл 
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в окно создания наборов действий. Создайте для всех элементов обработчики собы- 
ТИЙ ОпЕхесисе. Чтобы эти обработчики не исчезли при компиляции и сохранении 
проекта, можете написать там какой-нибудь код или просто поставить знак коммен- 
тария //. Если вы снова запустите проект, то теперь все пункты будут уже доступны. 

Теперь возьмем категорию "Файл" в окне создания наборов действий и перемес- 
тим ее на компонент АсЕ1опТоо1Ваг. Этим мы создадим кнопки на панели для всех 
действий из категории "Файл". Единственный недостаток — кнопки отображаются 
с заголовками, а это действительно недостаток, потому что более удобно, когда 
видны только изображения (рис. 11.47). Чтобы исправить этот недостаток, нужно 
выделить компонент АсЕ1опМападег и дважды щелкнуть справа от свойства 
АСсЕ1опВаг$з. Перед вами должно открыться окно, показанное на рис. 11.48. 

В этом окне созданы два элемента Асе1опВаг. Один связан с меню 
АСЕ1оПМа1пМепиВах1, а второй — с панелью кнопок АСЕ} ОПТоо1Ваг1. Выделите 
второй из них и установите свойство Аицко$12е в значение Еа1зе. После этого у па- 
нели с кнопками справа внизу появится маленькая кнопка со стрелкой вниз. Нажав 
на эту кнопку, пользователь сможет корректировать, какие кнопки надо отобра- 
жать на панели, а какие нет. Только это будет возможно, если в свойстве г11еМаме 
у компонента АсЕ1опМападег указано имя файла. В этом случае компонент сможет 
автоматически сохранять в этом файле информацию о кнопках меню или панелей, 
а также восстанавливать их после перезапуска. 


Файл тов Помощь. На т г: ов . 


р в Новый Ра Редактировать х Мали | | @ програ 


Г ‚ЕЧип9 АсНопМападег! „АсНопВ... | Ж; | 


10 - АспопВ аг ->АсНопМ апМепиВ а 1 
1 - АспопВаг ->АсбопТ ооВа!1 


Рис. 11.47. Результат создания кнопок Рис. 11.48. Окно настройки 
панелей 


Теперь выделим вторую строку (АсЕ1опвахг->АсЕ1опТоо1Ваг!1) и дважды щелк- 
_ нем мышью по свойству тЕемз. Перед вами откроется еще одно окно с названиями 
кнопок, которые созданы на панели. Здесь выделять ничего не надо. Просто щелк- 
ните в окне левой клавишей мыши, чтобы выбрать свойства самого окна, а не како- 
го-либо элемента. Найдите свойство СсарЕ1опОрЕ1оптз и установите его в соМопе. 
После этого все заголовки кнопок исчезнут. 

То же самое можно было проделать еще одним способом — дважды щелкнуть 
кнопкой мыши по компоненту Асе1опМападег-и на вкладке Тоо]Ваг$ последова- 
тельно выбирать панели и устанавливать для каждой из них в СарНоп ОрНоп$ зна- 
чение мопе. — 
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Чтобы еще больше украсить пример, отсортируйте все кнопки на панели по сво- 
ему усмотрению и установите разделители (5ерагакогз) таким же перетаскивани- 
ем, как мы делали это для пунктов меню. Можете еще переместить действие 
"О программе" на панель. Для этого можно переместить всю категорию "Помощь", 
а можно только одно это действие. 

Теперь еще более усложним пример. Снова возвращайтесь в окно создания наборов 
действий, сейчас мы создадим еще один элемент. Щелкните по кнопке со стрелкой 
вниз (расположена справа от кнопки я). В появившемся меню выберите пункт М№е\ 
апдаг( Асбоп, и вы увидите окно, в котором перечислены стандартные действия, ко- 
торые могут обрабатываться автоматически. В самом низу этого окна найдите пункт 
ТСизЕоп12еАсЕ1опВагз. Выделите его и нажмите ОК. Так вы создадите новую’ катего- 
рию тоо1з с одним только действием внутри — сизЕоп1 те. Вы можете переименовать 
заголовок СарЕ1опз и категорию сакедогу созданного элемента и написать все на род- 
ном языке. Этого делать не будем, чтобы в: исходном коде можно было сразу увидеть 
данный пункт. Перетащите категорию Тоо1з на панель с меню. 

Попробуйте запустить пример и выбрать пункт Сизеот1=2е из меню Тоо1з. Перед 
вами откроется окно, похожее на создание наборов действий. Только здесь вы не може- 
те создать ничего нового, зато можно перетаскивать кнопки на панель, создавая новые 
кнопки, или удалять имеющиеся с помощью перетаскивания кнопок обратно в окно 
(можно даже не в окно, а в любое место, как бы снимая кнопки с панели). Получается, 
что, не написав еще ни одной строки кода, мы создали редактируемую панель. 

Остается сделать один только маленький штрих. Выделите компонент 
АСЕ1оПМападег И в свойстве г11еМапе укажите какое-нибудь имя файла (пусть это 
будет коо1Ъаг.аае). В этом файле будут автоматически сохраняться все настройки 
кнопок панелей и любые изменения, внесенные в режиме КипИте, т. е. во время 
выполнения программы. Указав файл, снова запустите пример. Обратите внимание, 
что кнопка со стрелкой вниз на панели кнопок не доступна. Это связано с тем, что 
файл гооаг.Ча! не существует. Закройте программу. Во время закрытия она сохра- 
няет все состояния кнопок и создает файл настроек. Запустите программу еще раз, 
теперь уже все доступно и работает, потому что юо[баг.Ча{ существует. 


ВНИМАНИЕ. Если вы указали файл, в котором должны сохраняться настройки, то 
помните, когда в дизайнере изменяется положение кнопок (добавляются новые или 
удаляются имеющиеся), во время выполнения это отражаться не будет, потому что в 
файле {1оофаг.Да{ нет никакой информации об изменениях. Чтобы изменения прошли, 
нужно удалить файл или во время выполнения программы проделать те же измене- 
ния, вызвав пункт Сиз{ютте из меню Тоо$. 


Вот таким простейшим образом мы создали набор действий. У каждого дейст- 
вия создали обработчик события опЕхесиее, в котором написали необходимые для 
выполнения действия. Только после этого перетаскиваем действия на панель меню 
или панель кнопок. 

И, наконец, самое последнее — научим наше главное меню  тбрасывать тень. 
Создайте новое действие в категории тоо1$ И укажите у него следующие свойства: 
С) саре1оп — тень; 

С докосвеск — Ехце; 


С] мапе — Мепа$вадомАсе1 оп. 
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Для события опЕхесиее напишите следующий код: 

ргоседауе ТЕГогп1. МепиЗрадонАсетопЕхесисе (Зепдег: ТОБ3ЗесЕ); 

Бед1п 

АсЕ1опМа1пМепиВат:1 .5ВаЯомз := МепибрааомАсе1от .Спескея ; 

епа; | 

Запустите программу. и посмотрите, как ‘будет изменяться главное меню при 
разном состоянии пункта Тень. 

Очень интересным является свойство 5Еу1е компонента АсЕ1опМападег. Попро- 
буйте изменить его и посмотреть на результат. В Бер! 7 появился новый компо- 
нент хРМап1 Еезе на вкладке УУт32. Просто поместите его на форму, и все кнопки 
и элементы управления в У\Лтдо\$ХР будут иметь стиль ХР. 


11.28. Всплывающее меню на основе Асйоп 


Мы научились создавать меню и панели в стиле ХР, но эти методы не работают 
с всплывающими меню. Давайте установим на форму компонент РорирМепо. Дваж- 
ды щелкните левой кнопкой мыши по компоненту. В редакторе меню сделайте 
следующее: 
1. Создайте новый пункт меню (кнопка Шт5ег®). 


2. В свойстве АсЕ1оп укажите действие, которое должно быть ассоциировано 
с этим пунктом меню. 


Все необходимые свойства нового элемента заполняются автоматически. Боль- 
ше здесь ничего делать не нужно. 
_ Назначьте это меню главной форме. Единственный недостаток — всплываю- 
щее меню будет выглядеть не так, как основное. Но этот недостаток тоже можно 
_ исправить. На компакт-диске, прилагаемом к книге, в папке \Компоненты\АсНоп 
находится пакет для работы со всплывающими меню в стиле ХР (компонент 
РорирАсЕ1опВагЕх). Просто почему-то он не вошел в состав Оеры 7. В Вары 2005 
этот компонент был уже добавлен в стандартную поставку, но опять же, по непонят- 
ным причинам он был переименован в РорирАсЕ1опВаг. В конце пропали буквы "Ех". 

Работать С РориурАсЕ1опВагЕх Так же просто, как и с РорирмМепуа, и тут нет ника- 
ких отличий в свойствах и методах, только во внешнем виде. Во всплывающее ме- 
ню нельзя перетаскивать действия из менеджера, но вы можете создавать пункты 
меню и в свойстве аАсЕ1оп самостоятельно указывать существующие действия. Для 
этого можно ввести имя действия или выбрать его из ниспадающего списка. 


11.29. Практика использования АсНоп 


В этом разделе мы глубже окунемся в мир действий тАсЕ1оп. Для рассмотрения . 
практики возьмем за основу пример файлового менеджера, написанного в разд. 11.22. 
Допустим, что вы хотите добавить на панель задач кнопку, по нажатии которой 
будет запускаться выделенный файл. При этом кнопка должна быть доступна толь- 
ко тогда, когда в сетке выделен хотя бы один файл. 

Чтобы изменять состояние кнопки, можно через событие опбе1есетеет компо- 
нента ть+зЕ\У1еи отслеживать, когда выделен файл, а когда нет, и в зависимости 
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от этого изменять свойство ЕпаЪ1еа действия, отвечающего за запуск файла. Это 
событие вызывается каждый раз, когда изменяется состояние выделения опреде- 
ленного элемента. | | 
В данном случае у нас только одно условие, от которого зависит доступность 
команды — выделен ли файл в списке или нет. Иногда бывают случаи, когда усло- 
вий бывает несколько и в этом случае контролировать доступность действия стано- 
вится очень сложно. Но это и не нужно. У АсЕ1оп есть способ лучше. 
Итак, откройте пример из разд. 11.22 и поместите на форму Асе1опМападех 
и создайте в нем действие. Теперь можно поместить на форму панель и меню и пе- 
ренести на них действие. У меня получилась форма, показанная на рис. 11.49. 
Ну и самое интересное — для действия создаем обработчик события опорадаее, 
в котором пишем: 
ргоседиге ТЕогт1 .асЕхесОрааке (бепаег: ТОБЗесЕ); 
Беач1п 
1Е Г1$6\/1ем1 .бе1есбеЯ<>111 Епеп 
асЕхес .ЕпаЪ1еа: =Егае 
е1зе 
ТАСЕ1оп (бепаег).ЕпаБ1е@: =Ёа15е; 


епа; 


— х < -, 7. 
{‘ Файловый менеджер _ 


Данное событие вызывается 
каждый раз, когда нужно об- 
новить состояние компонента. | 
Здесь мы проверяем, если свой- о | 
СТВО Зе1ескея У тазе\Уем не | Директория [69 
равно нулю, то значит есть выс 
деленный файл и действие. } [>] 
можно сделать доступным, 
иначе его делаем. недоступ- | - 
ным.’ Для примера в обоих | |" | 
случаях я обращаюсь к асЕ:ор | №955 — 10545 — М$0055%5 НТОЕТЕСТ. — м4 
по-разному. Чтобы сделать | 
действие доступным, я обра- 
щаюсь к нему напрямую: 

асЕхес.ЕпаБ1еа: =егие 


Файл 


й Выполнить 


| амоехесьаё — Бос Вообот.Ьп Ооситег$ | 
| апд бе пд$ 


Рис. 11.49. Форма файлового менеджера 


В противном случае обращение происходит через переменную зепаег, которая 
передается событием в качестве параметра, и в ней находится указатель на дейст- 
вие, которое требует обновления: 

ТАСЕ1оп (бепаех) .ЕпаЪ1еа: =Ёа1зе; 


_ Первый вариант удобен тогда, когда обработчик события  брабатывает только 
одно действие, а второй — когда доступность нескольких действий определяется 
одним и тем же алгоритмом. В этом случае можно назначить обработчик события 
для всех действий, и все будет работать корректно. 

Усложним пример и добавим в него возможность сохранения путей в избран- 
ном. Для этого нам понадобится пункт меню Добавить в избранное и соответст- 
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вующее действие ТАсь1оп. Это действие нужно поместить в отдельный раздел 
Избранное, как показано на рис. 11.50. 
Теперь добавьте обработчик события опЕхесиее для добавления в избранное 
ив нем напишите следующий КОД: 
ргоседиге ТЕогт1 .асАЯЯТоЕахуог1Е1езЕхесасе (бепаег: ТОБ)ес®е); 
уах 
МемАсЕ1оп :ТАсе1оп; 
Вед1п 
// создаем действие 
МемАсЕ1оп : =ТАсЕ1оп .Сгеаее (АсЕ1опМа1пМепиВат1);; 
МемАсе1оп .Саре1опт: =О1хесбогуЕЯ1е .Техе; 
МемАсЕ1оп .Н1пе: =О1гесбогуЕЯ1е.Техе; 
МемАсЕ1оп .ОпЕхесиее : =СоТоРауог1Еер1хгесвохгу; 


// добавляем действие в меню 
\1ЕР АсЕ1опМападех1 .Асе1опВаг$ [0]. т кемз [ЕАУОВТТТЕЗ_ ТМОЕХ)]. 
Теемз .Ааяя Яо 
Бед1п 
_ АсЕ1оп: =МемАсе1оп; 
епа; 


епа; ит т ме 
1" Файловый менеджер  _ 
Здесь объявляется одна пе- и ео 


, Файл Избранное | | И 
ременная типа ТАсЕ1опт. В пер- . 
> 5 Добавить в избранное | 
вой строке кода создаем новое 
действие. В качестве параметра 
конструктору передаем панель 
меню, чтобы она владела дейст- 


с: \ 


с\роситег 5 апд бебпа$\Йепоу\ 


вием. В следующих двух стро- ащоекесЬа: — Бобби ВооботЬт — сопйозуе = Боситете 
ках заполняем свойство сарЕ1оп | | ап зениоз — 
И Нате. В оба записываем теку- |«- — 2 . Г-® м К: 


В четвертой строке устанав- Рис. 11.50. Меню для хранения избранного. 
ливается обработчик события 
ОпЕхесиее, ему присваивается 
процедура сотогауог1Еер1кескоку. Теперь когда пользователь выберет это действие, 
то сработает процедура соТтогауог1Еер1хгесвоку. Мы ее пока не создали, но скоро 
сделаем это. 

Двигаемся дальше. Действие полностью настроено, и теперь его нужно доба- 
вить в меню. Новое действие добавляется следующей строкой: 

Асе1опМападет1 .Асс1опВат$ [0].ТЕемз [РАУОКТТТЕ$ _ТМОЕХ] .ТЕетз.Ааа 


Тут достаточно длинная строка, поэтому будем разбирать поэтапно. Самым пер- 
вым указан менеджер действий Асе1опМападег1. У него есть свойство АсЕ1опВагз. 
Если вы сейчас выделите этот компонент и дважды щелкните по свойству, то от- 
кроется окно, в котором можно управлять всеми панелями и меню, добавленными 
в менеджер. Панель меню должна находиться сверху и будет иметь индекс 0 (мас- 
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сивы нумеруются с нуля). Именно поэтому после Асе1опВагз в квадратных скобках 
указан 0, ведь мы добавляем новое действие в меню. 

У панели меню есть свойство теемз, в котором находится массив из всех меню 
на панели. В нашем примере меню Избранное находится вторым слева, а т. к. мас- 
сивы нумеруются с нуля, то, правильнее будет сказать, — первым (меню Файл — 
нулевой). В квадратных скобках логично будет указать 1, но вдруг вы потом захо- 
тите добавить между меню Файл и Избранное что-то другое? В этом случае при- 
дется корректировать код везде, где происходит обращение к данному разделу ме- 
ню, и не факт, что вы все исправите и ничего не забудете. Поэтому я завел 
константу гАУОВТТТЕ$З_тТМОЕХ, которая равна |. 

соп$Е 

РАУОВТТТЕЗ_ТМОЕХ = 1; 


Итак, мы уже добрались до объекта, который отвечает за раздел с пунктами 
нужного нам меню. У этого объекта есть еще одно свойство теемз, а у него уже 
нужный нам метод даа. Этот метод добавляет новый пункт меню и возвращает его 
в качестве результата. 

Мы результат нигде не сохраняем, хотя он нам еще нужен для того, чтобы но- 
вому пункту меню назначить действие Асе1оп. Чтобы не заводить лишнюю пере- 
менную, стоит блок лев, который говорит, что последующий код между Ъед1п 
И ела нужно выполнять с результатом выполнения метода Аза, т. е. с новым пунк- 
том меню. Чуть запутано? Но зато эффективно, т. е. следующая строка назначит 
новому пункту меню созданное нами действие: | | 

‘Асе1 оп: =МемАсЕ1оп; 


Теперь переходим к рассмотрению процедуры сотогауох1Еер1гескогу, которая 
назначается обработчиком события для действий меню избранного. Эту процедуру 
нужно описать в разделе ру1уаЕе нашей формы: 

ргосеаиге СоТоРгауог1еер1гесвохгу (бепаег: ТОБЗесе); 


Реализация этой процедуры будет следующей: 

ргосеаиге ТЁРоут1.СоТоРГауог1ее01гесвогу (бепаехг: ТОБ)ес®); 

Ъед1п | 
21гескогуЕЯ1е .Техе: =ТАсе1оп (бепдег) .Н1пе; 

АЧЯЕ11е (ТАСЕ1оп (беп@ег) .Н1пЕ+'*.*', ЕаАпуЕ11е); 

епа; | 


В первой строке в поле ввода р1гескогуЕа1е отображаем путь, по которому мы 
будем переходить, а во второй вызываем функцию АааЕ:1е, чтобы прочитать папку. 
Чтобы узнать путь, по которому мы собираемся перейти, обращаемся к свойству 
Н1пЕ объекта, который сгенерировал событие (тТАсе1оп (5еп@ех) .Нзпе). Помните, 
что при создании действия для избранного мы помещали в это свойство путь. Вот 
его мы и читаем. 

Тут необходимо заметить, что не стоит использовать свойство СарЕ1оп, В КОТО- 
ром мы также указали путь к папке. Почему? Помните, что для пунктов меню ав- 
томатически создаются буквы быстрого вызова? Перед одной из букв в пути может 
появиться символ &, а значит, путь СХ в свойстве сарЕ1оп может превратиться 
в &С:\, что станет некорректным путем. А вот подсказка никак не корректируется, 
поэтому ее мы и используем. 
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И напоследок очень важная возможность — сохранение и загрузка меню из- 
бранного. Для этого я написал функции 5ауеЕауохг1Е1ез И ГоаЯРауог1Е1ез, КОТО- 
рые вы можете увидеть в листинге 11.27. 


ргоседаге ТРогт1 .бауеРахуог1е1ез; 
уах 
1:Тоседег; 
Рау: Т56г11п91156; 
Бед1п 
Еа\:=Т<ех4пат1 зе .Скеаее; | 
ог 1:=1 Ео АсЕ1опМападег1.Асе1опВаг$ [0]. ТЕетз [РАУОВТТТЕ$ _ТМОЕХ]. 
Теемз$ .СоипЕ-1 ао 
Гал. Ааа (ТАСЕТОП (АСЕ ОПМападет1. АсЕЗопвагз [0] . Те емз [ЕАУОКТТТЕ$_ТМОЕХ]. 
Теемз [1] .АСЕ1оП). Н1пЕ); 
Еах.бахуеТог11е (ЕхЕгасЕР11еРаЕп (Арр11саЕ1Топ. ЕхеМаме) + 'Еа\хог1%1е$ .Чае'); 
Еаху.ЕРгее; 
епа; 


рхгоседиге ТЕогт1 .ГоаЯЕРахохг1Е1ез; 
уах | 
1:Тибсевдег; 
Рау: Т56Еу110911$(; 
МемАсЕ1оп:ТАСЕ1оп; 
Беа1п | 
1ЁЕ пос Е11еЕх1$6$ (ЕхЕгасеЕ11еРаер (Арр]1саЕ1оп.Ехемапе) + 


'Еауог1Е1е; .Чае') Епеп 
ех1С; 


_ ме АсЕ1оПМападехг1 .АсЕ1опВахгз [0]. ТЕетз [РАУОКТТТЕ$ _ТМОЕХ] .ТЕет$ .СочпЕ> 
3 4 | 
АСсЕ1оПМападет1 .АсЕ1опВагз [0]. теетз [РАУОВТТТЕ$ _ТМОЕХ] . ТЕетз .Ре1еее(3); 


Рау: =Т56у1п911$6.Стеаее; 
Еах. ГоаЧЕгЕоиЕ41е (ЕхегасеЕ11еРа В (Арр14саЕ1оп. ЕхеМапе) + 
'Еа\тохг161ез.Ааае'); 


Бог 1:=0 со Еау.СозпЕ-1 ао 

Беа1п 
МемАсЕ1оп : =ТАсЕ1оп .Сгеасе (АсЕ1опМа1пМепиВат1);; 
МемАсЕ1оп.СарЕ1от : =Еа\у.5ех1паз$ [1]; 
МемАсЕ1оп.Н1ие: =Еау. Зех1паз [1]; 


МемАсЕ1 оп .ОпЕхесиее : =СоТога\уохг1 кер1хгескоку; 


м1 Е АСЕ1ОПМападег1 .АсЕ1опВагз [0] .Теешз [РАУОВТТТЕЗ _ТМОЕХ] . Тез .АЯа Чо. 
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Беад1п 
АСЕ1 оп : =МемАсе1оп; 
епа; 

епа; 

Еау.Егее; 


ера; 


Этот код мы рассматривать не будем. Вся необходимая информация у вас уже 
есть, поэтому разбор оставим в качестве домашнего задания. Функцию загрузки 
можно вызывать по событию оп5ном для главной формы, а сохранение — в обра- 
ботчике события опС1озе. 


ПРИМЕЧАНИЕ. На компакт-диске, прилагаемом к книге, в папке \Примеры\Глава 11\Р!еМап 
вы можете увидеть пример этой программы. | 


_ 11.30. События приложения 


До появления ОерН: 7 для отлавливания событий приложения приходилось ис- 
пользовать класс тАрр11саЕ1оп и программно назначать обработчики событий. Для 
меня это не сложно, поэтому в данной книге я делаю по старинке, но для начи- 
нающего программиста это может оказаться проблемой, ведь нужно знать, какие. 
параметры должен получать данный обработчик, и нужно писать вручную описа- 
ние метода. 

Теперь создание событий, относящихся к приложению, упростили дальше про- 
сто уже некуда. На вкладке АЗФопа!| появился компонент тАрр11саЕ1опЕУепез. 
Этот компонент не.визуальный, и если вы поставите его на форму, то в объектном 
инспекторе увидите только два свойства: имя компонента и сад. Самое интересное 
тут кроется на вкладке Еуеп 5, а здесь нам предлагают поймать обработчики собы- 
тий, которые принадлежат классу тарр11сае1оп. Эти события вы можете найти 
в приложении [. | 


11.31. Поле ввода с меткой 


На вкладке А9Фопа| можно найти про- 
стой, но полезный. компонент гае1Еа1е. 
Это сочетание двух компонентов — поле 
ввода тЕа1е и прикрепленной к нему метки 
Тафе1 (рис. 11.51). 

‚ Если посмотреть на свойства компонента, 
то они идентичны полю ввода, единствен- 
ное, что бросается в глаза, — это свойство 
ЕЯ1ЕТЪаъе1. Это свойство ссылается как раз 
на компонент-метку, и, дважды щелкнув по 
нему, вы увидите свойства метки. 


Рис. 11.51. Форма будущей программы 
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11.32. Коробка с цветом 


На вкладке Ад! опа! можно найти ниспадающий список, который в качестве 
элементов списка будет показывать цвета — ТСо1огВох. Свойства элемента в боль- 
шинстве своем напоминают свойства ниспадающего списка тСопьовох. Еще бы, 
у них есть один и тот же предок — ТСизбопСопроВох. | 

Посмотрим на свойства, которые добавляются к ниспадающему списку компо- 
нентом тСо1охВох: 


О реЁау1Со1охСо1ог — цвет по умолчанию, который будет отображаться в списке 
под именем с1реЁац1 <; 


5е1ессеа — выделенный цвет; 
Со1охМамез — имена цветов в ниспадающем списке; 
Со1огз — список цветов; 


оооо 


МопеСо1охСо1ох — пустой цвет, который будет отображаться в списке под име- 
нем с]1Мопе; 


ЗЕуУ1е — свойства, которые определяют, какие цвета должны отображаться 
в списке, и как они должны быть отформатированы. Здесь нам доступны сле- 
дующие свойства: 


® собсапаагЯСо1ог$ — отображать стандартные цвета, 
»е срЕхсепдеаСо1огз — отображать расширенные цвета; 


О 


е собузсещСо1от:$ — отображать системные цвета, 

® сытпс1ааеМопе — добавить пустой цвет; 

® сртпс1оаерегаи1е — добавить пустой цвет; 

® СЬСизЕомСо1ох — добавить в список пункт, позволяющий выбрать свой. цвет; 


е соргебсуМатез — если СВОЙСТВО равно истине, то надо отображать цвета цве- 
тов без приставки с1 вначале имени. 


11.33. Иконка в Зу$етТгау 


Не знаю почему, но многие программисты, особенно начинающие, пытаются за- 
сунуть иконку в системный лоток эует Тгау, который расположен рядом с часи- 
ками в панели задач. Лично я не очень люблю, когда у меня в окнах возле часов 
слишком много иконок. Например, сейчас там только индикатор сетевого соедине- 
ния, регулировка звука и словарь АВВУУ Глпруо. Все аккуратно и ничего лишнего. 

Эстетическая часть использования каких-то компонентов или дизайнерских 
изысков выходит за рамки данной книги, но я рекомендую вам без особой надоб- 
ности не забивать системный лоток лишними картинками. 

Если уж иконка в системном лотке вам необходима, то для ее создания можно 
использовать компонент тбузееТкау © вкладки А99!юпа|. У этого компонента 
следующие свойства: | 
О Апласе — если это свойство равно истине, то включена анимация и в систем- 

ном лотке иконки будут последовательно меняться (как в рисованных мульт- 

фильмах), а картинками для анимации будет служить список в свойстве тсопз. 
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Если это свойство равно #а1зе, то в лотке будет отображаться статичная кар- 
тинка в виде иконки из свойства Тсоп; 


О Ап1табеТпеехгуа1 — задержка в миллисекундах между показами иконок, 


О ва11оопЕ1ааз — определяет стиль иконки подсказки. Вы можете рядом с икон- 
° кой отображать ВаЦооп Нии (всплывающая подсказка) — подсказку, которая, 
помимо классического Напетекста, содержит заголовок и иконку. В свойстве 
можно указать, нужно ли показывать картинку и какой она должна иметь тип. 
Например, для отображения информационной картинки нужно указать значение 
БЕТПЕО. Пример подсказки с такой иконкой можно увидеть на рис. 11.52; 


Ва11опНн1пЕ — текст подсказки ВаПооп; 

Ва11опТ1теочЕ — время отображения подсказки ВаПооп; 

Ва11опТ1Е1е — заголовок подсказки ВаПооп; 

Н1пЕ — классическая подсказка, отображаемая при наведении на компонент; 
Тсоп — иконка, при отображении статической картинки; 

ТсопТпаех — индекс иконки, отображаемой в данный момент при анимации; 
Тсопз — массив иконок, для отображения анимации; 


ооо ошозо 


\15121е — если этот параметр равен истине, то иконка в системном лотке ото- 
бражается, иначе невидима. 


4) Информация х 


Это подсказка Ваюоп, а рядом вы видите иконку Ваооп 


Рис. 11.52. Подсказка Ва!ооп 


Чтобы отобразить подсказку ВаШооп, нужно программно выполнить метод 
ЗНомВа11 оопН1пЕ, который не имеет параметров. | | 

Компонент Зузет Тгау появился в Ое]р№ сравнительно недавно, если я не оши- 
баюсь, то это произошло в Веры 2005. До этого иконку в системный лоток прихо- 
дилось помещать с помощью УМтдо\5 АР] или использовать компоненты сторон- 
них разработчиков. | 


ПРИМЕЧАНИЕ. На компакт-диске, прилагаемом к книге, в папке \Примерь\Глава 11\Тгау 
вы можете увидеть пример этой программы. 


.. 


Глава 12 


Графические возможности 
рерр! 


В этой главе рассказывается, как Дер! помогает упростить работу с графикой 
Упдо\$. Эту тему можно было бы раскрыть даже немного раньше, потому что мы 
уже познакомились с ее основами и немного рисовали. Сейчас рассмотрим вопро- 
сы, связанные с графическими возможностями среды, как можно более подробно. 

УИпдо\5 — это графическая оболочка, и все, что вы в ней видите, — это графи- 
ка. Но для программиста большинство вещей очень сильно упрощено, особенно 
в Реары. Поэтому мы пока еще не сталкивались с графическими средствами очень 
близко. Но если вы соберетесь писать какой-нибудь большой проект, то обязательно 
столкнетесь с проблемой рисования при оформлении определенных частей программы. 

Так как У ш4о\5$ — это графическая оболочка, то дальнейшее обучение про- 
граммированию невозможно без изучения этой главы. Так что не пропустите и 
прочтите полностью, даже если вы думаете, что эта тема вам не нужна. Даже при 
написании программ работы с базами данных мне иногда приходится использовать 
в приложении графические функции ОС. .. 


12.1. Графическая система МИпаом $ 


У многих визуальных объектов есть объектное свойство Сапуаз, через которое и 
происходит рисование. Почему объектное? Да потому что сапуаз имеет тип объек- 
та тсапуаз. То есть в нашем компоненте за рисование отвечает объект. Таким обра- 
зом, если компонент поддерживает рисование, то у него обязательно должно быть 
такое свойство. 

Сапуаз в переводе с английского означает холст. Получается, что каждый ком- 
понент — это холст, на котором нарисовано изображение компонента. Взглянем на 
кнопку. На самом деле это не кнопка, а холст, на котором нарисовано изображение 
кнопки и текст. Когда вы щелкаете клавишей мыши по кнопке, изображение изме- 
няется и приобретает вид нажатой кнопки. 

Графика У/Лт4о\з действительно представляет рисование на холсте. А для этого 
необходимы две вещи — карандаш для рисования (Реп) и кисть для закраски 
(вгизН). Именно такие свойства и присутствуют у объекта сапуаз. Карандаш ис- 
пользуется для рисования линий и контуров, а кисть используется для закраски 
замкнутых областей. У обоих есть свои свойства (цвет, тип ит. д.), но чтобы было 
понятнее, посмотрите на рис. 12.1. 
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Это простой прямоугольник. Контур прямо- 
угольника рисуется карандашом (в данном слу- 
чае черного цвета). Центр прямоугольника за- 
крашивается кистью (у нас серого цвета). Но не 
надо думать, что все приходится рисовать по 
пикселам (точка на экране монитора). В УЛт4до\$ 
для вас уже заготовлено достаточно инструмен- 
_ тов для облегчения процесса работы с графикой. . 
Кисть и карандаш тут являются основой, по ко- РИС. 12.1. Простой прямоугольник 
торой определяются цвета и стиль закраски. 

Вообще, большое количество готовых инст- 
рументов — это самое большое достоинство У/тдо\з. Благодаря этому операци- 
онная система имеет такую популярность у программистов (легче программиро- 
вать). Значит больше выходит программного обеспечения и, следовательно, появ- 
ляется больше возможностей у пользователей. Все это сделало \/тдо\з$ одной из 
наиболее используемых в настоящее время ОС. И недаром совсем недавно Стив 
Балмер (президент М!сгозоЙ) бегал по сцене на одной из конференций и кричал на 
весь зал: "Оеуеорег$, Деуе]орег$, Реуеорег$". Я думаю, что не нужно говорить, что 
это слово означает "разработчики". 

Графические инструменты У\У/шдо\$ объединены под одним названием — СО] 
(Отарыс Бемсе ПмеГасе — интерфейс графических устройств). Все функции для 
работы с графикой находятся в одной динамической библиотеке 2941.41, но подроб- 
нее о библиотеках будет сказано чуть позже. Да, СОТ-— не единственные функции, 
есть еще СО]+, ОиесиХ и в У1%а, вроде бы появились еще какие-то функции, но мы 
остановимся только на базовых функциях, потому что о графике можно писать от- 
дельную книгу. 

Еще одним плюсом СОТ является то, что все функции аппаратно-независимые. 
Это значит, что результат вывода графики будет одинаков вне зависимости от гра- 
фического устройства (видеокарты), установленной в компьютере. Каждая карта, 
имеет свои особенности, и специфика ее работы может отличаться от других. Но 
для ОП] все это не имеет значения. Однако тут же появляются минусы ОПГ: 


О он не использует графического ускорения и других дополнительных возможно- 
стей современных видеокарт; 


О он слишком медлителен для приложений, нуждающихся в быстрой обрисовке 
графики (например, для игр); 


0 в нем поддерживается только двухмерная графика. 


Все эти минусы отражаются на том, что СОТ не предназначен для создания игр, 
однако хорошо подходит для офисных приложений. Красивые графики можно по- 
строить и с помощью 2)-графики, а ЗО требуется очень редко. К тому же, расчетов 
и отображения в реальном времени от нас в большинстве случаев требовать не бу- 
дут. А вот игры хорошо создавать с помощью ОрепОТ, или ОпесХ, но об этом то- 
же надо вести отдельный разговор, потому что тема трехмерного программирова-_ 
ния слишком большая. 
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12.2. Первый пример работы с графикой 


Давайте попробуем написать простейший пример, в котором будет рисоваться 
обычный квадрат. Но для усложнения задачи квадрат будем рисовать не на форме, 
а внутри компонента тРа{пеВох, который очень хорошо подходит для этих целей. 

Создайте новое приложение и поместите на него компонент рРа1пеВох с вкладки 
эу$ет палитры компонентов. Постарайтесь разместить этот компонент в нижней 
половине окна. 

У формы иу Ра1пЕВох есть свойство сапуаз, значит, на них можно рисовать. Ри- 
сование лучше всего производить по событию опРа1пе, которое также есть у обоих 
компонентов. Итак, создадим обработчик события опРа1пЕ для формы и напишем 
тут следующее: 

Сапуа$ .Вескапа1е (10,10,100,100); 


Здесь мы вызываем метод вВесЕапа1е объекта Сапуаз нашей главной формы. 
У этого метода четыре параметра. 


|. Левая позиция квадрата. 

2. Верхняя позиция квадрата. 

3. Правая позиция. 

4. Нижняя позиция. . 


Теперь выделите компонент Ра1пЕВох и создайте такой же обработчик события 
ОпРалзпЕ ДЛЯ ЭТОГО КОМПОНента. В нем напишите следующее: 
Ра1пЕВох1 .Сапхуаз .Кесбапа1е (10,10,100,100); 


Здесь вызывается тот же метод с такими же параметрами, только для РазпеВох. 
Это значит, что этот квадрат будет рисоваться уже внутри компонента ра1пеВох. — 

Попробуйте запустить приложение, и вы увидите два квадрата (рис. 12.2). Оба 
они рисуются с помощью метода кесеапа1е с одними и теми же параметрами и, по 
идее, должны быть нарисованы в одном и том же месте. Но в реальности это не 
так, потому что первый квадрат рисуется на форме, и координаты его отсчитыва- 
ются относительно формы (10, 0, 100, 
100), а второй — внутри компонента, 
и координаты его отсчитываются от- 


носительно этого компонента (10, 0, 
100, 100). 


вот мы ии Ш [= РЗ 


ПРИМЕЧАНИЕ. На компакт-диске, 
прилагаемом к книге, в папке 
\Примеры\Глава 12\ 
Нечапфе вы можете увидеть при- 
мер этой программы. 


Почему в примере рисование про- 
исходит именно в обработчике собы- 
ТИЯ ОпРа1пЕ? Просто событие генери- 
руется каждый раз, когда нужно 
прорисовать окно. Создайте новое Рис. 12.2. Окно запущенной программы 
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приложение и поместите код рисования квадрата в обработчик события оп5вом. 
В лучшем случае вы увидите квадрат, но если свернуть окно или просто перекрыть 
другим и потом снова открыть его, то квадрат исчезнет. 


СОВЕТ. М/пдо\м$ не запоминает графику, которая была в окне и полагается на вашу 
программу. Единственное, что делает ОС — направляет программе событие Ра1пе 
(М/М_РАШМТ), которое указывает на необходимость самостоятельной перерисовки со- 
держимого окна. Именно поэтому желательно производить рисование в обработчике 
ОпРа1пе или хотя бы вызывать в нем функцию, которая будет восстанавливать необ- 
ходимую графику в окне. 


12.3. Свойства карандаша 


Теперь давайте разберемся с цветом, а параллельно будет знакомиться с графи- 
ческими функциями. Как мы уже знаем, для рисования используется два понятия 
цвета — цвет карандаша и цвет кисти. За стиль карандаша (в том числе и цвет) от- 
вечает свойство Реп объекта тсапуаз. За стиль кисти отвечает свойство вгизв. 
И вгозН И Реп — ЭТО тоже объекты. У них есть свои свойства, о которых мы и по- 
говорим в этом разделе главы. 

Для начала разберемся с объектом треп. У него есть ряд свойств. Рассмот- 
рим их. 


О со1ог — цвет карандаша. 


С напа1е — здесь находится описание карандаша, которое можно использовать 
при обращении напрямую к \/МтАР!-функциям. 


ПРИМЕЧАНИЕ. У большинства объектов есть свойство Напа1е, которое нужно только 
для АР!-функций. В обычных программах его использовать не будем. 


О моде — режим отображения, который показывает, как будет рисоваться линия. 


С зЕу1е— стиль карандаша. Существуют следующие. стили (графическое ото- 
бражение стилей линий вы можете увидеть на рис. 12.3): 


® р55о11а — сплошная линия, 


® рзразн — линия в виде пунктира 
(состоит из коротких линий); 


® рзроЕ-—— линия из точек: 


® р5разйроЕ — Линия с чередующи- 
мися черточками и точками, 


® рэразНроЕрое — линия с чередующи- | 
мися черточками и двумя точками; >: р5Вазй Ро! 


® р$С1еаг —— невидимая линия; = р53Дезй оо! 


® рз1п51аеРГгаме — Линия внутри формы 
(внешне похожа на сплошную). 


рутуеР тате 


О заен — ширина карандаша. Рис. 12.3. Стили линий 
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Теперь давайте напишем пример, в котором увидим свойства карандаша в дей- 
ствии. Создайте новое приложение. Создайте обработчик события опрРа1пЕ и напи- 
шите в нем код, представленный в листинге 12.1. 


Ве 
И 


$ г к 


ргоседиге. ТРГохт1 .ЕогтиРа1пе (бепаег: ТОБзесЕ); 
Бед1п | 
//Рисуем сплошную линию (р$б0119) 
Сапуаз .Реп.5еу1е:=рз5о11а; 
Сапуа$ .МоуеТо (10,20); 
сапуаз.14пеТо(200,20); 


//Рисуем рзразй линию 
Сапуа$ .Реп.5еу1е:=рзразь; 
Сапуа$ .МотеТо (10,40); 
Сапуа$ .Г1пеТо (200,40); 


//Рисуем рзБазй линию 
Сапуа$ .Реп.56у1е:=рзП,ос; 
Сапуаз .МохеТо (10,60); 
Сапуаз .Г1пеТо (200,60); 


//Рисуем рзРазЮОоЕ линию 
Саптаз Реп. 5еу1е: =рзразН Рок; 
Сапуа$ .МотеТо (10,80); 

Сапуа$ .Г1пеТо (200,80); 


//Рисуем рзБазЮроЕБое линию. 
Сапуа$ .Реп.55у]1е: =рзПазРОо®еОо*; 
Сапуа$ .Мо\хеТо (10,100); | 
Сапуаз .Г1пеТо (200,100); 


//Рисуем рзС1еаг линию 
Сапуа$ .Реп.56у1е:=рзС1еаг; 
Сапуа$ .МохеТо (10,120.); 
Сапуаз .Ш1пеТо (200,120); 


//Рисуем рзТп514еЕгате линию 
Саптаз.Реп.56уУ1е: =рзТиз1аеЕгане; 
Сапуаз .МоуеТо (10,140); 

Сапуаз .Г1пеТо (200,140); 


епа; 
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Результат работы программы вы можете 
увидеть на рис. 12.4. | 

В данном примере по событию опРа1пеЕ 
(когда надо перерисовать форму) пооче- 
редно рисуются линии разного стиля. Для 
этого сначала выбирается нужный стиль 
(например, сапуаз.Реп.5%у1е:=рз5011а — 
выбирает стиль сплошной линии). 

Потом перемещается карандаш в точку 
начала линии — Сапуа$ .Моуето(Хх,У). Ме- 
ТОД Моуето перемещает карандаш в пози- Рис. 12.4. Результат работы программы 
цию, указанную в качестве параметров х и 
у. При перемещении не происходит ника- 
кого рисования на холсте, (сапуаз). Х и У— это не сантиметры и не миллиметры, 
а количество пикселов (количество экранных точек). | 

Отсчет координаты Хх идет слева. Это значит, что левая сторона окна равна нуле- 
вой позиции х, а правая сторона окна — это максимальное значение. Но это не оз- 
начает, что х не может быть отрицательным или больше максимума. Вы без про- 
блем можете указывать любые значения, только нужно учитывать, что часть линии 
может уйти за пределы окна. 

Отсчет координаты у идет сверху. Верхнее обрамление окна является нулевой 
точкой у. При этом заголовок окна (с названием формы и системными кнопками) 
не входит в пространство клиентской области окна. 

Теперь мы должны нарисовать линию с помощью метода т1пето(х, У). В каче- 
стве параметров передаются конечные координаты линии. Отрезок будет нарисо- 
ван, начиная от текущей позиции карандаша, куда мы перешли с помощью метода 
МоуетТо, и до координат, указанных при вызове метода г,1пето. 

После прорисовки первой линии выбираем следующий стиль и перемещаемся 
в позицию на 20 пикселов ниже уже нарисованной Линии. После этого рисуем сле- 
дующую линию. 

Теперь добавим в нашу программу возможность смены цвета карандаша. Для 
этого установим на форму кнопку с надписью "Изменить цвет" и компонент 
Со1ог01а1о4 © вкладки Ю1аю2$. Компонент со1огр1а1о3 предназначен для отобра- 
жения стандартного диалога выбора цвета. На форме он будет выглядеть в качестве 
простого квадратика с пиктограммой и при запуске не будет виден. 

Для события опс11ск кнопки напишем следующий КОД: 

1Е Со1охг01а1о0о491.Ехесаве ЕЪеп’ 


Сапуа5 .Реп.Со1ог:=Со1ог01а1091.Со1ог; 
ЕогтРа1п® (111); о 


В первой строке кода отображается окно выбора цвета (со1охр1а1091 .Ехесиее). 
Если пользователь выбрал цвет и не нажал ОК (нажал отмену или нажал кнопку 
крестика в заголовке), то окно возвращает значение Еа1зе. Поэтому мы проверяем, 
если результат показа окна равен сгие, то изменить цвет: | 

1Е Со1охг01а1091.Ехесаее ЕЦеп 

Изменить цвет холста 
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Напоминаю, что по умолчанию конструкция 1 ‘проверяет указанный код на ра- 
венство сгие, если не указано обратное. В связи с этим эту же конструкцию можно 
было бы записать так: 

- 1ЁЕ Со1огО1а1оа1.Ехесабе=егае ЕПеп 
Изменить цвет холста 

Результат выбранного цвета записывается в’ свойство со1ог компонента 
Со1охр1а1091. Именно его мы и присваиваем цвету карандаша сапуаз .Реп.Со1ох. 
После этого нужно только перерисовать рисунок. Для этого явно вызывается про- 
цедура — обработчик события ОпРа1пе формы. У нас обработчик называется 
Гогира1пе, именно его и необходимо вызывать. 

Можете запустить программу и проверить результат работы смены цветов 
ЛИНИЙ. | 

Теперь добавим возможность выбора толщины линии. Для этого установим 
компонент Урромт с вкладки УУт32. Для события опс11ск этого компонента напи- 
шем следующий код: 

ргосеаиге ТРогт1 .Орро\1С11ск (бепаег: ТОБ)есе; Виабеоп: ТООвЕпТуре) ; 

Бедап 

Сапуаз .Реп.\1аЕр : =ОрПомла1 .Ро$1Е1оп; 
Вера1п(; 
епа; 


Компонент орромт состоит из двух кнопок. Верхняя кнопка увеличивает внут- 
ренний счетчик. Нижняя — уменьшает. Текущее значение счетчика можно прочи-. 
тать в свойстве Роз1Е1оп. Именно это значение мы и присваиваем в СВОЙСТВО ШИ- 
рины карандаша Сапуаз .Реп.мМ1аекн. 

После этого вызывается метод главной формы вера1т+. Этот метод генерирует 
событие о том, что надо перерисовать содержимое окна. Это значит, что будет ав- 
томатически вызван обработчик события опРа1п+. Результат тот же, что и просто 
вызов напрямую обработчика, как это делалось после смены цвета.. Но такой спо- 
соб считается более правильным. 


СОВЕТ. Если говорить о том, какой способ более правильный, то оба они работают 
без проблем, просто второй способ более эстетичный и красивый, хотя и требует до- 
полнительных затрат на генерацию сообщения о необходимости перерисовать окно. 


ПРИМЕЧАНИЕ. На компакт-диске, прилагаемом к книге, в папке \Примерь\Глава 12\Реп 
вы можете увидеть пример этой программы. 


12.4. Свойства кисти 


За параметры кисти отвечает свойство вгазь объекта тсапуаз. Как уже говори- ` 
лось, кисть используется для закраски замкнутых пространств. Она тоже имеет 
объектный тип, как и карандаш, а значит, обладает своими свойствами и методами. 

У объекта кисти Ттвгазн есть несколько свойств, влияющих на параметры 
кисти. | 
О в:етар — картинка, которая будет использоваться в качестве фона закраски. 

Картинка должны быть формата 8х8 пикселов. Если будет больше, то задейст- 

вованы будут только пикселы верхнего левого квадрата 8х8. 
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Мы пока не трогали картинки, поэтому это свойство рассматриваться здесь 
не будет. Единственное, что можно сделать, — написать неболышой пример, по 
которому вы сможете вернуться к свойству и разобраться самостоятельно. Код 
использования свойства в1етар показан в листинге 12.2. Если же что-то не по- 
нятно, то не расстраивайтесь, класс тв1етар — это отдельная тема, которая бу- 
‚ дет рассмотрена позже.. | 


уах 
В16мар: ТВ1@щар; 
Беач1п 
В1Емар := ТВ1Етар.СгеаЕе; //Создается картинка ° 
Ску | о 
В1 Стар .ГоаЯЕкопЕ11е ('МуВ1етар.Ыпо'); //Загружается картинка 
Ро11 .Сапуаз.Вгазв.В1 тар := В1@мар; //Присваивается в качестве фона 
Гог] .Сапуаз.Вескапа1е(0,0,100,100); // Рисуется квадрат 
Е1па11у | | | 
Роги1 .Сапуаз.Вгазр.В1етар := п11; // Обнуляется фон 
В1Стар.Рхее; // Уничтожается картинка 
епа; | | 


епа; 


О со1охг — так же как и у карандаша, у кисти тоже может быть свой цвет. 
О напа1е — такой же указатель, как и у карандаша, но на кисть. 


О $зеу1е — стиль фона. Здесь могут быть следующие значения: Ъ5$50114, ЪзСТеах, 
Ъ5Нох12оп4а1, 6з\УегЕ1са1, БЗЕР1адопа1, 65ВО1адопа1, Ъ5Сгозз, 6$01а9Скозз. На 
рис. 12.5 вы можете увидеть графическое отображение каждого из стилей. 


Теперь перейдем к практической части работы с кистью и напишем небольшой 
пример. Для начала создайте новый проект. Как и в предыдущем примере, созда- 
дим обработчик события опРа1пе для формы, чтобы по этому' событию произво- 
дить рисование. В обработчике напишем содержимое листинга 12.3. 


ргоседиге ТКоги1 .ЕогтаРа1п+ (бепдехг: ТОБЗесе); 
‚ Беч1п | 

Сапуа$ .Вгизр.5еу1е:=6$$50114а; 

Сапуа$ .Кесбапа1е (10,10,50,50); 


Сапуаз .Вгазп. 56у1е: =Юю$В01адопа1; 
Сапуа$ .Кескапа]1е (10,110,50,150); 


Сапхаз .Вгазь.5$у1е: =5$Е01адопа1; 
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Сапуа$ .Кескапа1е (10,160,50,200); 


Сапуаз.ВказН.5еу1е: =6зСговз; 
Сапуаз$ .Кесбапа1е (110,10,150,50); 


Сапуа$ .ВгазН.$56у1е:=5$01а9Сго$$; 
Сапла$ .Кескапа]1е (110,60,150,100); 


_ Сапуаз .ВгазН .5еу1е:=55Ног12опба1; 
Сапуа$ .ВКескапа1е (110,110,150,150); 


Сапуаз .ВгизН . 5+у1е: =Ьз\УегЕ1са1; 
Сапуа$ .Кессапа]1е (110,160,150,200); 


Сапуаз .Вгазь .5еу1е: =БзС1еаг; 
Сапуаз .Кескапа1е(10,60,50,100); 


епа; 


Здесь код разбит на блоки по две строки. В первой строке задается стиль кисти, 
а во второй рисуется прямоугольник с помощью метода вескапа1е (х, у, г, Ъ), ГДе: 


О х — левая сторона прямоугольника; 

С у — верхняя сторона прямоугольника; 
С г — правая сторона прямоугольника; 
С ъ — нижняя сторона прямоугольника. 


6$Сго$$ 


$Сеаг Ь$0!а9Сго$$ 


мощи тим ||| 


Рис. 12.5. Стили фона 
Чтобы было более ясно, взгляните на рис. [2.6. 
Таким образом, мы рисуем восемь прямоугольников с разными стилями кисти. 
Если вы запустите сейчас этот пример, то не заметите никакой разницы, все прямо- 
угольники будут одинаковыми. Это потому, что цвет кисти имеет такой же цвет, 
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что и форма. В результате все сливается. Чтобы увидеть разницу, надо изменить 
цвет фона кисти. 
"Давайте установим на форму кнопку Изменить цвет и компонент Со1охр1а1о9. 
Для события, связанного с нажатием кнопки, напишем следующий КОД: 
1ЁЕ Со1огр1а1оа1.Ехесиее (реп 
Сапуаз .ВхизН.Со1охг: =Со1ох:04а1041.Со1ог; 
ЕогтРа1пЕ (111); 


Здесь запускается окно изменения. цвета, и если цвет выбран, то присваиваем 
его кисти Сапуаз.ВгазН .Со1ог: =Со1охрР4а10491.Со1ох. 

Вот теперь можно запускать программу и смотреть результат. Щелкните по 
кнопке Изменить цвет и выберите что-нибудь из темных цветов, например, синий. 
Результат показан на рис. 12.7. 


| з" Рог 1 


Рамка окна 


Рис. 12.6. Размеры прямоугольника | Рис. 12.7. Результат работы программы 


ЗАМЕЧАНИЕ. Прямоугольник с невидимой кистью (55у1е = Ъ$5С1еаг) рисуется по- 
следним, хотя на форме он расположен во второй строке первой колонки. Это связано 
с тем, что после рисования с невидимой кистью цвет теряется. Попробуйте поставить 
рисование с невидимой кистью где-нибудь раньше и увидите, что первоначально 
у прямоугольника с прозрачной кистью фон будет того цвета, что был выбран, а после 
будет белого цвета. 


СОВЕТ. Если программу свернуть и потом развернуть, то цвет кисти опять же будет 
белого цвета. Это связано с тем, что, когда мы нарисовали последний квадрат (кото- 
рый был с прозрачным фоном), цвет кисти все же изменился на белый. Мы этого не 
увидели, потому что последний квадрат был с прозрачным фоном. При следующей 
прорисовке цвет уже изначально белый. Чтобы избавиться от этого эффекта, после 
каждого рисования фигур прозрачной кистью надо устанавливать цвет. Для большей 
надежности желательно устанавливать цвет непосредственно перед рисованием. 


Любые установленные цвета желательно после рисования восстанавливать в ис- 
ходное состояние. Когда у вас маленький проект, то легко вычислить, почему во 
время работы программы отображается не тот цвет, но в большом проекте сделать 
это будет сложно. | 
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Не устанавливайте цвета в обработчиках событий для каких-либо кнопок ИЛИ 
пунктов меню. Все это необходимо делать непосредственно в функции рисования, 
как в следующем примере: | 

ргоседаге ТЕГогт1 .ЕотгтаРа1п® (бепаехг: ТОБдес®); 

Беа1п 

//Обязательно устанавливаю цвет кисти 


Сапхуа$ .Вга$В.Со1охг:=Со1ох01а1091.Со1ог; 


//Рисую первый квадрат 
Сапуа$ .Вгазр.56у1е:=6$5011а; 
Сапуаз .Кессапа]1е (10,10,50,50); 


Хотя мы могли не изменять цвет кисти в данном примере, потому что это уже 
сделано после вывода окна выбора цвета, мы все же для большей надежности из- 
меняем цвет в функции рисования. 


ПРИМЕЧАНИЕ. На компакт-диске, прилагаемом к книге, в папке \Примеры\Глава 12\Вги$ п 
вы можете увидеть пример этой программы. 


12.5. Работа с текстом 
в графическом режиме 


Конечно же, название этой части достаточно расплывчато и не точно, потому 
что \!114о\5$ сам по себе графический и вся работа происходит в графическом ре-_ 
жиме. Но все же иногда мы работаем с текстом, воспринимая его как текст, а ино- 
гда текст выводится в виде графики. 

Для вывода текста на экран у объекта тсапуаз есть метод Техеоце. У этого ме- 
тода три параметра: 


О х — координата позиции текста; 
С у— координата позиции текста; 
О непосредственно строка текста, которую надо вывести. 
Создайте новое приложение и для события опРа1пЕ напишите код: 


Сапуаз .ТехеОие (100,100, 'Привет всем!!!'); 


Здесь производится вывод на экран текста в координатах (100, 100). 

За стиль шрифта отвечает свойство гопе объекта ТСапуаз. Это свойство также 
имеет объектный тип (ТЕопе), у которого очень много свойств. Среди них, конечно. 
же, есть и свойство Со1ог, так что поместим на форму кнопку и со1охр1а1оа, чТо- 
бы можно было менять цвет текста. 

Для события 0пс11ск кнопки пишем следующее: 

1ЁЕ Со1ох:01а1о91.Ехесисе (Пей 

РогтпРа1пе (п11.); 


Здесь показывается окно выбора цвета, и если цвет выбран, то просто происхо- 
дит перерисовка окна. А где же изменение цвета шрифта? Как уже говорилось, 


|| Зак. 1273 


312 | Глава 12 


когда мы работали с кистью, цвет нужно менять непосредственно перед рисовани- 
ем, и здесь это делать нет смысла. Поэтому корректируем событие опра1пЕ: 

Сапхуа$ .Еопе.Со1ох: =Со1ох01а1о091.Со1охг; 

Сапха$ .ТехЕОче (100,100, 'Привет всем!!!'); 


Теперь установим на форму компонент гопЕр1а1о9 с вкладки 012102$. Это почти 
такой же компонент, как мы использовали для смены цвета, только здесь будет по- 
являться стандартное окно смены шрифта. Добавьте на форму кнопку с надписью 
"Изменить шрифт" и для ее события 0пс11ск напишите следующее: 

1Е РопЕО1а1о91.Ехесаее ЕЪеп | 

Бед1п 

Сапуаз .Коп*®: =ГопеО1а1091.Ропе; 
ЕогпРа1пе (111); 

епа; 


В первой строке кода показывается окно смены шрифта так же, как это делалось 
для изменения цвета. Если пользователь выбрал шрифт и нажал ОК, то устанавли- 
вается его свойство копЕ объекта Сапуаз. После этого мы заставляем форму обно- 
вить свое содержимое. При новой прорисовке содержимого формы текст уже вы- 
водится с новым шрифтом. 

Единственный недостаток этого 
примера заключается в следующем. 
Если сначала выбрать большой шрифт, 
а затем маленький, то старое содержи- 
мое текста, написанного большим. 
шрифтом, не уничтожается, а новый 
рисуется поверх старого (рис. 12.8). 

Самый простой способ избавиться от 
такого нежелательного эффекта— по- 
сле смены шрифта вместо прямого вы- 
зова Функции. ЕохиРа1е (п11) ИСПОЛЬ- Рис. 12.8. Нежелательный эффект 
зовать вызов метода формы вера1пЕ т при смене шрифта 
ИЛИ Тпуа11даЕе. О первом из них мы 
уже говорили и использовали его. 

Второй метод 1пуа11Чаке имеет практически тот же смысл, только заставляет 
прорисоваться полностью все окно, а не только его элементы. | 

Итак, мы научились менять все параметры текста с помощью стандартного диа- 
логового окна. Как менять отдельные свойства — это отдельная тема, ведь свойст- 
во гопЕ имеет объектный тип ТЕопе с массой свойств. Вот основные свойства: 


С] снагзее — позволяет определить или указать набор символов или просто коди- 
ровку. По умолчанию кодировка равна константе рееРАОЁТ_СНАБЗЕТ, которая со- 
ответствует кодировке ОС; 


С со1ог — цвет шрифта в виде экземпляра класса тсо1охг; 


С напа1е — дескриптор шрифта, который используется при обращении к \МтАР]- 
функциям; 
О незане — высота шрифта; 
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О маме — имя шрифта; 

О 5:2е — размер шрифта; 

С рР1есн — позволяет указать, что все символы шрифта должны иметь одинаковую 
ширину; 

С зеу1е — стиль шрифта. в этом параметре может быть сочетание из следующих 
параметров: 


® ЕзВо1а — жирный; 
`® ЕъзТка11с — наклонный; 

® ЕзОпаег11пе — Подчеркнутый; 
`® Ез5ег1кеобцЕ — зачеркнутый. 


ПРИМЕЧАНИЕ. На компакт-диске, прилагаемом к книге, в папке \Примеры\Г лава 12\Теж 
вы можете увидеть пример этой программы. 


12.6. Вывод текста под углом 


Сейчас мы рассмотрим один интересный прием — как можно вывести текст под 
углом. Как вы могли заметить, пока использовалась только функция, которая умеет 
выводить текст. горизонтально, и никаких больше намеков на возможность развер- 
нуть текст и написать его, например, вертикально. 

Создайте новый проект. Теперь создайте обработчик события ОпСгеаке для 
главной формы. В этой процедуре напишите следующее: 

ргоседиге ТЕохт1 .РогтаСгеасе (бепаег: ТОБзес®); 

Беалп . 

1паех:=0; 
епа; 


Траех — это будет счетчик, но его еще надо объявить, поэтому переходим 
в объявления ре1уасе И там пишем следующее: 
рг1уаее 
{ Ре1уабе-Рек]агае1опеп } 
1паех: Трседег; 
с1:Воо1еап; 


Основные приготовления закончены, и мы можем переходить непосредственно 
к программированию. Назначение переменных мы рассмотрим позже, а сейчас соз- 
дайте обработчик события для главной формы опмочзеромт.. Это событие срабаты- 
вает, когда пользователь щелкнул мышью по форме. В нем надо написать содер- 
жимое листинга 12.4. 


ргоседиге ТЕотта1 .РотиМоцзеромт (бепдег: ТОБ)есе; Ваббоп: ТМочзеВаееоп; 
501Е6: ТОВТЕЕбеаее; Х, У: Тпеедег); 


\ах 
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А: ТщЕедег; // Объявление переменной А -— целое число. 
Бед1п 

А := гапаот (3600); 

Сапуаз5екАпа]1е (Сапуаз, А / 10); 
_ Саруаз.ТехеОце (Хх, У, РогпаеЕ1оае ('##0.0', А/10)+'°'); 
епа; 


Давайте рассмотрим текст этой процедуры. В первой строке используется функ- 
ЦИЯ гапдот, она возвращает случайное значение, но не больше чем число, указан- 
ное в скобках. В нашем случае это — 3600. 

Вторую строку пока опустим, а рассмотрим третью. сапуаз.ТехЕОцЕ — выводит 
текст на форме, и мы с ней уже работали. 

Для вывода текста использовалась функция гогнаеЕ1оак. Она переводит число 
с запятой (вещественное или, так сказать, дробное) с учетом формата. | 

ЕопсЕ1оп РохиаЕР1Тоае ( 

соп5Е Рохтпа®: зег1па; // Строка формата 
\а1ае: Ехбепаея // Число 
): $зЕг1па; | 


В качестве формата указано ##0.0, что приводит указанное число к этому виду, 
т. е. отрезает все знаки после запятой, оставляя только один (0б этом говорит один 
ноль после запятой в строке формата). Перед запятой может быть любое количест- 
во чисел, потому: что стоят два знака решетки. В качестве числа указывается пере- 
менная ^, деленная на 10. | 
°— Теперь возвращаемся ко второй строке, сапуаъзекАпа1е. Этой процедуры еще 
нет, мы ее должны написать. Посмотрите на листинг 12.5, где находится весь текст 
программы, а потом мы рассмотрим эту процедуру отдельно. | 


ип16 Техёхгое1; 


1псегЁасе 


’и5е5 


5у$0Е11$, М1пТурез, И1пРгос$, Меззадез, С1аззез, СкарН1сз, Сопёго1$5, 
° Рог, О1а1о9$, ЕхЕСех15; 
‚ Суре 
ТЕРогт1 = с1а$$ (ТРогп) 
ргосеаиге Ео’тМоцзеро\мт (бепаег: ТОБЗесе; Виаебоп: ТМоцзеВиеесоп; 
5В1ЕЕ: Т5р1ЕЕ$Еаее; Х, У: Тпбедехг); 
ргосецге Тумех’1Тумет (бепаег: ТОБзесе); 
ргосеаиге Ро’ттСгеаке (5бепаехг: ТОБЗесе); 
ргх1уаее. 
{ Ре1уасе-Шек1агаЕ1опеп } 
1паех: Тпбедег; | 


с1:Воо1еап; 


Графические возможности бер! 315 


руБ11с 
{ РаБ11с-Бек1агаетопеп } 


епа; 


уаг 


Роги1: ТЁРог1; о 
1пр1етепка*1оп 
{$ *.ПЕМ} 


ргоседиге СапуазбееАпа1е(С: ТСапуаз; А: $51п91е); 
уах 
ТодВес: ТЬОСЕОМГ; // Объявляем переменную логического шрифта 

Беа1п 

сеЕоОБ)ес® (С.Ропе.Напа1е, 5$1хе0Е (ГоачВес) , Ааах (ГодВес)); 

ГоаВес .1ЕЕзсаретепе := Тгопс(А*10); 

ТГоаКес.1ЁЕОг1епеа*1оп := Тгипс ((А+10) * 100); 

С.Ропе.Напа1е := СгеакеРопЕТпЯ1тес® (.оадВес); 

епа; 


ргоседиге ТЕРоут1 .ЕоуиМочзеро\ит (бепаег: ТОБЗесе; Виббоп: ТМоцзеВаееоп; 
ЗВ1ЕЕ: Т5р1Есббаее; Х, У: Тпбедег); 
\ат А: Тиседег; 
Беад1п 
А := Вапаом (3600); 
СапуазбебАпа]1е (Сапуаз, А / 10); 
Сапуаз .ТехеОце (х, У, РогтаЕР1оае('##0.0', А/10)+'°'); 


еп; 


ргоседиге ТЕои1 .ЕогтпСкеаке ($еп4ег: ТОБЗесЕ); 
Бед1п 

1паех:=0; 

Сапуа$ .Вгазь .56у1е: =Б$С1еаг; 
епа; 


епа. 


`В качестве параметров для функции СапуаззекАпа1е процедуре передается 
Сапуаз и угол разворота текста. Угол разворота имеет значение $1п91е, что озна- 
чает вещественное (дробное). Ранее имя процедур вместо нас писал Оерш. Дан- 
ную процедуру вам придется вписывать своими руками, потому что она самостоя- 
тельная и не принадлежит никакому объекту. Это очень важно, потому что если 
она будет принадлежать объекту, то текст не развернется. 
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_ Теперь перейдем к содержимому процедуры. Рассмотрим по частям первую 
строку: 


С сееоъзесе — эта функция возвращает информацию о графическом объекте; 
О с. гопЕ .Напа1е — объект, на который нужно получить значение; 

С] $12е0Е (Годвес) — передаем размер возвращаемого значения; 

С) лаахг(тодвес) — передаем адрес возвращаемого значения. 


С помощью этой функции мы получаем информацию о шрифте, используемом 
нами для рисования. Вторая и третья строки процедуры изменяют значения полу- 
ченной информации. Четвертая функция записывает измененную информацию. 

Запустите получившееся приложение и пощелкайте мышью по форме. В месте. 
щелчка должен появиться текст под случайным углом. 

Теперь поставьте на форму компонент т1мех, который находится на вкладке 
эу$ет. Этот компонент умеет генерировать события через определенные проме- 
жутки времени. Создайте для таймера обработчик события опт1мехг и напишите 
в нем содержимое листинга 12.6. 


ргоседиге ТГоги1 .Т1мег1Т1мег (бепаег: ТОБес®); 
Беа1п 
СапуазбееАпа1е (Сапуаз, 1паех); 
Сапуаз .ТехеОйе (100, 100, 'СУБ боЕЕ'); 
1паех: =1п4аех+45; 
1Е 1паех>=360 ЕВеп 
Бед1п 
1паех:=0; 
1Ё с1 ЕВеп 
Сапхаз .Ропе.Со1ох: =с]В1асКк 
е1зе | 
Сапуаз .Ропе.Со1ог:=с1Кеа; ` 
с1:=поЕ с1; 
епа; 
епа; 


Эта процедура будет вызываться каждый раз, когда пройдет интервал времени, 
указанный в свойстве тпеехуа1 (интервал) компонента т1мех. По умолчанию там 
указано 1000 (число в миллисекундах, что равно 1 секунде), значит, процедура бу- 
дет вызываться через каждую секунду. Если свойство кпаЪ1еа компонента Т1мег 
выставлено в егие, то таймер генерирует события, иначе он отключен и событие 
ОпТ1техг срабатывать не будет. 

Внутри процедуры выставляется угол, на который надо вывести текст 
(Сапуаз5екАпа1е), потом выводится сам текст (с помощью саптаз .ТехеОц‹). 

После этого прибавляем переменной 1паех значение 45. В этой переменной 
хранится значение угла, под которым надо вывести текст, и через каждую секунду 
это значение увеличивается на 45 градусов. 
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Далее идет проверка — если 1п9ех больше или равен 360, значит, программа 
просчитала полный круг, а если так, то выполняется следующий КОД: | 
1п4ех:=0; 
1Е с1 ЕТеп 
Сапуаз .Ропе.Со1ох:=с1В1аск } 
е15е 
Сапуаз .Ропе.Со1ох:=с1Веа; 
с1:=по6 с1; 


Здесь в первой строке обнуляется переменная 1пдех, чтобы начать вывод текста ' 
с 0 градусов (мы же уже прошли полный круг). Дальше проверяется значение пе- 
ременной с1, если она равна екгие, то значению цвета текста будет присвоено. 
с1В1аск, что эквивалентно черному цвету. Иначе цвет сменится на красный 
(с1вед). 

После этого изменяется значение переменной с1 на противоположное, о чем го- 
ворит конструкция с1:=поЕ с1. Здесь мы присваиваем переменной противополож- 
ное (по) значение ее самой. Это значит, что если с1 равнялась ские, То после этого 
кода будет равняться Еа15е. Таким образом, после прохождения текстом очередно-_ 
го круга, ивет будет меняться с черного на красный и обратно. 


ПРИМЕЧАНИЕ. На компакт-диске, прилагаемом к книге, в папке \Примеры\Глава 12\ 
ТежАпае вы можете увидеть пример этой программы. 


Попробуйте запустить пример. Пускай он немного поработает, чтобы форма за- 
полнилась текстом. Теперь попробуйте перекрыть окно программы другим окном 
или свернуть его. Потом снова восстановите окно. Что вы видите? Все, что было 
нарисовано, — исчезло. Это потому, что \тдо\$ не сохраняет содержимое окна. 
Мы сами должны его восстанавливать. 

Когда окно свернулось и восстановилось, то генерируется событие опРа1пе, ПО 
которому нужно перерисовать содержимое окна. Поэтому все функции рисования 
стараются располагать именно в обработчике этого события. Так мы будем рисо- 
вать и реагировать на события, когда надо перерисовать содержимое экрана одной 
и той же функцией. 

В нашем примере использование события опРа:пе неудобно, потому что экран 
меняется динамически и мы не можем постоянно запоминать его содержимое. 
В таких случаях на форму ставят компонент ттмаде и рисуют в нем. Этот компо- 
нент, в отличие от формы, сохраняет свое содержимое. Когда вы рисуете на холсте 
компонента Ттмаде, то делаете это в специально отведенной под компонент памя- 
ти. А вот когда Ттшаде нуждается в прорисовке, эта область памяти копируется на 
экран. Таким образом, не надо самостоятельно ни за чем следить. Подробнее 
с компонентом Ттмаде мы познакомимся немного позже. 


ЗАМЕЧАНИЕ. Таким образом развернуть можно только ТгиеТуре-текст. В последних 
версиях Верш в качестве шрифта по умолчанию для холста используется именно 
такой шрифт. В старых версиях может понадобиться явное указание шрифта в СВОЙ- 
стве Сапуаз .Еопе. Если вы сами захотите изменить шрифт, то меняйте его только 
на ТеТуре. 
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12.7. Работа с цветом 


Мы уже научились менять цвет и даже в предыдущей части узнали, что кон- 
станта с1в1аск равна черному цвету, а с1вкеа — красному. Но есть еще много кон- 
стант, которые определяют стандартные цвета для более удобного их использова- 
ния. Вот именно с ними нам предстоит сейчас познакомиться и узнать, как 
хранится цвет в памяти машины. | 

Цвет хранится в виде типа ТСо1ог. Хотя в названии типа в начале стоит буква т, 
этот тип не объектный, а просто число из четырех байт, но реально нас будут инте- 
ресовать только последние три. 

Вы, наверное, должны знать, что в компьютерной графике цвет представляется 
тремя составляющими: красным, зеленым, голубым (ВСВ — Ке4, Стгееп, Ве). 
В разных пропорциях из этих трех базовых цветов можно получить любой другой. 
Например, если взять красного и зеленого по максимуму, а синего вообще не брать, 
то получится желтый цвет. 

Каждый из цветов представляется в виде одного байта, так что для хранения 
трех цветов достаточно 3 байтов. Но зачем же тогда для тСо1ох выделено 4 байта? 
Это сделано потому, что в компьютере регистры четные и могут хранить только 1 
или 2, или 4 байта. Так что у переменной цвета один байт избыточен (первый) 
и чаще всего он равен нулю. В дальнейшем он может быть использован для обо- 
значения прозрачности или других целей на усмотрение разработчика. 

Конечно же, программисты могли поместить в 6 байт две точки цвета (3 + 3), но 
этого не стали делать для будущего использования 32-битного цвета. Сейчас же 
более распространены 24-битные градации. 

В играх и графических пакетах этому байту нашли применение. Он часто ука- 
зывает прозрачность, но в офисных приложениях его просто игнорируют. 

Как вы уже знаете, один байт может принимать значения от 0 до 255 (в десятич- 
ной форме) или от 0 до ЕЁ (в шестнадцатеричной). Так что в шестнадцатеричной 
форме цвет будет выглядеть как $00ЕЕЕЕЕЕ. Только тут сразу надо отметить, что 
первые два нуля — это лишний байт, потом идут ЕЕ для голубого цвета, затем ЕЕ 
для зеленого и последние ЕЕ для красного. Получается, что в памяти цвет хранится 
как ВОК (в обратном порядке. Абсолютно красный цвет будет равен $000000ЕЕ, 
абсолютно зеленый — $0000ЕЕ00, а голубой — $00ЕР20000. 

Давайте попробуем научиться работать с цветом на практике, заодно и познако- 
мимся с необходимыми функциями. Создайте новое приложение и установите на 
него компоненты так, как это показано на рис. 12.9. 

Итак, на форме три компонента тка:е. Для красного цвета компонент назовите 
ВеаЕа1е, для зеленого — сгеепЕа1к, ну и для синего — в1щека1*. Так же на форме 
есть кнопка для смены цвета (ее имя не имеет значения) и компонент Со1охр1а1оч, 
для смены цвета. 

Если вы сами создаете пример, а не пользуетесь готовым с компакт-диска, по- 
старайтесь все разместить так, как показано на рисунке (ближе к правому краю), 
потому что слева будем рисовать квадрат. 

Для события кнопки 0пс11ск пишем код, показанный в листинге 12.7. 
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ргоседаге ТЕотт1 .Виебоп1С11сК (5епдег: ТОБЗес®е); 


уах 
с:БопаТпе; 
Бедлп 
{Е поЕ Со1огр1а1091.ЕхесиЕбе ЕЪеп. 


ех1*; 


С: =Со1отТовСВ (Со1ог01а1091.Со1ог); 
ВеадЕа1е .Техеё : =ТтпеТобег (СеекУа]ае(С)); 
СгеепЕЯ1{ .Техё : =Т1ЕТобег (СеЕсУа1ще(С)); 
В]аеЕа1 Е .Техе: =ТпЕТобех (СеевВУа]1ще (С)); 


ВКера1те; 


‚ епЯ; 


В разделе уаг объявлена одна переменная целого типа гопалпеЕ. Это целое число 
размером в 4 байта, оно будет использоваться для хранения значения цвета. 

В первой строке показывается окно смены цвета со1охр1а1091.Ехесике. Если 
пользователь не выбрал цвет (0б этом говорит конструкция 1 поЕ), то выполнение 
процедуры прерывается с помощью ех1 Е. 

Дальше выбранный цвет со1охр1а1091.Со1ох ИЗ ТИПа ТСо1ох  пеобразовывается 
в простое число с помощью функции со1огТовсв. Этой функции надо передать 
цвет в виде ТСо1ог (мы передаем со1огр1а1091.Со1ог), и она вернет целое 4- 
байтное число, которое мы записываем в переменную с. Функция Ссо1охТовсв вы- 
полняет одно очень важное действие — очищает первый байт, который как раз не 
несет смысловой нагрузки в 24-битной ВОВ системе. 

В следующей строке идет присвоение строке ввода ВеаЕа1еЕ значения Красной .. 
составляющей цвета. Для этого сначала используется функция СеЕквУа1ле. Ей пере- 
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дается значение цвета в виде целого числа (переменная с). Результат — однобайт- 
ное число, которое показывает значение красной составляющей. Поскольку резуль- 
тат — число, то прежде чем его присваивать в строку ввода, оно Должно быть пре- 
образовано в строку. Для этого переводим его в текст с помощью знакомой нам 
функции трЕТобеЕх. 

То же самое проделываем и с зеленым цветом в следующей строке кода. Только 
для получения зеленой составляющей используется функция сеес\а1те. 

Для получения синей составляющей используется функция сеЕВУа1че. Таким 
образом, после выполнения всех этих действий, мы разбили 4 байта цвета из пере- 
менной с на отдельные байты по цветам и разнесли их в соответствующие строки 
ввода. о 

После этого нужно заставить окно прорисоваться с помощью вызова метода 
Кера1пе. | | 

Для события опРа1пЕ напишем следующий код: 

‚ рхоседиге ТРотт1 .ЕогиРа1ие (бепехг: ТОБзесе); 
Бедлпт . | 
Сапуаз .ВгазН .Со1ох: =ЕСВ ($ЕхТотпеШеЕ (ВедЕЯ1е.Техе, 0), 


_ ЗегТотоЕреЕ (СхеепЕЯ1е .Техе, 0), ЗЕ’ТотТпЕ- 
реЕ (В]аеЕа1*е.Техе,0)); 


Сапуа$ .ВесКкапа1е(10,10, 250, 150); 


епа; ` 


Здесь надо проделать обратные действия — превратить три составляющих цвета 
из строк ввода в одно целое значение цвета. Для этого используется функция 
ВСВ(в, С, В). У этой функции три параметра, и все они целые числа. 


С в — значение красного цвета. 
О с — значение зеленого цвета. 
С в— значение синего цвета. 


В качестве параметров передаются значения, указанные в соответствующих 
строках ввода, с предварительным преобразованием их из строк в числа. 

Результат преобразования цвета записываем в цвет кисти. После этого рисуется 
прямоугольник, у которого цвет фона будет тот, что мы выбрали. 

И последнее — создадим обработчик события опСпапае для всех строк ввода. 
1. Выделите строку ввода для красного цвета. 
2. Удерживая $ъ1 ==, щелкните мышью по остальным строкам. 


У вас должны быть выделены все строки ввода серыми рамками. Теперь перей- 
дите в объектный инспектор на вкладку Еуеп{5 и дважды щелкните мышью по со- 
бытию опсвапае, чтобы создать обработчик сразу для всех выделенных компонен- 
тов. В нем напишите следующий код: 

ргосеёиге ТЕоли1 .БеЧЕа1ЕСВапде (бепдег: ТОБ)есЕ); 

Беа1п 

| Кера1пе; 
ера; 
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Попробуйте запустить этот пример. Теперь выбе-  |писеаоииию 
рите какой-нибудь цвет, и вы увидите составляющие т 


этого цвета. Можете даже напрямую изменять зна- 
чения в строках ввода, и результат моментально бу- 
дет отражаться на цвете прямоугольника. 


Рош? — _ ТРойи 


"Роребез ЕУете | — 7 Е 


ВНИМАНИЕ. Помните, что ни одна из составляю- 
щих цвета не может быть больше 255, иначе со- 
ставляющая превысит максимальный размер байта. 


ПРИМЕЧАНИЕ. На компакт-диске, прилагаемом к 
книге, в папке \Примерь\Глава 12\Союг вы можете 
увидеть пример этой программы. 


Ну а теперь познакомимся с константами, кото- 
рые уже заготовлены для основных цветов. Вы 
можете их реально использовать в своих програм- 
мах и присваивать, как ранее это делалось в при- 
мере (см. разд. 12.6). Здесь не будут перечисляться 
все константы, потому что вы можете их сами 
в любой момент найти, если щелкнете в объектном 
инспекторе по свойству со1ог любого компонента (рис. 12.10). Все, что вы увиди- 
те в этом списке, — это и есть константы, которые можно использовать. Этот при- 
ем довольно удобный, потому что сразу видно константу и цвет. 


Рис. 12.10. Цветовые константы 


12.8. Методы объекта ТСапуа$ 


Последнее, что нам надо узнать в этой главе, — это методы рисования. Пока что. 
мы использовали только линии, прямоугольники и текст, но на этом возможности 
объекта тсапуаз не заканчиваются. 


12.8.1. Р/хе!$ 


Свойство Р1хе1з — двумерный массив, указывающий на битовую матрицу 
изображения. Что это значит? Проще всего показать. Допустим, что вам нужно 
поставить точку черного цвета в координатах (10, 10). Для этого вы пишете сле- 
дующий код: 

Сапуа$ .Р1хе1$ [10,10] :=В1асКк; 


С помощью этого же свойства можно узнать цвет в какой-либо точке. 
Например: 

уах 

с:ТСо1охг; - 
ред1п | 

с:=Сапуаз .Р1хе1$ [10,10]; 

1Е с=с1В1асКк Епеп 

//Точка с координатами (10, 10) черного цвета 

Бра; 
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Как видите, свойство рР1хе1з — это самый настоящий двумерный массив из цве- 
тов точек нашего изображения. Вы легко можете получить доступ к любому пиксе- 
лу картинки, прочитать его или изменить. Только не думайте, что так можно по- 
символьно строить целые изображения. Доступ к массиву слишком медленный, 
и после каждого изменения цвета любого пиксела картинка будет прорисовывать- 
ся, а при обновлении всей картинки таким способом рисование будет происходить 
слишком долго. 


12.8.2. Тех Ис и Тежнего в! 


Давайте сразу познакомимся еще с двумя методами для работы с текстом — 
ТехеМ1АЕй И ТехЕНезойе. Обоим методам нужно передать какой-нибудь текст 
и первый из них вернет его ширину, а второй — высоту в пикселах. Эти методы 
очень удобны, когда нужно выводить форматированный текст. 

Допустим, что необходимо вывести две строки текста. Вы можете вывести одну 
из них, а потом чуть ниже вывести другую. А вот теперь самое интересное — на 
сколько ниже? Ведь если взять слишком много, то будет большой промежуток, 
а если слишком мало, то одна строка наедет на другую или попросту ее перекроет. 
Эти методы позволяют точно узнать длину или высоту текста в зависимости от ис- 
пользуемого в данный момент шрифта. 


` 


_ СОВЕТ. Используйте их каждый раз, когда это нужно, и.не надейтесь на собственные 
расчеты, потому что шрифт на разных машинах может выглядеть по-разному. Ба- 
нально, но под одним и тем же именем могут прятаться совершенно разные шрифты. 


12.8.3. Агс 


Следующий метод объекта тСсапуаз — ЭТО Ас, который предназначен для рисо- 
вания дуги. У него 8 параметров: х1, у1, Х2, \2, ХЗ, УЗ, хА, у4. Как видите, это 4 па- 
ры координат х и у, которые указывают 4 точки, через которые надо провести дугу. 


_ 12.8.4. СоруНест 


Этот метод предназначен для копирования указанного прямоугольника из одно- 
го объекта тсапуаз в другой. У метода три параметра: 
С рез: ТБесЕ — область, указывающая, куда надо копировать, 
С сапуаз: ТСапуаз — объект, из которого надо копировать, 
О зочгсе: ТВесь — область, указывающая, откуда надо копировать. , 

Первый и последний параметры имеют тип твесек. Это простая структура из че- 
тырех целых чисел — геЕф, Тор, Влапе, Воевом. Не Трудно догадаться, что это 
координаты прямоугольника. Для создания переменной Такого типа лучше всего 
‘использовать функцию вес+. Ей нужно передать четыре этих параметра гегк, Тор, 
В1аве, Воесом, И она вернет вам готовую структуру. 

Давайте рассмотрим пример и увидим все на практике. Допустим, у нас есть две 
формы. Мы хотим из второй формы гоги2 скопировать все ее содержимое в пер- 
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вую форму гоги1. При этом отобразим содержимое второй формы на первой | 
в прямоугольнике размером (10, 10, 110, 110). 
Программный код, выполняющий эти действия, будет выглядеть так: : 
уах 
ЗВесЕ, ОВесе: ТВесе;// Объявляю две переменные типа ТВес% 
Бед1п 
СВесе:=Кесе (0, 0, Еонм2.М1аАЕР, Еогм2.Незаре); 
РКВесё: =Кесе (10, 10, 110, 110); 
Роги1 .Сапуа$1.СоруКесе (ПКесе, Роум2.Сапуаз, сКесе); 
епа; 


В первой строке мы заполняем структуру $ВесЕ с помощью функции Веск. При 
этом указываем полные координаты окна гогп2 Т. е. (0, 0, ширина второй формы, 
высота второй формы). 

Во второй строке заполняется структура ркесЕ с помощью все той же функции 
Вес+. В принципе, ею можно не пользоваться и заполнять поля, как и для любой 
другой структуры: 

ОВесе.ЪеЕе:=10; 

ОВесе.Тор:=10; 

ОКесе.В1лане:=110; 

ОВесе .ВоЕсот: =110; 


В этом случае код займет 4 строки, а это уже недостаток. Лучше все записать 
одной строкой. Чем проще пишете, тем легче потом воспринимается код. 

И последнее — мы копируем холст второй формы в первую. Сразу надо заме- 
тить, что если размер области источника больше приемника, то область будет рас- 
тянута или сжата до размеров приемника. Таким образом, если размеры второй 
формы больше чем 100х100 (именно в такой квадрат на форме 1 мы хотим скопи- | 
ровать вторую форму), то изображение второй формы будет сжато до размеров 
100х100. | 

Иногда можно столкнуться с проблемой, когда в функции уже есть переменная 
или другая функция с именем веск. Уж слишком простое имя и в самом УСЕ. ис- 
пользуется для решения разных задач, поэтому и возникают проблемы. В этом слу- 
чае компилятор Реры может запутаться и не сможет определить, что именно вы 
хотите сейчас использовать: Чтобы помочь компилятору, можно ‘написать перед 
именем функции имя модуля, где описана функция, например: 

5Кесе: =С1аззез .Кесе (0, 0, Когтп2.\1аЕр, Еотта?.Не1аре); 


12.8.5. Огаи/ 


Этот метод тоже предназначен для копирования изображений, но другого фор- 
мата. У него три параметра: х и у— координаты, куда копировать; объект типа 
Тсгарь1с, который надо копировать. Этот объект мы еще не рассматривали и узна- 
ем о нем чуть позже. Тогда и будут примеры с методом рогам. Сейчас необходимо 
только запомнить, что этот метод не сжимает и не растягивает картинки при копи- 
ровании, а оставляет их в неизменном виде. - 
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12.8.6. ЕШр$е 


Метод предназначен для рисования эллипса (овала). Есть две его реализации: 
ргоседиге Е111рзе(Хх1, У1, Х2, У2: Тпбедег); 


ргоседите Е111рзе(сопзЕ Весё: ТВесЕ); 


В первом случае нужно передать четыре координаты прямоугольника, в кото- 
рый будет вписан эллипс. Во втором случае достаточно одного параметра типа 
ТВесе (как вы уже знаете, у этой структуры есть все необходимые четыре поля). 
Какой вы будете использовать — ваше дело. Иногда удобнее один способ, а иногда 
другой. 


12.8.7. ЕШВест 


У этого метода только один параметр — твеск, указывающий область, которую 
необходимо залить цветом кисти. В принципе, это то же самое, что и нарисовать 
прямоугольник. 


12.8.8. НоодЕШ 


Е100аЕ111 — заливка. У этого метода четыре параметра. Первые два— хиу — 
координаты точки, с которой нужно начинать заливку. Третий параметр — цвет. 
Последний параметр — способ заливки. Возможны два способа заливки: 


С ЕззикЕасе — залить всю область, где цвет равен цвету, указанному в третьем 
параметре; , 


С Езвогаег — залить всю область, где цвет не равен цвету, указанному в третьем 
параметре. 


Этих методов пока достаточно. Здесь показаны только основные методы, кото- 
рые вам могут пригодиться. С ними м многими другими мы познакомимся на прак- 
тике чуть позже. | 


12.9. Компонент работы | 
с графическими файлами (Т/таде) 


Этот компонент вы можете найти на вкладке АЗ@опа! палитры компонентов. 
С ним мы уже немного познакомились в разд. 11.5, но тогда рассматривали его 
только как компонент, который просто располагает на форме красивое изображе- 
ние. Тогда же не затрагивались другие его возможности, потому что вы еще не бы- 
ли готовы познакомиться с графикой. Сейчас, когда мы рассмотрели все необхо- 
димое, пора разобрать этот компонент по свойствам и методам. 

Компонент тттаде достаточно универсальный и может отображать картинки 
разного формата. Но в начальной установке он может загружать только файлы 
форматов ВМР, РС, ЛТРЕС или У/МЕ. Давайте посмотрим, как это делается. Соз- 
дайте новое приложение и установите на форму одну кнопку и компонент ттпаде 
с вкладки АЗ опа\|. 
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"Геперь бросьте на форму компонент 
ОрепР1ссагер1а1оа © Вкладки 0121025. 
Этот компонент предназначен для ото- 
бражения на экране стандартного окна 
открытия картинки. Нам также понадо- 
бится кнопка, по нажатии которой мы 
будем отображать окно открытия кар- 
тинки и потом загружать выбранную. 

На рис. 12.1] вы можете увидеть 
форму будущей программы. Но пока 
готова только форма. Чтобы программа 
стала полноценной, надо написать код 


Открыть картинку пишем следую- 
ЩИЙ КОД: 


ргосеиге ТЕоги1. ВЫЕБоп1С1 СК (епдех: ТОБ]есЕ); 
Безч1п 

1Е ОрепР1свагер1а]1о091.Ехесаее ЕПеп 

Ттааде1 .Р1сеиаге.ГоаЯаРготЕ1 1]е (ОрепР1с6игер1а1о91.Е11еМапе); 
епа; 


В первой строке отображается стандартное окно открытия картинки. Для этого 
достаточно вызвать метод Ехесихе компонента ОрепР1сЕигер1а1о91, Т. е. написать 
ОрепР1сбигер1а1о31 .Ехесаке. Этот метод возвращает логическое значение. Если 
оно равно егие, то пользователь выбрал файл, иначе нажал отмену. Именно поэто- 
му мы проверяем результат вызова метода кхесиее с помощью: 


1ЁЕ ОрепР1сбигер1а1оа1.Ехесибе ЕВеп. 


Если файл выбран, то выполняется следующий код: 
Гладе1 .Р1сеиге .ГоааЯЕготЕ11е (ОрепР1сбатер1а1о41.Е11еМапе); 


Разберем эту конструкцию по частям. У компонента ттаде1 есть свойство 
Р1сеиге. Это свойство имеет объектный тип (а значит, и свои свойства и методы) 
ТР1скиге. Этот объект предназначен для работы с изображениями практически 
любого типа. Он достаточно универсален, в чем мы очень скоро убедимся. 

Для загрузки изображения мы используем метод гоаЯЕхопЕ11е (загрузить кар- 
тинку из файла) объекта рР1сеоге. В качестве единственного параметра этого мето- 
да нужно указать имя открываемого файла или полный путь, если картинка нахо- 
дится не в той же папке, что и сама программа. 

Мы выбираем имя файла с помощью стандартного окна, и полный путь к файлу 
находится в свойстве Е11еМате компонента ОрепР1сЕагер1а1031. 

Все достаточно просто. Попробуйте теперь запустить программу и посмотреть 
на результат ее работы. В окне открытия файла посмотрите, какие типы файлов 
можно открывать. В зависимости от версии и установленной комплектации коли- 
чество типов может быть от [1 до 3 — ВМР, 1СО и \УМЕ: 

Давайте научим нашу программу работать с форматом )РЕС. Не волнуйтесь, это 
не сложно и нам не придется писать фложный алгоритм распаковки изображения. 
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В Реры уже есть все необходимое, надо только это необходимое подключить 
к проекту. | 

Для начала переместитесь в раздел изез проекта и подключите туда модуль 
)ред. В этом модуле описано все необходимое для работы с форматом изображе- 
ний ]РЕС. 

В принципе, этого достаточно. | 
Осталось только заставить окно 
открытия файлов показывать | еее . 
фильтр на данный тип файлов. | |ЕЗАТАИУ | 
Для этого выделите компонент мавве кий ^^ 
ОрепР1ссигеГ}а1091 и дважды ‘| рез 9 
щелкните по свойству 211кег. Пе- ||. 
ред вами откроется окно настройки 
фильтра, как показано на рис. 12.12. 

В этом окне есть несколько за- 
полненных строк. На рисунке 
только три. В четвертой строке | | 
(первой пустой строке) напишите О | | — 
в первой колонке "7РЕС Ейез", Рис. 12.12. Окно редактирования фильтра 
а во второй колонке напишите 
"* ре". Можете нажимать ОК и 
запускать программу. Теперь в окне открытия графического файла можно выбрать 
тип .]рг и открыть нужный файл. Он также будет загружен в компонент тваде1, 
даже несмотря на свой сложный алгоритм сжатия и другой вид хранения данных. 


| сасё | 


ПРИМЕЧАНИЕ. На компакт-диске, прилагаемом к книге, в папке \Примерь\Глава 12\оа4тд 
|падез вы можете увидеть пример этой программы. 


Теперь попробуем модернизировать пример и получить доступ к содержимому 
картинки. Для этого мы будем копировать изображение, используя прозрачность. 
Как? Сейчас узнаете. 

Создайте обработчик события ОпРа1пЕ для главной формы в уже созданном на- 
ми примере. В процедуре гогиРа1пе напишите следующее: 

ргосеайге ТРоги1 .ЕГогтРа1те (бепаехг: ТОБдесЕ); 

Беач1п 

Сапхуаз .ВгазПСору (Вес® (200,16,200+Ттаде1 .Млаеь, 16+Гиаде1 .Нелзоаве), . 
Тпаде1 .Р1сбиахге.В1етмар, 
Весе (0,0, Тмазе1 .м1АЕН, Тмазче1 .Не1ате), 
Ттаде1 .Расеаге.В1етмар.Сапуа$ .Р1хе1$[1,1]); 

епа; 


А в процедуре, где мы загружаем изображение, нужно в конце добавить вызов 
метода Кера1пе, чтобы после открытия графического файла форма прорисовалась 
заново и вызвался обработчик опРа1пе.. 

Теперь попробуйте запустить программу и загрузить в нее файл формата ВМР.. 
Вы должны увидеть результат, подобный му, что показан на рис. 12.13. Слева 
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у нас находится изображение картинки тмаде1, а справа мы делаем копию изобра- 
жения на форму. 


Е. треть к 


Рис. 12.13. Результат работы программы 
А вот теперь давайте посмотрим, что тут происходит. Код окажется немного 
сложным, но это только на первый взгляд. Рассмотрим все по частям. `Мы исполь- 
зуем процедуру ВгазпСору у уже знакомого сапуаз . Эта процедура копирует на 
Сапуаз Картинку. | 
ргоседиге ВгазНСору ( 
соп5Е Безе: ТВесе; // Область приемника 
В1етар: ТВ1Етар; // Картинка, которая будет копироваться 
сопзЕ 5оигсе: ТВесе; // Область источника 
Со1ог: ТСо1ог); // Прозрачный цвет 


Область приемника объявлена как  Твесь, который имеет вид 
ТВесЕе = (пеЕФ, Тор, В1аре, ВоЕеом: Тпседег). С тем, что находится в скобках, 
мы познакомились ранее. То же самое и с областью источника. В качестве картин- 
КИ передается В1Емар ИЗ ТТмасе. 

В качестве прозрачного цвета мы использовали цвет пиксела в позиции [1, 1] 
картинки Ттпаде. На это указывает запись: 


Ттаче1 .Р1сеиге.В1Етар.Сапхаз.Р1хе1$[1,1]. 


Попробуем записать ее немного по-другому: 
ТТпадче1.Его_картинка.В1етар.Холст.Пиксел[1_по_оси_Х, 1_по оси_У] 


ПРИМЕЧАНИЕ. На компакт-диске, прилагаемом к книге, в папке \Примеры \Глава 12\таде1 
вы можете увидеть пример этой программы. 


Обратите внимание, что если вы сейчас попытаетесь открыть какой-нибудь не 
ВМР-файл, то программа ничего не отобразит. Это связано с тем, что только ВМР- 
файлы хранят свои изображения в свойстве в1 стар, все остальные хранят в свойст- 
Ве Сгарр1с ИЛИ МекаЁ11е (для векторного формата). Так что получить доступ 
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к ]РЕО-изображению таким образом нельзя. Зато можно с помощью метода Ргам. 
Для этого нужно подкорректировать обработчик события опРа1пе: 
ргоседцге ТЕотт1 .РопаРа1пе (бепаеу: ТОБзес®); 
Беч1п 
Сапуаз .Пхам(200, ‘16, Гпаде1.Р1сеахге.СгарЮ1с); 
епа; 


Здесь мы уже рисуем не в1смар, а Сгарь1с, поэтому программа будет работать 
корректно. о 

Векторные файлы, например, формата У\/МЕ, хранят свои данные в свойстве 
МегаЕ11е. Для их отображения обработчик события опРа1пЕ должен быть таким: 

рхоседохе ТЕотг1 .РохпРа1те (5епаег: ТОБес®); | 

ред1п 

Сапуаз.Рхам(200, 16, Тшаде1.Р1сеихе.МеваЕ11е); 
епа; 


12.10. Рисование | 
на стандартных компонентах 


Очень часто для лучшего представления данных нужно рисовать внутри ком- 
понента тг1зЕВох. Что здесь имеется в виду? Посмотрите на рис. 12:14, и вы все 
поймете. 

Для сбздания этого примера нам понадобится на 
форме компонент ть1зевох. В его свойстве теешз нуж- 
но создать 8 строк, в качестве заголовков для которых 
будут выступать числа от 1 до 8. Почему именно эти 
числа? Да потому, что существует 8 стилей кисти, 
и у нас будет в списке 8 элементов с изображением 
каждого стиля. | 

Может, это покажется странным, но все делается за 
7 строк кода.-Конечно же, в одну строку можно запи- 
сать и 20 операций, но этот случай не учитывается. Рис 12.14. 1 зевох 

Секрет рисования заключается в том, что у компо- с графическими данными 
нента тТт1зЕВох1 СВОЙСТВО 5%у1е должно быть 
150\тегрОгамЕ1хеЯ или 10\утегргам\аг1аЪ1е. 

После этого создайте обработчик события опргамтеем для этого компонента 
и в нем напишите содержимое листинга 12.8._ 


‚ рхосеёаге ТЕогт1 .Г1$ЕВох1ОгамТеет(Сопёхго1: Т\1пСопЕхго1; Тпаех: ТпЕедег;’ 
Весе: ТВесе; ЗЕабе: ТОутегОгамсваее); 

Ъед1п 

м1ЕР 11$ЕВох1.Сапуаз Яо 


Беа1п 
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Вгизр.Со1ог:=с1ВеЯ; // Задаем красный цвет кисти. 

ВгазВ . 5еу1е: =ТВгазр5су1е (Трех); //Выбираем стиль кисти 
Реп.5%5у1е:=рзС1еаг; 

Вессапа1е (Кесе.ГеЕЕ,Весе.Тор,Весе.ГеЕЕ+100,Весе.ВоЕвом); 
ВгазВ.б6у1е: =Б$С1еаг; 

Ропе.Со1охг: =с1В1ще; 

ТехЕОц+ (КесЕ.ЦеЕЕ+110,ВесЕ.Тор, ТпЕТобех (1паех)); 

епа; 


епЯ; 


Вот и все. Программа готова, нажмите на запуск и наслаждайтесь. Только да- 
вайте посмотрим, что тут написано. 

Первая строка: 

м1ЕВ Г1$ЕВох1.Сапуаз ао 


Оператор изен говорит, что все последующие операции будут производиться 
с компонентом (объектом) т,1з3ЕВох1.Сапуаз. Для того чтобы вы лучше понимали, 
код без этой строки показан в листинге 12.9. 


ргоседцге ТЕогт1 .11$ЕВох1ОгамТ+ем(СопЕго1:  ТиИ1пСопЕго1; Тпаех: Тпеедег; 
Весе: ТВесе; Зеаее: ТОитетргаизтасе) ; 

Беа1п 
4 3ЕВох1 .Сапуаз.ВгизН .Со1ог:=с1Веа; 
.15ЕВох1 .Сапуаз.Вгазр . 5Еу1е: =ТВгазВ5еу1е (Тпдех); 
.1$5ЕВох1.Сапуа$ .Реп.5%6у1е:=рзС1еаг; 
Г15ЕВох1.Сапуаз .Кескапа1е (Кесе .еЁе,Весе.Тор, 

Весе.ГеЕс+100,ВесЕ.Воееом); 


Т1$ЕВох1.Сапуа$ .Вгазй. 5 еу1е:=Ъ$С1еаг; 
Т15ЕВох1 .Сапуаз .КопеЕ.Со1ох:=с1В1ще; 
Т1$ЕВох1 .Сапуаз .ТехЕОце (Весь .ГеЕк+110,Весе. Тор, ТпЕТОЗЕЕ (1пдех) ) ; 


епа; 


Как видите, в каждой строке появились подписи г1зЕВох1.Сапуаз. Код стал 
очень некрасивым. Постоянно нужно говорить, Что Вхазв или еще что- нибудь Нуж- 
НО ВЗЯТЬ У 1.13ЕВох1 .Сапуаз. Поэтому и используется оператор изен: 

\1ЕР 11$ЕВох1.Сапуаз @о 

Беч1п 

Вгазр.Со1ог:=с1Беа; 

Вгазв. зЕУ1е: =ТВгазЬзеу1е (Тпаех); 

Реп.5Еу1е:=рзС1еаг; 

Вессапа]1е (Кесе.еЁе,Кесе.Тор, Кесе.ГеЕ+100,Весе.Воеком) ; 
епа; 
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Теперь рассмотрим еще несколько подводных камней нашей программы. Кон- 
струкция ВхизВ .5Еу1е: =ТВхазВ5еузе (Тпдех) выбирает кисть в зависимости от ри- 
суемого в данный момент элемента. Всего существует восемь стилей кисти. Когда 
выдается сообщение опргамтЕею для первого элемента (06 этом говорит параметр 
:пдех, передаваемый в процедуру т.1зЕВох1ркгамтеем), мы рисуем элемент с кистью 
первого стиля. Для второго элемента будет использоваться второй стиль кисти и 
Т. Д. 

Карандаш будет прозрачным Реп. 5еу1е: =рзС1еаг, ЭТО для ТОГО, чтобы не было 
никаких оборок. Попробуйте убрать эту строку-и посмотреть на результат. 

Функция вескапа1е (х1,у2,х2,у2) рисует прямоугольник с соответствующими 
координатами. Дальше кисть делается прозрачной и задается цвет фона. После это- 
го просто выводится текст строки с помощью функции ТехЕОцЕ (х, у, текст). 

Попробуйте сделать то же самое с компонентом ТсопьоВох. Не забудьте про 
свойство ЗЕу1е у этого компонента. А в остальном весь код будет таким же. 


ПРИМЕЧАНИЕ. На компакт-диске, прилагаемом к книге, в папке \Примерь\Глава 12\4${Вох 
вы можете увидеть пример этой программы. 


Еще один пример рисования в стандартных компонентах, который используется 
здесь с целью обучения работы с графикой — рисование графических подсказок 
в строке состояния. Что имеется в виду под 
выражением "графические подсказки"? Все 
очень просто. Вы каждый день встречаете в 
программах строку состояния внизу экрана, 
в которой выскакивают подсказки. Сегодня 
мы посмотрим, как сделать текст в компо- 
ненте зкакизВаг трехмерным. 

На рис. 12.15 показана форма, которая 
будет использоваться нами для вывода графи- 
ческой подсказки. Прежде чем приступить 
к программированию, надо вспомнить, как 
вообще выводятся подсказки. В листинге 12.10 
показан пример программы (точнее, часть про- 
граммы), которая выводит подсказки. 


‚ргоседоте ТЕоут1.ГохтСгеаее (бепаехг: ТОБЗес®); 


ред1п 
Арр11саб1оп .ОпНаие := 5ПомН1пе; 


епа; 


ргосеаиуе ТЕоти1 . ЗПомН1п Е (бепает: ТОБзес®); 
ред1п 
сЕакизВаг1. $5 1тр1еТехе: =Арр11сае1оп.Н1пе; 


ева; 
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Вспомним, что здесь происходит. В процедуре гохиСгеа‹е (обработчик события 
ОпСгеаЕе для главной формы) мы устанавливаем в качестве обработчика события 
Арр11сае1оп.Опн1пЕ свою процедуру 5вомн1иае. Теперь, когда будет происходить 
событие опн1лпе (т. е. когда нужно вывести подсказку), будет вызываться процедура 
Зпоин1пе. В этой процедуре мы просто выводим подсказку в компонент 
Зсаса$Ваг1. 

Теперь можно переходить к графической подсказке. Полный исходный текст 
‚кода нового вида функции 5помн1пе вы можете увидеть в листинге 12.11. 


5; 
ораявыво, 

О 
Зубное чета ве $$ о КАНЬОН 


я Е яя Е 
"в Убов очен аые . ЛТНА 


рхоседиге ТЕохт1 . ЗпомН1пе (беп4ег: ТОБЗес®); 
уах | 
1,6: Тпебедег; 
Беа1п 
Зсаеа5Ват1 .Кера1п(; 
\1ЕВ ЗЕабазВаг1.Сапуаз Ао 
Бед1п 
Витазь.56у1е:=ЬзС1еаг; 
Ропе.Со1ог: =СсП 1 Ее; 
1:=10; 
Е:=1; 
ТехЕОчце (1,Е,Арр14саЕ1оп.Н1пе); 
1Е БКаЯа1оВиееоп1 .Спескея Етеп 
Беа1п 
1пс (1); 
1пс (Е); 
епа 
е1 зе 
Беа1п 
ес (1); 
аес (*); 
епа; 
Ропе.Со1ох:=с1]В1ае; 
ТехЕоице (1, Е,Арр11саб1оп.Н1пе); На 
епа; | | 


ета; 


Здесь ничего сложного нет. Мы просто выводим два раза текст подсказки с раз- 
ным цветом и небольшим смещением. Это происходит точно так же, как и распо- 
:Ложение двух компонентов ТГаБе1 на форме с небольшим смещением и разным 
цветом текста. 


ПРИМЕЧАНИЕ. На компакт-диске, прилагаемом к книге, в папке \Примеры\Глава 12\ 
Защз$Ваг вы можете увидеть пример этой программы. 
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12.11. Работа с экраном ‘ 


Не знаю, зачем, но очень часто меня спрашивают о том, как получить доступ к 
экрану. Такие люди хотят скопировать содержимое экрана в виде картинки и потом 
использовать это по своему усмотрению. Так как такой вопрос появляется не ред- 
ко, то решено рассмотреть здесь пример его решения. В любом случае пример ин- 
тересен и полезен в познавательных целях. 

Создайте новый. проект и разместите на форме две.кнопки ТВоеЕоп и один. 

ТТтаде. Для первой кнопки напишем в событии опс11ск содержимое листин- 
га 12.12. 


ргосеиге ТЕотта1 .Вие6оп1С11ск (бепаег: ТОБ-ЗесЕ); 
уах 

эзсгеепрс :НОС; 
реа1п 

бстеепо0С := сеерс (0); 

Весбапа1е (5сгеепос, 10, 10, 200, 200); 
Ве1еазербс (0, зскеепгс) ; | 


еп; 


С помощью этой процедуры мы рисуем прямо на экране, вне области окна своей 
программы. Во время рисования не обращаем внимания на запущенные приложе- 
ния. Если они попадаются, то рисование происходит поверх них. 

Теперь о содержимом программного кода. Вначале объявлена переменная 
$скееррс Типа нос. нос — это тип контекста рисования самой \У/т4о\5, и работает 
он почти так же, как и ТСапуаз (чуть позже вы увидите связь). С помощью функ- 
ЦИИ Сеёос (0) мы получаем контекст окна, указанного в качестве параметра. Но 
в скобках стоит 0 (ноль), а не указатель на реальное устройство или окно. Это зна- 
чит, что мы хотим получить глобальный контекст, т. е. самого экрана. 

Далее вызывается функция кескапа1е, она похожа на ту, что мы использовали 
раньше, когда работали с холстом тСапуаз.Вескапа1е. Есть только одно отли- 
чие — первый параметр — теперь контекст устройства, а затем идут координаты 
прямоугольника. Это связано с тем, что раньше мы рисовали через объект тСапуаз, 
который привязан к определенному компоненту. А это значит, что объект может 
самостоятельно подставлять указатель на свой объект. Сейчас мы будем рисовать 
средствами СООТ \У/тдо\5. Его функция вескапа1е универсальна и не связана с оп- 
ределенными элементами управления или окнами. Если честно, то процедура 
ТСапуаз .Вес+апа1е всего лишь вызывает вескапа1е из \Мшдо\$ АРГи подставляет 
нужный контекст устройства и размеры, поэтому в ней на один параметр меньше. 
Сейчас мы сами делаем это без помощи тСапуаз. | 

После рисования освобождается больше не нужный контекст рисования через 
функцию ве1еазерс. Такие вещи обязательно надо делать, чтобы не засорять 
память. 
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Если вы захотите рисовать не на экране, а внутри определенного окна, то в этой 
процедуре нужно поправить только первую строку. А именно — в качестве пара- 
метра сеерос передавать указатель на окно. 


ПРИМЕЧАНИЕ. Указатель окна находится в свойстве Напа1е объекта ТЕохм. 


Сейчас можно запустить программу и посмотреть на результат. Теперь перей- 
дем ко второй кнопке. Для нее напишем (для процедуры события опс11ск) содер- 
жимое листинга 12.13. | 


ргоседиге ТЕРоут1 .Виббоп2С11ск (бепаег: ТОБ]есе); 
уаг 
Сапуа$ : ТСапуаз; 
5сгеепрс :НОС; 
Ъеа1п 
Зсгеепрс := беегс (0); 
Сапхаз : =ТСапуаз .Сгеабе (}; . 
Сапуа$ .Напа1е:=бсхеепрс; , 
Тиаде1 .Сапуаз .Соругес® (Кесе (0,0, Тмаде1 .М1аен, Ттадче1 .Нетайе), 
Сапуаз, Кес® (0,0, $схееп .ИЛаеь, бсгееп .Нелове)); 
Ве1еазерСс (0, 5сгеепоС); 
Сапуа$ .Егее; 
епа; 
Здесь мы получаем копию экрана и сохраняем ее в компоненте тмаде1. 
Первая строка такая же, как и в предыдущей процедуре. Мы точно так же полу- 
чаем контекст рисования экрана. Потом инициализируется переменная Сапуаз ТИ- 
Па ТСапуаз (знакомый нам контекст рисования). Потом мы связываем их между 
собой с помощью простого присваивания в Сапуаз.Напа1е:=5сгеепрос. Теперь 
ТСапуаз указывает на экран, и можно рисовать на нем привычными методами. Те- 
перь вы видите связь между холстом Сапуаз и контекстом рисования нос. Объект 
холста всегда содержит указатель на контекст рисования нрс в свойстве папа1е 
и использует этот контекст при вызове всех своих методов (таких как Весгапа1е). 
Для компонентов Веры это свойство заполняется автоматически, и нам не надо 
о нем заботиться. 
Получается, что ТСапуаз -—— это объект, который упрощает в У/тдо\5 АР]- 
функции и превращает работу с графикой в объектную. 
Далее мы получаем копию экрана и записываем ее в картинку Тттаде с помощью 
функции соруВесе у контекста рисования картинки (тпаде1 .Сапуаз.СоруВес\). 
После копирования нужно освободить контекст рисования $сгеепрс и создан- 
НЫЙ ХОЛСТ Сапуаз, чтобы освободить выделенную память. 


ПРИМЕЧАНИЕ. На компакт-диске, прилагаемом к книге, в папке \Примерь\Глава 12\Зсгееп 
можно увидеть пример этой программы. 
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12.12. Режимы рисования 


У карандаша (свойство Реп холста) есть очень много режимов рисования. Бла- 
годаря им можно добиться очень интересных эффектов. Режимы рисования уста- 
навливаются в свойстве Моде карандаша. Это свойство имеет тип тРепМоае и может 
принимать следующие значения: рив1асКк, риМЬ1Ее, риМор, риМое, ртСору И Т. Д. 
Здесь мы рассмотрим, как можно использовать это СВОЙСТВО В СВОИХ целях. 

Это не справочник, а книга, по которой вы должны научиться программировать, 
познакомиться с некоторыми алгоритмами и научиться правильно мыслить. Имен- 
но поэтому здесь не будут рассматриваться все возможные варианты режимов, 
а будет описан только один — риМоЕХог. Почему этот режим? Да потому, что ему 
легко найти применение. Остальные встречаются довольно редко. 

Итак, представим, что нам надо составить пример, в котором пользователь дол- 
жен иметь возможность рисования на форме прямоугольника. Кода в нашем при- 
мере будет немного и логика до предела проста. 


1. По нажатии кнопки мыши мы запоминаем текущие координаты точки, где был 
произведен щелчок кнопки мыши. | 


2. При движении указателя мыши мы должны проверять — если кнопка мыши на- 
жата, то пользователь растягивает прямоугольник, и мы должны его рисовать, 
начиная от стартовой позиции до текущей. 


Теперь реализуем эти пункты в программе. Создайте новый проект и перейдите 
в раздел рез уаее описания объекта. Там нужно добавить следующие переменные: 
рг1уасе 
{ Рулуаее аес1агаЕ1опз$ } 
ЗеахЕХ, ЗсахЕУ: Тосеаег; 
Ягача1та : Воо1еап; 


Переменные зкагех, зкагеу будут использоваться для хранения координат на- 
чала прямоугольника. Переменная ахачда1па будет использоваться для признака 
растягивания. Если эта переменная равна егие, то пользователь нажал кнопку мы- 
ши и перемещает курсор, и мы должны растягивать прямоугольник. 

По событию опсгеаке для формы мы должны задать переменной ахада1па зна- 
чение по умолчанию — {а1зе. Ведь после старта приложения мышь ничего не 
"тянет" и кнопка не нажата. Вот чтобы избежать случайного попадания в перемен- 
ную значения гие, мы должны по событию создания формы опсгеасе написать 
следующий код: | 

ргоседиге ТЕотти1 .РогиСгеаее (беп@ет: ТОБ]ес®); 


Беаап 

Яхада1па: =ЁЕа15е; 

епа; 

‚Для события — щелчок кнопкой мыши (опмоззеромт) — пишем следую- 
щий КОД: 


ргосе@аге ТЕогт1 .РоушМоцзеро\ут (бепЯе’г: ТОБ)есе; Ваббоп: ТМочзеВае®оп; 
ЗВ1ЕС: ТоР1ЕЕббаее; Х, У: Тпбедег); 
Беач1п 


Графические возможности бер! 335 


бах Х:=Х; 
бсах’бУ: =\; 


Яхазазпа: =6хае; 
епа; 


Сначала рассмотрим параметры, которые мы получили вместе с обработчиком. 
У нас тут пять параметров. 


С зепаех — здесь хранится объект, который сгенерировал событие. 


С воесоп — признак кнопки, которая была нажата. Этот параметр может быть ра- 
вен: пьГеЕЕ (нажата левая кнопка), повзовЕ (нажата правая кнопка) или 
пьм1аа1е (нажата средняя кнопка). 


О зы1ЕЕ — состояние дополнительных клавиш клавиатуры. Это набор параметров 
ТИПа 7551 ЕЕ5кахе. Параметр может хранить любые из следующих значений: 


® 33551 ЕЕ — нажата клавиша <ЭШИ>; 

® ззА1Е — нажата клавиша <А]>; 

® ззСЕг1 — нажата клавиша <СИ]|>; 

е зъэЬеЕс — левая кнопка мыши нажата; 

® зък1онЕ — правая кнопка мыши нажата; 

® зъм:аа1е — средняя кнопка мыши нажата; 

® з5Роцр1е — был двойной щелчок кнопкой мыши. 


Чтобы проверить, была ли нажата клавиша <511Е%> во время нажатия кнопки 
мыши, можно написать следующий код: | 
1Е зэ5р1Ее 1п 5Р1ЕЕ ЕБеп 


Почему этот параметр — набор? Да потому, что одновременно на клавиатуре 
может быть нажато две клавиши СЕг1 и $11 Е и даже три клавиши. Именно поЭтТо- 
му мы в данном коде проверяем, если константа зз3ъ1Ее содержится в наборе 
ЗВ1ЕС, ТО соответствующая клавиша нажата и выполняется код, указанный после 
проверки. | 

х, у — последние два параметра. Это координаты, в которых была нажата кноп- 
ка мыши. | 

Внутри самой процедуры координаты сохраняются в переменных 5+ахех 
И ЗЕахеу, и значение переменной Ягааа1та изменяется на Егце. 

Теперь напишем обработчик события опмоизеМоуе, который генерируется при 
каждом перемещении указателя мыши: 

ргоседиге ТРоуш1 .ЕогиМоцзеМоуе (бепаеуг: ТОБдес®; $501Ё&: Тор1ЕЕ5сасе; Х, 

У: Тпеедег); 
Бед1п 
1ЁЕ агачалпа=Ёа]1зе ЕПеп ех1{; 


Сапуа$ .Кескапа1е (ЗбатЕХ, бЕахк®У, Х, У); 
епЯ; | 
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Параметры этого обработчика похожи на обработчик события опмоцзеромт. 

В первой строке происходит проверка, если переменная агада1па равна Еа1зе, 
то сейчас нет никакого перемещения и нужно выйти из процедуры. Иначе нужно 
нарисовать прямоугольник с координатами первой точки 5Еахех, ЗкакЕУ и второй 
ТОЧКИ Х, У. 

По событию опмоцзеор нужно присвоить переменной агача1па значение га1зе. 
Напишите этот код сами. | 


д огл 


Рис. 12.16. Пример работы программы 


Теперь запустите программу. Попробуйте щелкнуть кнопкой мыши и потянуть 
ее. Будет создаваться эффект, как будто вы растягиваете прямоугольник. А теперь, 
не отпуская кнопку мыши, попробуйте начать уменьшать прямоугольник. Вот тут 
начинается полный ужас (рис. 12.16). Пока мы растягивали прямоугольник, он спо- 
койно накладывался поверх старого. Но как только мы начали уменьшать, новые 
прямоугольники становятся меньше старого и старый остается на экране, а новый 
оказывается как бы внутри. | 


ПРИМЕЧАНИЕ. На компакт-диске, прилагаемом к книге, в папке \Примеры\Г лава 12\ 
СоруМоде1 вы можете увидеть пример этой программы. 


Чтобы избавиться от этого эффекта, есть два способа. 


1. Перед каждым рисованием запоминать содержимое экрана и потом восстанав- 
ливать его. Такой способ связан с большими нагрузками на процессор и лишним 
расходованием памяти. 


2. Затирать только старые прямоугольники и восстанавливать то, что было ПОД ЛИ- 
НИЯМИ. 


Все почему-то боятся использовать второй способ, думая, что он сложен. Сейчас 
докажем обратное. Мало того что этот способ абсолютно прост в программирова-. 
нии, но и очень быстр. _ 


Графические возможности Оер/!! 337 


Для начала добавим в раздел рг1уахе еще несколько переменных: 
рг1уаее 

{ Ре1уабе аес1агае1опт$ } 

О1аРепМоае : ТРепМоае; 

ЗЕа’ЕХ, ЗбахгЕУ, О1ах, о1ау:Тпеедег; 

Ягаача1па :Воо1еап; 


Здесь добавлена переменная о19Репмоде, в которой будет сохраняться текущее 
значение режима рисования. Переменные о1ах, о1ау нужны для хранения конеч- 
ных координат старого прямоугольника (начальные координаты 5ЕахЕХ и ЗЕахУ). 

Теперь подправим обработчик события опмоизеромт: 

ргоседиге ТЕоут1 .РогиМочзеро\мт (5епег: ТОБ)есе; Ваесеоп: ТМочзеВае оп; 

$11Е6: Т5р1ЕЕбеафсе; Х, У: Тпбедег); 
ЪБеа1п 
Сапуа$ .Вгазр .Со1ог: =сП\1 ее; 
О1ЧРепМосче : =Сапуа$ .Реп.Моае; 
Сапуаз .Реп.Моае : =риМоеХог; 


ЭЗЕа’ЕХ:=Х; 
СЕахУ:=У; 
О1ах:=Х; 
О1ау:=У; 


Ягача1та : =6 уе; 
епа; 


В самом начале мы добавили изменение свойства кисти холста. Кисть стала бе- 
лой, чтобы прямоугольники имели белый фон и лучше было видно эффект закраски. 

Во второй строке сохраняется текущий режим рисования в переменной 
О1аРепМоае. В следующей строке меняется режим на рпмоехог. В таком режиме, 
когда мы рисуем первый раз какую-то фигуру, она выводится в нормальном виде. 
Если нарисовать второй раз прямоугольник, то он просто стирается и старое изо- 
бражение восстанавливается на экране. 

Попробуйте выполнить над какой-нибудь переменной операцию моехохг (исклю- 
чающее "ИЛИ"). Эта переменная примет нечитабельный вид. Вторая операция вер- 
нет переменную в первоначальное состояние. Именно так делались первые про- 
стейшие алгоритмы шифрования, потому что МоЕхог легко обратимая 
математическая операция. | 

Вернемся к нашему коду. После этого мы просто заполняем текущие координа- 
ТЫ ЗЕахЕХ, 5ЕагЕ\У, отах и о1ау. 

Теперь посмотрим обработчик события опмоизеМоуе: 

ргосеаиге ТРоти1 .ЕКоуМоцзеМотхе (бепаег: ТОБзесе; 5В1ЕЕ: Т5В1Есбкаее; Х, 

У: Тобедег); 
‚Беа1п 
1ЁЕ ахгача1па=Ёа1зе ЕВеп ех1е; 


Сапуаз .Кесбапа1е (5БауЕХ, Зеа’бУ, О1ах, о1ау); 
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Сапуаз .Кесбапа1е (5бахЕХ, ЗбагЕУ, Х, У); 


олах:=х; 
О1ау:=У; 

ера; 

Начало обработчика такое же. Потом рисуется прямоугольник в старой позиции, 
где он был нарисован на прошлом шаге. Так как используется режим риМоЕХох, То 
повторное рисование прямоугольника в старой позиции просто восстанавливает 
старое значение. После этого рисуется фигура в новой позиции и сохраняется те- 
кущая позиция Хх иу в переменных о1ах и о1ау. 

И, наконец, обработчик события опмоцзетр: 

ргосеаиге ТЕогп1 .ЕогиМочзе0р (5бепаег: ТОБ)есе; Ваббоп: ТМоцзеВиесоп; 

5В1ЕЕ: Т5р1ЕЕ5еаее; Х, У: Тиабедег); 
Бед1п 
Ягаача1та : =Ёа15е; 


Сапуаз .Реп .Моае : =О1аРепМоае; 
Сапуа$ .Вескапа]е (ЗкагЕХ, ЗЕагбУ, Х, У); 
ера; 


‚В первой строке мы присваиваем переменной агада1па значение Еа1зе. Это го- 
ворит о том, что создание прямоугольника закончено. Во второй восстанавливается 
старое значение режима рисования. И в самой последней строке рисуется уже 
окончательный вариант прямоугольника. 

Запустите программу и попробуйте нарисовать прямоугольник. Никаких накладок 
в этом случае не происходит. Обратите внимание, что когда вы растягиваете прямо- 
угольник, то его фон прозрачный. Только когда вы отпускаете кнопку мыши (режим 
рисования восстанавливается), рисуется прямоугольник с фоном белого цвета. 

Попробуйте нарисовать сразу несколько прямоугольников на форме и убеди- 
тесь, что все работает нормально. 


ПРИМЕЧАНИЕ. На компакт-диске, прилагаемом к книге, в папке \Примеры\Г лава 12\ 
СоруМоде2 вы можете увидеть пример этой программы. 


12.13. Сканирование данных 


Рисование функциями происходит достаточно быстро, но с их помощью можно 
сделать далеко не. все. Например, вы хотите реализовать в своей программе воз- 
можность наложения на изображение эффекта размытия (Виг). Среди функций 
холста ТСапуаз нет нужной функции, поэтому придется реализовывать алгоритм 
самостоятельно. Конечно, есть еще вариант — найти нужный компонент или мо- 
дуль в Интернете и использовать его, но мы не будем рассматривать такую воз- 
МОЖНоСТЬ. 

Я знаю только один способ реализации эффекта размытия — через прямой дос- 
туп к пикселам картинки, потому что этот эффект нельзя обрисовать линиями, 
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квадратами или чем-то еще. Работа с пикселами может быть реализована через 
СВОЙСТВО Р1хе1з, но такой алгоритм будет работать невероятно долго, несмотря на 
свою простоту. Есть выход лучше — использовать свойство 5сапь1пе. 

Свойство 5зсарг4пе позволяет получить индексированный доступ к строкам изо- 
бражения на низком уровне. Каждая строка представляет собой указатель-массив 
из байт. При этом длина массива равна ширине картинки, умноженной на ширину 
одного пиксела. Что значит ширина пиксела? Это количество байт, необходимых 
для описания цвета одного пиксела. Для самого распространенного и простого (на 
мой взгляд) 24-битного изображения один пиксел описывается 24-я битами, или 
3-я байтами. Значит, для картинки в 10 пикселов в ширину $сапг3 пе вернет 30 чисел. 

Итак, давайте посмотрим пару алгоритмов, чтобы вы увидели работу $сапь1пе 
на практике. Создайте новое приложение и поместите на главной форме следую- 
щие компоненты: | 


О ткаскВах — изменяя его бегунок, мы будем изменять коэффициент размытия; 


С тпаде — в который будем загружать картинку и здесь же будем отображать ре- 
зультат; 


О орепР1сЕихер1а1оа — окно выбора файла будет использоваться по своему на- 
значению, т. е. для выбора картинки для загрузки; 


О воесоп — кнопка, а точнее две кнопки. Одна для загрузки и кнопка, по нажатии 
которой на картинке будет исчезать цветность, т. е. все цвета станут серыми. 


Начнем с кнопки загрузки изображения. По ее нажатии напишем следующий 
код. | | 
1Е ОрепР1сЕагер1а1о91.Ехесиве ЕПеп 
Бед1п | 
Тпаде1 .Р1сеиаге .ГоаЯЕРгопЕ11е (ОрепР1сбигер1а1о41.ЕРЕ11еМапе); 
ЗауеаТмаде .Азз1ап (Ттаде1 .Р1сбаге.В1етар); 
бауеа!таае .Р1хе]1Еогтае : =рЁ2 41; 
епа; 


После отображения окна выбора файла загружаем картинку в компонент тт- 
паче. После этого эту же картинку копируем в переменную зауеатнаде. Эту пере- 
менную нужно объявить где-нибудь в разделе рх1уасе класса формы как: 

бауеаТпасве : ТВ1 мар; 


Получается, что эта переменная будет иметь тип битовой картинки типа 
ТВ1Етар, и в ней мы будем хранить копию загруженного изображения. Только 
нужно не забыть добавить код инициализации, а это можно сделать по событию 
ОпЗпом ИЛИ ОпСкеаее для формы. Копия нам понадобится для того, чтобы каждый 
раз выполнять манипуляции от загружаемого изображения, а не от результата по- 
сле последнего изменения. | 

Возвращаемся к коду загрузки изображения. После сохранения копии в пере- 
менной 5ауеаТмаде мы изменяем формат пиксела на 24-битный и делаем это безо- 
говорочно, даже если там картинка уже имеет такой формат. От лишнего измене- 
ния хуже не станет. | 

Для изменения формата пиксела необходимо в свойство рР1хе1Еокмае присвоить 
константу, соответствующую нужному формату. 24-битному формату соответствует 
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константа рЕ24ъ1‹. Таких констант много, и перечислять их все нет смысла, число 
после букв рЕ означает количество бит в формате. Если нужна 16-битная картинка, 
то замените в имени константы 24 на 16 и получите нужный формат. Только не 
стоит присваивать число 17, такого формата не существует. Тут просто нужно 
знать, какие форматы существуют, а это можно посмотреть в файле помощи. 

_ Теперь перейдем к алгоритмам. Начнем с примера превращения цветной картинки 
в серую. Чтобы понять, как работает алгоритм, нужно знать, какие коды у оттенков 
серого, а у всех них все три ‘составляющие одинаковы. Например, оттенком серого 
будет цвет, у которого красная, зеленая и синяя составляющая равны 100. 

Вот теперь смотрим на листинг 12.14, где алгоритм превращения показан в виде 
кода. Давайте разберемся, что в нем происходит. 


ргоседиге ТЕогт1.Сгау (маг С11р: ТВ1етар) ; 
уах 
ро: РВусеАккау; 
х, у: Тобедех; 
Беа1п 
Рог у:=0 со С11р.Не1аВе-1 ао 
Беа1п 
р0О:=С11р.бсапГлте[у]; 
Бог х:=0 Бо С11р.М1АЕВ-1 ао 
Бед1п 
р0[х*3+1] :=р0 [х*3]; 
р0[х*3+2] :=р0[х*3]; 
_ ета; 
епа; 


ета; 


Сначала запускаем цикл, в котором перебираем все строки изображения. Для 
получения строки используем зсапт{пе. Получив массив строки, запускаем сле- 
дующий цикл, который будет перебирать все байты этого массива. Каждый второй 
и третий байт в массиве делаем равным каждому первому, таким образом делая 
‘каждый пиксел одной из градаций серого. 

Теперь перейдем к алгоритму размытия. По событию опсвапде для компонента 
ТгаскВак пишем код из листинга 12.15. Несмотря на большое количество кода, ал- 
горитм банален и прост. Попробуйте сами разобраться. 


ргосеаикге ТЕогт1 .В1ах (уах С11р: ТВ1Етар; Амоупе: Тпбедег); 
уах 

РО, р1, р2: РВубеАггау; 

сх, х, у: Табедег; 
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ВоЁ: аггау[0..3,0..2]оЕ ВуЕе; 
Беа1п | 
1Е АточпЕ=0 степ 
ех1е; 
Рог у:=0 во С11р.Незане-1 ао 
Беа1п 
рО:=С11р.5сапЬ1пе[у]; 
1ЁЕ у-Амоцае<0 ЕЪеп 
р1:=С11р.бсап пе [у] 
е1зе 
р1:=С11р.бсапЁ1пе [у-Атоцпе]; 


1Е у+Атоипе<с11р.НезавеЕ +Пеп 
р2:=С11р :бсапГ1пе [у+Атоипе] 

'е1зе | 
р2:=С11р.бсапГ 1пе[с11р.Не1аве-у]; 


`Еог х:=0 во С11р.\1аЕв-1 ао 
Беа1п 
1Е х-Атоцпе<0 ЕВеп 
сх:=х 
е1зе 
сх: =х-Амоцпе; 
ВиЕ[0,0] :=р1 [сх*3]; 
о. ВМЕ[О,1]:=р1[сх*3+1]; 
ВИЕ[0О,2]:=р1 [сх*3+2]; 
ВиЕ[1,0] :=р2 [сх*3]7 
ВиЕ[1,1] :=р2 [сх*3+1]; у 
_ВиЕ[1,2] :=р2 [сх*3+2]; 


_1Е х+Атоцпе<с11р.М1АЕй ЕПеп 
сх: =х+Атмочпе 
‚ `е15е 
сх:=с11р.И1аЕр-х; 


ВиЕ[ 2,0] :=р1 [сх*3]; 
`ВиЕ[ 2,1] :=р1 [сх*3+1]; 
‚ВуЕ[ 2,2] :=р1 [сх*3+2]; 
ВиЕ[3,0] :=р2 [сх*3]; 
ВиЕ[3,1] :=р2 [сх*3+1]; 
ВиЕ[3,2] :=р2 [сх*3+2]; | 
ро [х*3] : = (ВаЕ[О,0]+ВоЕ[ 1,0] +ВоЕ [2,0] +ВоЕ[3,0])$з1у 2; 
ро [х*3+1] :=(ВаЕЁ[0,1]+ВаЕ [1,1] +ВоЕ[2,1]+ВоЁ[3,1])51х 2; 
р0[х*3+2] :=(ВаЕ[0,2]+ВаЕ[1,2]+ВоЕ(2,2]+ВиЁЕ[3,2]) 6х 2; 
епа; 
епа; 
‹ епа; . | ` 


_ ПРИМЕЧАНИЕ. На компакт-диске, прилагаемом к книге, в папке \Примерь\Глава 12\З5сап 
вы можете увидеть пример этой программы. 


Глава 13 


Печать в Верт! 


Число 13 действительно несчастливое. Это можно отнести и к данной главе, т. к. 
она переделывалась несколько раз. Сначала предполагалась, что здесь должно на- 
чаться рассмотрение баз данных. Потом решение изменилось, и базы данных были` 
перенесены на более поздний этап, а гл. 13 переделана в описание графики. Но не 
тут-то было. До баз данных надо еще рассказать про печать в \Мтдо\$. Пришлось 
опять немного корректировать план. В результате гл. 13 получила новое назва- 
ние — "Печать в Рер". 

Но и на этом цифра [3 не закончила свои издевательства надо мной. Когда был 
написан первый пример для книги и потребовалось его протестировать, то оказа- 
лось, что на’ моем принтере НР4О0 в картридже закончились чернила. Заправлять 
картридж уже не имело смысла, потому что он уже несколько раз испытал на себе 
эту процедуру, да и покупать новый тоже не выгодно (слишком дорого). На момент 
написания первой версии этой книги этот принтер уже давно был снят с производ- 
ства, и картриджи достать очень сложно. | 

Поэтому решено было купить новый принтер. После этого пришлось срочно 
бежать в магазин и покупать новый НР (люблю я принтеры этой фирмы), потому 
что доверять своим знаниям хорошо, а все же проверять желательно любые приме- 
ры. Мы люди, а значит, нам свойственно ошибаться, даже в простых примерах (ну 
бывает, не доглядел что-то). | 

Почему здесь говорится "Печать в Реры", а не "Печать в \/тдо\5". Во-первых, 
потому что Рёеры сильно упрощает не только сам принцип печати, но и доступ к ее 
возможностям. Во-вторых, существует несколько отличий, которые нужно учиты- 
вать. В-третьих, мы будем печатать не только через функции У/т9до\5, но и прак- 
тически напрямую, отправляя данные в порт принтера. 


_ 13.1. Объект ТРитег 


Печать необходима везде и всегда. Еще со времен первых компьютеров разра- 
ботчики задумались об устройстве, которое могло бы выводить результаты расче- 
тов на бумагу, чтобы не приходилось переписывать их с монитора. Так и появился 
принтер, который очень сильно изменился за время своего существования, но не 
потерял актуальности. Например, первые принтеры были матричными и для печати 
текста использовали встроенные шрифты, а теперь везде струйные и лазерные, 
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да еще и графические (текст выводится как графика, поэтому он не зависит от ус- 
тановленных в принтере шрифтов). 

Читать с монитора не всегда удобно, да и глаза устают от длительного чтения. 
Более удобно — распечатать все необходимое для чтения на принтере, а потом 
изучать в спокойной обстановке. Когда вы путешествуете в Интернете и видите 
что-то интересное, это можно сразу отправлять на принтер. Так экономится время 
пребывания в Сети и сберегается зрение. 

Офисные приложения вообще невозможно представить без возможности печа- 
ти. Возьмем те же программы — У/ога и Ехсе!. Грош им цена, если они не смогут 
печатать созданные с их помощью документы. Любые базы данных (о них мы по- 
говорим в следующей главе) должны уметь выводить данные на принтер, форми- 
ровать отчетность, которая также должна быть доступна для печати, и т. д. Да, не- 
которые данные используются только для хранения или обмена в электронном 
виде, но в большинстве случаев без печати и не туда и не сюда. 

Изначально в \ш4до\5 задумывался очень удобный и простой механизм вывода 
информации — контекст устройства. Холст сапуаз, с которым мы познакомились 
в гл. 12, тоже является контекстом, а точнее, класс ТСапуаз является оболочкой 
в виде класса, которая использует канву для вывода графики. 

Контекст устройства — это независимая от устройства отображения область па- 
мяти. В ней формируются графические данные, которые могут быть впоследствии 
выведены на любое устройство — принтер, монитор и т. д. Благодаря этому один _ 
и тот же код может выводить данные на монитор и на принтер, надо только указать 
нужный контекст (устройства, с которым вы хотите работать). 

Мы уже познакомились с графикой и увидели, как ее выводить на контекст гра- 
фического устройства — монитора/видеокарты. Когда нужно вывести информацию 
на экран, нужно получить контекст рисования монитора (или видеокарты, кому как 
удобнее) и рисовать на нем. Для удобства в Оеры есть объект тсапуаз, который 
упрощает доступ к функциям отображения данных. | 

Так вот функции вывода на контекст устройства универсальны. Им все равно, 
куда выводить данные — будь это контекст монитора или принтера или еще како- 
го-нибудь другого устройства отображения или документирования информации. 
Очевидно, что пока еще не совсем ясно, о чем идет речь, но сейчас все встанет на 
свои места. | 

Вот тут и может возникнуть вопрос — где еще можно рисовать, кроме как на 
принтере или на экране? Например, в памяти. 

В Рары есть объект (сразу обратите внимание, что это не компонент), который 
содержит все необходимые для доступа к принтеру свойства и методы, — тре1пеег. 
Если посмотреть на эти свойства (о них будет рассказано чуть позже), то сразу 
бросается в глаза свойство Сапуаз объектного типа тСаптаз. 

Это тот же самый объект тсапуаз, который мы использовали при выводе графи- 
ки. В нем собраны все необходимые функции для работы с ней. Вы также должны 
уже знать, что этим функциям абсолютно все равно, куда выводить данные — на 
принтер или на экран монитора. Вот именно поэтому все компоненты, способные 
отображать графику, содержат объектное свойство тсапуаз. Объект трх1пеег, сПО- 
собный выводить информацию на принтер, тоже работает через это свойство. 
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Раз у принтера есть такое свойство сапуаз, То значит информацию, которую мы 
хотим вывести на печать, надо выводить в виде графики. Даже текст выводится как 
графика. Это связано с изначальной графической сущностью \Мт4о\$, с одной 
стороны, и с тем, что современные принтеры являются графическими — с другой. 

С теорией закончено, теперь давайте познакомимся с самим объектом тре1пеех 
и посмотрим на его свойства и методы. 

Объект ТРх1пЕег имеет следующие свойства. 


О Аьогееа — переменная типа Воо1еап. Если она равна кгое, то пользователь пре- 
кратил вывод информации на принтер. 


С сапуаз — объект типа тСапуаз. Это холст, на который можно выводить инфор- 
мацию в графическом виде. 


Сор1ез — количество копий документа, необходимых для печати. 
гопЕ$ — список шрифтов, поддерживаемых принтером. = 


НапЯ91е — здесь хранится контекст принтера. Его вы можете использовать, когда - 
захотите воспользоваться напрямую функциями \У/тАР. 


О охк1епекаЕ1ор — ориентация страницы. Это свойство может иметь одно из сле- 
дующих значений: 


® РоРОГЕга1е — КНИЖНЫЙ; 

е рРоГапазсаре — альбомный. 

Радене1ве — высота страницы в пикселах. 

Радем1а=н — ширина страницы в пикселах. 

Раде\лиаьех — номер печатаемой сейчас страницы. 

РЕ1пеегТпаех — число, которое указывает на номер выбранного сейчас принтера. 
РЕ: пЕегз — список ТИПа Т5ЕЕ1 пд установленных в системе принтеров. 

РЕ пе1па`—— если это свойство равно сгие, то принтер в данный момент печатает. 
Т1Е1е — заголовок или просто текстовое описание печатаемого документа. Этот 
заголовок будет отображаться во время печати в менеджере печати. 

Теперь давайте разберемся с методами объекта трх1пкех. 

АБогЕ — прерывает текущую печать. `_ 

Вед1прос — начало печатаемого документа. 

Епарос — конец документа. 

сеЕРх1псег — получить индекс текущего принтера. 

МемРадае — новая страница документа. 

Веёхезв — обновить информацию о шрифтах и принтерах. 


беЕеРг1псехг — установить текущий принтер. Если не устанавливать принтер, то 
будет использоваться тот, что установлен в системе по умолчанию. 


о6ооооо09 оо 


оо,,ооо8о 


ВНИМАНИЕ. Чтобы ‘объект ТР;1пеег стал доступным вашему проекту, вы должны 
добавить в раздел изез модуль Ре1пеегз. 


ТРЕ1пеех — ЭТО класс, а мы уже знаем, что все классы нужно инициализировать 
(инициализируются также компоненты, создаваемые во, время выполнения процес- 
са, т. е. те, что не установлены на форме). Этот объект является исключением, и его 
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можно не инициализировать. Достаточно ТОЛЬКО ПОДКЛЮЧИТЬ МОДУЛЬ, И объект ста- 
новится доступным через Ре1пЕег. ЭТО вы увидите в примерах этой главы. 

Многие считают, что Ру1пбег — это переменная, но на самом деле это функция. 
Я сам прекрасно знаю, что это функция, но все равно часто называю ее перемен- 
ной. Если открыть исходный код модуля ргицег$.раз, то вы увидите, что эта функ- 
ция имеет следующий ВИД: 

ЕарсЕ1оп Рг1пбег: ТРг1пеег; 


Без1п 
1Е ЕРулоеехг = п11 (Беп 
ЕРулпеег := ТРу1пбехг.Сгеаее; 
Вези1е := ЕРуилибег; 
епа; 


Функция очень проста, если переменная ЕРх1пеех равна нулю, то ей присваива- 
ется экземпляр класса Тре1пеег. Иначе возвращается экземпляр уже существующе- 
го. Таким образом, при первом обращении к функции будет создан экземпляр объ- 
екта для работы с принтером, а потом он будет возвращаться, и вы сможете 
работать через него. В принципе, вы можете завести свою переменную для работы 
с объектом принтера и создать собственный экземпляр, но, мне кажется, готовая 
функция намного проще. | 

Но прежде чем переходить к практике, надо сделать еще несколько замечаний. Пе- 
чать, как уже говорилось, похожа на отображение информации на экране и на нижнем 
уровне программирования, здесь используются одни и те же АР!-функции. Однако 
прежде чем печатать, вам нужно учесть следующие особенности контекста печати: 


О Если с экрана можно стереть информацию, то изображение, выведенное на 
Сапуаз объекта принтера, после начала процесса печати затереть невозможно. 


О Принтеры имеют большее разрешение, чем экран. Самые простые принтеры 
сейчас могут печатать графику с разрешением до 600 точек на дюйм, а средний 
принтер до 2000 точек. Если вы попытаетесь вывести картинку размером 
200х200 на современный принтер, без каких-либо корректировок, то пользова- 
тель этого изображения просто не увидит или оно будет слишком маленьким. 


С Не все принтеры одинаково работают с графикой, поэтому нужно давать пользо- 
вателю возможность. выбирать качество печати. Желательно всегда перед выво- 
дом на печать отображать стандартное окно настроек печати. Если на экран вывод 
производится только’ один раз, то на принтере может понадобиться несколько ко- 
пий. Это замечание не является обязательным, но советую учитывать. это, чтобы 
ваша программа соответствовала признакам хорошего тона. А вдруг пользователю 
нужно 100 копий, так что, ему теперь:сто раз нажимать кнопку печати? 


СО Вы должны давать возможность прервать печать в любой момент. Например, 
это может понадобиться, когда закончилась бумага, и ее больше нет. Конечно 
же, такую возможность всегда предоставляет драйвер печати, но и вы не забы- 
вайте о хорошем тоне. В некоторых системах используется очередь печати, при 
которой программа блокируется до завершения процесса печати. 


Последняя рекомендация является не обязательной, а вот все остальные вы обя- 
заны учитывать в процессе программирования. 
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13.2. Получение информации 
об установленном принтере 


Сейчас мы напишем программу, которая пока еще не будет печатать, но зато 
она будет получать из системы информацию об установленных принтерах. Мы 
сделаем ее минимально простой для того, чтобы вы смогли понять основы работы с 
объектом трРе1пкегх. 

Создайте новый проект и сразу же допишите в разделе чзез модуль рх1пеегз, 
чтобы объект трг{пеех стал доступным проекту. 

Наша программа будет показывать текущий выбранный принтер и список всех 
доступных в системе устройств печати. Для этого на форме понадобится одна 
строка ввода тЕа1е для отображения текущего принтера, и один список ть1зЕВох 
для отображения полного их списка. У строки ввода можно установить свойство 
ВеаЯОп1у В егие, потому что информация в этой строке только отображается и не 
должна редактироваться, да и нет смысла ее редактировать. 

° На рис. 13.1 показана форма будущей программы. Вы можете расположить ком- 
поненты по-другому, но я предпочитаю именно такое расположение. Главное, де- 
лайте подробные подписи для выводимой информации, иначе программа будет'по- 
нятной только вам и больше уже никому не понадобится. 

Теперь поместите на форму две кнопки, а в заголовках напишите: "Обновить" 
(для обновления информации о принтерах) и "Сменить принтер" (понятно зачем). 

Еще нам понадобится компонент рх1пеег5екирр1а1оа © вкладки р1а1оаз палит- 
‘ры компонентов. Этот компонент предназначен для отображения стандартного ок- 
на настроек принтера. 

Для события 0пС11ск, связанного с нажатием кнопки Обновить, пишем сле- 
дующий код: 

ргоседиге ТЕРогт1 .Вие6оп1С11сК (бепаег: ТОБ)есе); 

уаг 

1:Типбсеаег; 
Бед1п 
Т1$ЕВох1 .Теем$ .С1еаг; 
ох 1:=0 со Рк1лпбег.Ру1пеег$ .Соипе-1 ао 
Т15ЕВох1 .ТЕешз.Ааа (Рг1пеех.Ру1пкег$.5х1п9$[1]); 

ЕЯа161.ТехЕ:= Рилпбег.Ру1пеет$ .56у1па$ [Рулпеег. Ру1пбегТп@аех]; 

епЯ; | 


В первой строке кода очищается текущее содержимое списка т,1зЕВох1. Потом 
запускается цикл от 0 до количества установленных в системе принтеров минус | 
(количество принтеров находится в Рк1пеег. Рк1пеег5 .Соипе и нумеруется с нуля). 
Свойство Рх1пеехз объекта ТРх1пЕехз имеет ТИП ТЗЕх1паз, как свойство тЕетз 
компонента тг1зЕВох, ПОЭТОМУ их свойства и методы одинаковы, и мы с ними уже 
не раз работали: | 

Почему отнимается единица? Да потому, что цикл начинается с нуля. Допустим, 
что у вас установлено два принтера и в переменной Ри1псег .Рг1пеег$ .Соипе будет 
находиться 2. В этом случае цикл будет выполняться от 0 до 2, т. е. три раза для 0, 
1 и 2. Но принтеров только два, поэтому нужно отнять единицу. 
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, не, о › принтере 


Рис. 13.1. Форма 
будущей программы 


Внутри цикла в список добавляются названия принтеров. Названия хранятся 
в переменной ре1пеег.Рх1пеегз.56х1п95[1], ГДе 1 — это индекс принтера, изме- 
няющийся от 0 до значения из рх1пеех.Рк1пеегз.СоцрЕе минус 1. 

После этого мы выводим в строку ввода название текущего принтера. Индекс 
текущего принтера — это Резпеех.Рг1псегТпаех, значит, название текущего прин- 
тера можно получить так: | 

Ри1пбег.Ри1пеегс$ .5ег1па$ [Ру1пбег. Ру1пеегтпаех] 


Эту же процедуру можно вызвать по событию опсхеаее или Оп5Вом главной фор- 
мы, чтобы после старта программа сразу же получала необходимую информацию: 
ргоседите ТРГоги1.ЕоттСгеаее (бепает: ТОБ)ес®); 
Бед1п 
ВаЕеоп1С11сК (п11); 
епа; 


Нам осталось только написать код для кнопки Сменить принтер, и программа 
готова. Итак, ДЛЯ события ОпСс11ск, связанного с этой кнопкой, пишем. 
ргоседиге ТГотт1 .Виббоп2С11сКк (бепаег: ТОБзесе); 
Беа1п 
Ру1пбегбебарО1а1о91.Ехесиее; 
ВасЕоп1С11сК (1011); 
епа; 


В первой строке кода просто отображается окно Рх1пеех5екирр1а1оа1 (окно 
настроек принтера). Во второй строке вызывается процедура, которую мы написа- 
ли для обновления информации о принтерах. 

Теперь запустите программу и посмотрите на результат (рис. 13.2). 


ПРИМЕЧАНИЕ. Если у вас в системе только один принтер или вообще нет ни одного, 
то зайдите в Панель управления \/тдо\мз, выберите там Принтеры и установите 
пару любых принтеров вручную. Система от этого работать хуже не будет, зато вы 
сможете полноценно протестировать этот пример. 


Печать в Верт 349 


| ы Информация о о принтере, 


Назввниетекиегоп принтера ‘192 1Е8 100. Ческе! ВВС сеПез 


 писок все доступных ых и 
\\132.168.100.1\Ир дезце 845с зепез 


Авто АдоБе РОЕ на ВС 
АдоБе РОЕ 


_ Сменить принтер | 
—— Рис. 13.2. Результат 
работы программы 


Настройка п печати 
_ [Принтер- — ТЕТЕ | я з 
М 1 “132 168100 ее 845с селе МВ "Свойства... || 
|В Состояние: - ` Готов. — В г № т 
Го Ти: вр веде 845с: зепез` 
Место: - 55800 
Комментарий 


= - Бумага- ЫД—щ—— Е 


Размер: а 210; на 297 мм У]. . | и _ —. в _Кножная . — =. 
Подача: Р» —_ т. с дльбоныя = 


.% 


№ п лия пллижлля плолльл полщньчи клилльд оивотоимлил Дл и летот лол дтвьл парлл пдллли битль Ё х ^ 2 тбл пир чафотислетия ылчл пни . 


Сеть... -_ о — и, | __ Отмена | 1 Рис. 13.3. Окно 
а а ом соо. :}  Свойств принтера 


Нажмите на кнопку Сменить принтер, и перед вами откроется окно, похожее. ' 
на рис. 13.3. В этом окне в ниспадающем списке Имя измените имя текущего 
принтера на другое и закройте окно кнопкой ОК. Обратите внимание, что в вашей 
программе в строке Название текущего принтера название автоматически изме- 
нилось. Это потому, что после отображения окна сразу произошло чтение свойств 
принтеров. А они изменились, т. к. окно ре1пеег$екирр1а1091 тесно связано с сис- 
темой и автоматически обновляет всю информацию в объекте трх1пеег. Поэтому 
нам не надо самостоятельно читать данные, измененные в окне свойств принтера, 
и переносить в объект печати. 

При смене принтера по умолчанию он изменяется только для вашей программы. 
В системе принтер по умолчанию не изменяется. Поэтому после перезапуска программы 
все вернется в начальные установки. Тут вы можете сохранять-индекс и имя принтера при. 
выходе или оставить все как есть. В большинстве программ выбирают второй метод. 
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СОВЕТ. Необходимо обратить внимание на то, что Рх1псег — это объект типа 
ТРк1псег. Как говорилось ранее, все объекты должны создаваться с помощью их же 
метода Сгеаее и уничтожаться с помощью метода Егее. В данном случае этого де- 
лать не надо, все делается автоматически. Именно поэтому в примере не показыва- 
лись методы Сгеаке и Егее. Это надо помнить. 


ПРИМЕЧАНИЕ. На компакт-диске, прилагаемом к книге, в папке \Примеры\Глава 13\ 
Свойства_принтера вы можете увидеть пример этой программы. 


13.3. Текстовая печать 


Хотя нынешние принтеры графические, но вывод на печать в виде текста еще 
возможен. Представьте себе, как сложно было бы жить, если бы нельзя. было вы- 
вести содержимое компонента тМешо как текст. В этом случае нам пришлось бы 
рисовать каждую строку в контексте рисования принтера (рисовать на Сапуаз © ПО- 
мощью его метода Техеоче), при этом учитывая расстояния между строками. 

Но есть еще Бог на свете, и нам не надо.так сильно мучиться. С принтером мож- 
но работать как с простым текстовым файлом, хотя реально он будет печатать 
в графике. В современных принтерах нет шрифтов, поэтому он не сможет печатать 
в реальном текстовом режиме. 

Для открытия принтера в текстовом режиме используется процедура Аз519пРггп. 
В качестве единственного параметра этой процедуре надо передать переменную 
типа Техег11е. После этого переменной будет назначен принтер по умолчанию. 
Дальше его нужно открыть с помощью процедуры квемг1 ее. 

Как только файл открыт, в него можно печатать с помощью процедуры мт1ке1п, 
у которой два параметра: 

0 переменная типа техеЕ11е, которой назначен принтер; 
О текст, который надо распечатать. 


После печати переменную надо освободить (закрыть файл, ассоциированный 
с принтером) с помощью процедуры стозеЕ1т1е. 

Простейший пример вывода текста "НеПо \уой(" на принтер вы можете увидеть 
в листинге 13.1. 


уах 
Е:ТехеР11е; 
Беа1п 
Аз$1апРгп (Ё); 
Егу 
Вемт1ее (ЕЁ); 
Иг1ее1п(Ё, 'Не11о мог1а'!); 
Е1па11у 
С1о5ег11е(ЕЁ); 
епа; 
епа; 
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В первой строке кода мы назначаем переменной = принтер. После этого проис- 
ходит открытие файла, ассоциированного с принтером, и вывод на печать мы за- 
ключаем между еку И Е1па11у. Это необходимо, потому что если после выполне- 
ния процедуры Азз1дпРхп переменной Е не будет назначен принтер (ну нет его 
в системе, не установлен или вообще отсутствует), то при попытке открыть файл 
или начать печать произойдет ошибка. 

Между {Е1па11у И епа (код, написанный здесь, будет выполняться всегда, вне за- 
висимости от того, была ошибка или нет) мы закрываем открытый файл. Если бы 
мы не вставили егу...Е1па11у...епа, а во время печати произошла ошибка, то 
файл, ассоциированный с принтером, остался бы открытым. Это значит, что после- 

дующая, нормальная работа принтера уже не гарантируется. 

Еще один пример вывода на принтер содержимого компонента тмето вы можете 
увидеть в листинге 13.2. 


уаг 
Е: ТехеР11е; 
1:Тобедег; 
Беа1п 
 Азз1опРкП (Е); 


Сгу 

Вемт1ее (ЕЁ); 

Бок 1:=0 со Мемо1 ..1пе$.СоцпЕ-1 @о 
М1 е1п (Е, Мето1 .Г1пез.56у1па$[1]); 

Е1па11у 

С]озеЕ11е(Ё); 

епа; 


епа; 


Попробуйте сами разобраться, как работает этот пример. Для этого нужно 
вспомнить свойства компонента тмемо и как работать с ним. 


13.4. Печать содержимого формы 


Мы научились получать информацию о принтере и печатать текст, теперь пора 
научиться выводить на печать графику. Хотя сейчас мы рассмотрим простейший 
пример печати, зато в нем будет в все необходимое для построения сложных сцен 
печати. 

Этот пример взят из файла при помощи Рерны:. На нем можно довольно хорошо 
изучить основы печати. Следующий пример мы напишем более сложным для более 
качественной печати. | 

Для примера понадобится форма, на которой будет расположен один компонент 
ТРадеСопего1. На нем можно создать несколько вкладок (например, две) и поместить 


на вкладки различные компоненты. На первую вкладку установим текст и несколько 
компонентов т5Ъаре..На второй вкладке расположим картинку Тттпаде. На печать бу- 
дет выводиться содержимое вкладок компонента тРачеСопего1 вместе с компонен- 
| тами и картинкой. Каждая вкладка будет печататься как отдельная страница. 

Ну и напоследок, установим на форму кнопку Печать и компонент Ре1пЕ01а1о9 
‚с вкладки 0121025 палитры компонентов. Второй компонент предназначен для ото- 
бражения стандартного окна запуска печати (рис. 13.4). Окно печати похоже на ок- 
но настроек печати Ре1пеегбееирр1а1оа, но имеет свои отличия. Именно такое ок- 
но вы видите каждый раз, когда запускаете печать в других программах, таких как 
М$ У/ога, Ехсе и др. 

Вид главной формы будущей программы представлен на рис. 13.5. Можете сде- 
: лать такую же, а можете попробовать что-нибудь свое. 


Печать 
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Теперь перейдем к написанию кода. Создайте обработчик события опс11ск для 
кнопки Печать и напишите в нем содержимое листинга 13.3. 


ргосеаиге ТГоги1 .Ваебоп1С11ск (бепаег: ТОБЗесе); 
уаг 
1, Эбаге, Эсор: Тпбеаег; 
Беа1п 
Рг1пе01а1091.Оре1оп$ := [роРадемитз, робе1ес®к1оп];_ 
Рг1пЕ01а1оа1.ЕгомРаае := 1; 
Рг1пЕ01а1091.ТоРаде := РадеСопЕго11.РадеСомпе; 
Ру1пЕ01а10о91.М1пРаае := 1; | | ' 
Ргх1пе01а1091.МахРаде := РадзеСопего11.РадеСочпе; 
1Ё поё Реп: а1041 .Ехесике ЕВеп ех1е; 


1Е Рг1пЕО1а1о91.Ру1пЕВапае = ргА1]Радез {Пеп 
Беа1п 
ЗЕагЕ := Реп} а10491 .М1пРаае - 1; 
ЗЕор := Рхг1пЕ01а1091.МахРаде -— 1; 
епа | 
е1зе //Если выбрано отличное от печати "Все" 
{Е Рг1п01а10о91.Ру1пЕКапае = ргбе1есЕ1оп ЕНеп 
Ъед1п | 
беагЕ := РадеСопего11.Асе1уеРаде1таех; 
ЗЕор := ЗЕаге; 
епа | | 
е13е /Если выбрано отличное от "Выделенный фрагмент" 
Беч1п 
Зсаге := Руи1пЕО1а1091.РхгошРаде — 1; 
ЗЕор := Рг1пЕ01а1о091.ТоРаде - 1; 


еп; 


//Начало печати 
Ру1пеег.Вед1пПос; 
Рог 1 := Эбаге 6о 5Еор @ао 
Бед1п о 
РачеСопего11.Радез[1].РалпЕТо (Ру1пеег.Напа]е, 10, 10); 
1Е 1 <> 5Еор ЕВеп 
Рг1пеег.МемРасде; 
епа; о 
Ру1пеег.ЕпЯОос; 


ера; 
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В первой строке кода мы задаем опции окна печати рРг1пЕ01а1091.ОрЕ1опз. 
В этом свойстве: хранится информация о том, что должно отображаться в окне 
Печать. Возможны следующие значения: 


О рор1заБ1ерг1пЕТоЕР11е —— отключить возможность выбора печати в файл (если 
вы добавите в опции это значение, то пользователь не сможет выбрать Печать 
в файл); 

С роне1р — показывать кнопку Помощь в окне печати; 

О рорадемимз — разрешить пользователю выбирать диапазон печати (какие стра-. 
ницы нужно распечатать); 


О рорх1пЕТоЕ11е — показывать в окне печати спескВох, в котором можно выбрать 
‚ печать в файл; 


О розе1есЕ1оп — давать возможность пользователю выбрать в окне печати печать 
выделенного фрагмента; 


О ромагп1па —— показывать пользователю сообщения, если он пытается запустить ._ 
работу на неустановленный принтер. | 
В раздел настроек добавляем две опции роРадемом$ И робе1есЕ1оп: 
Рг1п601а1091.ОрЕ1опз:=[роРадчемим$, робе1есЕ1оп] 


Все это можно было бы сделать проще. Просто выделить компонент Рх1пЕ01а1091 
и в объектном инспекторе дважды щелкнуть по свойству ОрЕ1опз. После этого от- 
кроется список из всех этих свойств, где можно указать напротив необходимых 
свойств значение гие. Но, как ранее говорилось, пример взят из файла помощи по 
Ре]ры, а там настройки делали программно. | 

Во второй строке кода свойству ггопРаде компонента Рх1пЕ1а1оа1 присваива- 
ется начальное значение, с которого должна происходить печать. А в следующей 
строке устанавливается в свойстве ТтоРаде количество печатаемых страниц. В это 
свойство мы занесли количество вкладок у компонента радеСопехо11. Мы же дого- 
ворились, что каждая вкладка будет печататься на отдельной странице, значит, 
сколько вкладок, столько и страниц будет печататься. 

После этого устанавливается минимальное и максимальное значения страниц, 
доступных для печати: | 

Ру1п(01а1о0о91 .М1пРаде 


1; 
Ру1п(01а1091.МахРаде := РадеСопего11.РадеСоцпе; 


Все, настройки произведены. Теперь можно отображать окно печати: 
1ЁЕ поЕ Ру1п601а1]о91.Ехесаее ЕБеп ех1е; 


Здесь используется конструкция 1# по. Значит, если пользователь закроет ок- 
‚ но через кнопку Сапе], то выполнится код, написанный после Еъеп. А там у нас 
написан выход из процедуры — ех1+. Так’ что если не будет нажата в окне печати 
кнопка ОК, то процедура не будет выполняться дальше и печать не произойдет. 
Ну аесли нажата ОК, то код процедуры продолжит свое выполнение. 

Дальше идет проверка, какой диапазон печати был выбран пользователем: 

1Е Рхг1пЕ01а10о91.Рх1пЕКапае = ргА11Радез Реп | 


Этот код проверяет, если выбран диапазон печати всех страниц, то переменным 
‚ 5сакЕ И 5Еор будут присвоены значения минимального и максимального количест- 


Печать в бер! | 355 
ва страниц соответственно, чтобы были распечатаны все вкладки нашего компо- 
нента. 

Если пользователь выбрал не все страницы, то нужно проверить, а может, он 
выбрал печать выделенного фрагмента? 

1Е Рг1пе01а1о91.Рх1пЕВапде = ргхбе]есе1оп (фВеп 


Если пользователь выбрал печать выделенного фрагмента, то переменным 5ЕагЕ 
И $Еор будет присвоено одно и то же— номер выделенной в данный момент 
вкладки РачеСопего11.Асе1уеРадеТпаех. 

Ну и если пользователь не выбрал. НИ ТОГО, НИ другого, значит, ОН выбрал на- 
чальную и конечную страницу, которые надо распечатать. В этом случае пере- 
менным 5ЕахЕ И 5Еор будут назначены значения выделенных пользователем 
страниц: 

СЕахе: =Ру1пЕ01а10о41.ЕготмРаде -— 1; 

СЕор: =Ри1п(01а10491.ТоРаде -— 1; 


ВНИМАНИЕ. Обратите внимание, что от количества выделенных пользователем стра- 
ниц вычитается единица. Это потому, что пользователь, как нормальный человек, будет 
нумеровать страницы, начиная с единицы, а вкладки компонента РадеСопЕго11 нуме- 
руются с нуля. 


Все, теперь наши переменные 5ЕагЕ И 5Еор содержат диапазон, который надо 
распечатать в зависимости от выбранных пользователем настроек, и можно пере- 
ходить к самой печати. Для начала распечатки нужно начать новый документ. Для 
этого вызываем метод Вез1п)ос объекта тре1пеег. 

После этого запускаем цикл от стартовой страницы до последней выделенной: 

Рог 1:=б6ауе со 5еор Яо 


Внутри цикла выполняется следующий код: 
РачеСопего11.Радез[1].РазпЕТо (Ру1пЕег.Нап@1е, 10, 10); 
1Е 1 <> 5Еор (Веп 
Ру1пбсег .МемРаае; 


В первой строке мы заставляем прорисоваться очередную страницу на опреде- 
ленное устройство. Об этом говорит конструкция РадеСопехо11.Радез [1] .Ра1пЕТо. 
Метод Ра1пЕТо заставляет прорисоваться страницу 1 компонента на указанное уст- 
ройство. Нужное устройство указывается в качестве первого параметра метода 
(здесь указан принтер). Остальные два параметра указывают отступ слева и сверху. 

Далее происходит проверка, если 1 не равна последней печатаемой странице, 
то создать новую страницу, на которой будет распечатана следующая вкладка. 
Если не производить этой проверки, то когда распечатается последняя страница, 
будет создана новая, которая выйдет из принтера пустой. Это не ошибка, но бу- 
дет не приятно, если из принтера в конце печати будет выползать пустой лист 
бумаги. 

Самым последним методом вызывается Епарос объекта ТРх1пфеег, После чего 
принтер начинает печатать весь документ. 


ПРИМЕЧАНИЕ. На компакт-диске, прилагаемом к книге, в папке \Примерыь\Глава 13\ 
Печать_содержимого_формы вы можете увидеть пример этой программы. 
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13.5. Вывод на печать изображения 


В принципе, уже в прошлом примере мы напечатали изображение, потому что 
вкладки компонента тРадеСопЕхго1 печатались как самые настоящие картинки. 
Но пример был простой и не учитывал, что разрешение принтера выше, чем 
у монитора. Поэтому если вы пытались протестировать пример, то изображения 
получались слишком маленькими. Сейчас мы узнаем, как учитывать разрешение 
принтера. в 

Но сначала давайте рассмотрим простейший пример вывода изображения на 
принтер: | 

Беа1п 

Ру1пеег .Вед1п0ос; 

Рилисег.Сапха$.Пгам(10, 10, Гмаде1.Р1сбаге.В1емар); 
Рие1исег.ЕпаОос; 
епа; 


Этот пример не отображает никаких диалогов, а просто начинает новый до- 
кумент на принтере, потом копирует в его сапуаз картинку из компонента тпаде1 
и заканчивает документ. 

Это еще один простейший пример, который не учитывает разрешение принтера. 
Он прост, но в реальных условиях неприменим, потому что никому не нужно изо- 
бражение, которое на бумаге меньше того, что видно на мониторе. Необходимо 
учитывать масштаб, чтобы приложение было более полезным. , 

Теперь пора узнать, как определить разрешение принтера. Для этого использу- 
ется функция \УтАРГ — сеереу1сеСарз, которая предназначена для получения ин- 
формации о нужном устройстве. 

У этой функции два параметра. 

О Устройство, информацию которого мы хотим 
получить. Нам нужна информация о размере 
Сапуаз принтера, поэтому нужно будет переда- 
вать его указатель Рг1пеег.Сапуа$ .Напа1е. 


! Пример печати 


О Какая именно информация нужна? Нам нужно 
количество пикселов по оси Х и у, поэтому бу- 
дем указывать ьосртхЕГзх (разрешение по оси Х) 
И ГОСРТХЕГ5У (разрешение по оси У). 


Теперь реальный пример с использованием этой 
функции. Создайте новый проект и поместите на 
форму один компонент ттпаде, который будет хра- 
нить картинку для печати (сразу же загрузите туда Рис. 13.6. Форма будущей 
любое изображение в формате ВМР) и кнопку программы 
Печать. На рис. 13.6 можно увидеть форму буду- 
щей программы. 

Теперь создайте обработчик события опс11ск для кнопки Печать и напишите 
там код, представленный в листинге 13.4. 
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ргоседаге ТГоут1 .Виебоп1С11ск (бепаех: ТОБзесЕ); 
\хах 
Х1,Х2, \1,У2 : Тпеедег; 
Ро1пЕзХ, Ро1пезУ:ЧаоцЫе; 
Ру1пЕ0]а:ТРу1пЕПО1а1оа; 
Бед1п 
// Создаю и отображаю на экране стандартное окно печати 
Рг1пЕ019 : =ТРу1п601а1оа.СгеаЕе (Оутег); 
1Е Ри1пе019.Бхесабе ЕПеп 
Бед1п 
//Начинаю новый документ 
Ру1пеег.Вед1п0ос; 


Ру1пеех.Сапуаз .ВеЁгези; 


//Получаю информацию о разрешении принтера ВХ 
РО1ПЕЗХ: =Сесреу1сеСарз (Ру1пеег.Сапуа$ .НапЯ1е , ГОСРТХЕГСХ) /70; 
Ро1пЕ5У : =бе(Пе\у1сеСарз (Ри1пбехг .Сапуаз .Нап@1е, ГОСРТХЕГ СУ) /70; 


//Рассчитываю размеры изображения 
Х1 : =гойпа ( (Руз1пбетг.Радемтаей - 

Тладе1 .Р1сЕаге.В1етоар .М1аеВ*Ро1пЕ$Х) /2); 
У1 :=гоппа ( (Рулпеехг.РачеНезаве - 

Тпаче1 .Р1сеиаге.В1етар.Не1айе*Ро1теЕзУ) /2); 


Х2 : =соцпа (Х1+таде]1 .Р1сЕиге.В1етар.\1ЯЕВ*Ро1тЕ$Х); 
У2 : =гоцпа (У1+Гладе1 .Р1сеаге.В1Етар.Незоне*Ро1пе$У); 


//Вывод изображения на печать 
Ри1пеег.Сапха$ .СоруКесе (Кес* (Х1,У1,Х2,У2), 
Гоаде1 .Р1сеаге.В1етщар.Сапуаз, 
Вес (0,0, Тпаде1 .Р1сеаге.В1Етар.М1аЕй, 
Тиаде1.Расеаге.В1емар.Нелайе)); 
Ри1пеег.ЕпЯОос; 
епа; 
//Уничтожаю созданное окно печати 
Ре1пЕР1а.Егее; 


епа; 


В самом начале мы программно создаем компонент Рг1пЕр1а1оч (стандартное 
окно печати), потому что на форме нет такого компонента. Это сделано специаль- 
но, чтобы лишний раз показать вам, как программно создаются и используются 
компоненты Оеры. Для создания выполняется код трРх3пЕ0{а109.Сгеасе (Омтег), 
который выделит память под объект и возвратит нам ссылку на него. Эта ссылка 
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сохраняется в переменной Рх1пЕр1а, которая объявлена в разделе хаг в виде пере- 
‚ менной типа трРу1пЕР1а1о4. 

После этого мы отображаем окно печати (1Е Рг1пЕр19.Ехесике ЕВеп), и если 
пользователь нажал ОК, то выполнится код между последующими операторными 
скобками — ред1п...епа. 

С первой строкой кода уже понятно — начало нового документа. После этого 
мы обновляем всю информацию на холсте принтера (ре1пеег .Сапуаз .ВеЁхгезЪ). 

Дальше надо получить информацию о разрешении принтера по вертикали и го- 
ризонтали с помощью функции сеЕреу1сеСарэ. Результат делится на 70 и сохраня- 
ется в переменных Ро1пезх И Ро1пЕ5У. 


ПРИМЕЧАНИЕ. 70 — это коэффициент масштабирования. Можете ® подобрать любое 
подходящее вам значение. 


После этого идет расчет координат картинки. В примере ее вывод идет по цен- 
тру листа бумаги. Отступ слева вычисляется по такой формуле: (ширина листа 
принтера минус ширина картинки, умноженная на Ро1пезх), деленные на 2. От- 
ступ сверху вычисляется по следующей формуле: (высота листа принтера минус 
высота картинки, умноженная на Ро1пЕзУ), деленные на 2. 

Отступы слева и сверху рассчитаны. Теперь нужно найти правую и нижнюю 
стороны изображения. Для этого мы просто прибавляем к левой стороне ширину 
изображения (ттаде1.Р1секиге.В1етар.М1АЕП * Ро1пезх) и к верхней стороне вы- 
соту изображения (тмаде1.Р1сЕаге.В1Етар.Незаье * Ро1пезУ). При этом размеры 
умножаются на коэффициент масштабирования. 

Теперь можно выводить картинку на холст принтера. Для этого нужно скопиро- 
вать ‘изображение из ттаде1 на холст принтера с помощью процедуры 
Ре1пеег.Сапуаз .Сорувес®. Мы уже пользовались этой процедурой при работе 
с графикой, и вы должны знать, что она умеет масштабировать копируемую картинку. 

Все, можно заканчивать документ (Рх1пеех . Епарос) и уничтожать созданное окно 
(Рх1пЕО1а.Егее). Хотя окно создано как локальное (объявлено внутри процедуры) 
и должно уничтожаться автоматически, желательно делать это, не надеясь на компи- 
лятор. Вспомним еще раз — все переменные, объявленные как локальные (в разделе 
уаг внутри процедуры), инициализируются в стеке и автоматически уничтожаются 
сразу после выхода из процедуры. Но все же, те переменные, которым вы выделяли 
память или создавали как объекты, желательно уничтожать самостоятельно, не наде- 
ясь на чистку стека. Ведь в стеке хранится только ссылка на объект или выделенную 
память, а сама память может быть выделена где угодно, но только не в этом стеке. 


ПРИМЕЧАНИЕ. На компакт-диске, прилагаемом к книге, в папке \Примеры\Глава 13\ 
Печать_картинки вы можете увидеть пример этой программы. 


13.6. Еще немного о печати 


Мы теперь знаем, что для печати используются одни и те же функции, что и для 
рисования. Мы также узнали, что для вывода графики (рисунки и графические объ- 
екты, кроме текста) нужно учитывать разрешение принтера, которое намного выше | 
разрешения экрана. | 
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Давайте напишем интересный пример, который вам пригодится в будущем и на 
котором мы закрепим наши знания о печати в Реарш и в ОС \УМтдо\$. При печати 
ОС играет очень важную роль, потому что мы используем ее АР1-функции и драйвер 
печати \Мтдо\/з формирует изображение в соответствии с нашими требованиями. 

Итак, исходя из того, что используются одни и те же функции, мы можем 
использовать для вывода на форму и для печати одну и ту же процедуру. Давайте 
посмотрим, как это будет выглядеть. 

Создайте новый проект и поместите на форму одну кнопку с надписью Печать 
и один компонент Ра1пВох с вкладки Зу$вет. В раздел изез добавим модуль рх1пеегз, 
чтобы получить доступ к функциям принтера. Теперь по событию опРа1пе для ком- 
понента Ра1пЕВох и для кнопки мы можем вызвать одну и ту же процедуру, которая 
будет рисовать на определенном холсте. Процедура будет выглядеть так: 

ргоседоге ТЕопп1 .Ра1пЕРога(сап: ТСапуаз) 

Беа1п 

сап.Вга$В .Со1ог:=с1Веа; 
сап.Вескапа1е(10, 10, 100, 100); 
епа; 


Эту процедуру нужно еще описать в разделе рх1уаке нашей формы: 
рг1уасе 

{ Ри1уабе аес1агае1оп$ } 

ргосеаиге Ра1пЕРГогт(сап:ТСапуаз); 


Программный код в целом готов. Осталось процедуре передать только холст, 
и она нарисует на нем квадрат с красным фоном. Теперь по событию опРа1пЕ ДЛЯ 
компонента Ра1пЕВох ЭТУ процедуру можно вызвать следующим образом: 

Ра1пЕРогт (Ра1лпЕВох.Сапуаз); 

А для события опс11ск кнопки можно написать: 

Ру1пеег.Ведаипоос; | 

Ри1пЕег.Сапуа$ .ВеЁгезВ; 

Ра1пЕЕРоги (Рх1пеехг.Сапуаз); 

Ри1пеег.ЕпаОос; 

Здесь сначала создается документ и обновляется холст. Затем вызывается про- 
цедура рисования с указанием того, что надо рисовать на холсте принтера. В кон- 
це — завершаем документ. 

Попробуйте создать этот пример и убедиться, что все работает. Только в этом 
примере есть один недостаток — не учитывается разрешение устройства, на кото- 
ром происходит рисование. Давайте учтем масштабирование. Для этого сначала 
подкорректируем объявление процедуры Ра1пЕЕоги: 

рг1уабе 

{ Резлуабе аес1ахаЕ1опз } 
ргосеаиге Ра1пЕРогм(сап:ТСапуаз; зса1ех, зса1еу:ПБочЬ1е); 

Здесь добавлены еще два параметра зса1ех и зса1еу, которые показывают ко- 
эффициент масштабирования по горизонтали и вертикали. Сама же процедура бу- 
дет выглядеть так: 


рхгоседиге ТЕоги1 .Ра1пЕРоум(сап: ТСапуаз; зса1еХх, зса1еу:БочЬ1е); 
Беа1п 


360 Глава 13 


сап .Вха$В.Со]ог:=с1КВеа; 

сап.Кесбапа1е (гоцпа (10*бса1еХх), гоппа(10*5са1еуУ), 
гоипа (100*$са1ех), гоипа (100*$са1еу)); 

епа; 


При выводе прямоугольника мы масштабируем координаты с учетом передан- 
ных коэффициентов. 

Обработчик события опРа1пе изменится несильно, потому что здесь мы вызыва- 
ем процедуру рисования с единичным коэффициентом: 

ргосеаиге ТРОЕ. Ра1пЕВох1Ра1т (бепаег: _ТОБЗесе); 

Бед1п 

Ра1пЕРогт (Ра1пЕВох1.Сапуаз, 1, 1); 
епа; 


По нажатии кнопки Печать нужно написать следующий код: 
« ргоседаге ТРоги1 .Ру1пЕВаееопС11ск (бепдет: ТОБуесь)}; 
ах 
Ро1пЕзХ, Ро1пЕзУ :Чаоц1е; 
Беа1п - 
//Начинаю новый документ` 
Ру1пбег.Вед1п0ос; 
Ру1пбег.Сапуаз .КеЁЕгезЦ; 


//Получаю информацию о разрешении принтера 
РОо1пЕЗХ : =СеЕОе\у1сеСарз (Ру1пбех.Сапуаз .Напа]1е, ГОСРТХЕГХ) /70; 
Ро1пЕ$У : =бее/еу1сеСарз (Ру1пбег.Сапуаз$ .Напа1е, ГОСРТХЕГ5У) /70; 


РазпЕКохм (Рузпеег.Сапуаз, РолпЕзх, Ро1пе5\У); 
Рилрееу.Еп@Оос; 
епа; 


Код, описанный здесь, уже должен быть вам знаком. Мы так же, как и раньше, 
начинаем документ, потом получаем параметры принтера и вызываем процедуру 
печати с полученными коэффициентами масштабирования. 

Вот теперь пример работает отлично, код компактный и учитывается масштаби- 
рование устройства. 


ПРИМЕЧАНИЕ. На компакт-диске, прилагаемом к книге, в папке \Примеры\Глава 13\ 
Печать_графики вы можете увидеть пример этой программы. 


13.7. Это интересно 


На компакт-диске, прилагаемом к книге, в папке \Компоненты\Рип Ома вы най- 
дете компонент, который позволяет печатать сетки рвсе1а. Такие сетки очень часто 
используются для отображения информации из таблиц базы, данных, и чуть позже 
мы познакомимся с ними. Компоненту нужно указать только сетку и можно вызы- 
вать метод Рг1пЕ для печати. | 
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Так как базы данных мы еще не рассматривали, то этот пример мы сейчас реали- 
зовать не сможем. Зато мы знакомы с компонентами типа тЬ1зЕ\У1ем и знаем, что 
они при использовании стиля узВерохе очень красиво выглядят в виде таблицы. 

В листинге 13.5 показан код универсальной функции, которая печатает содер- 
жимое любого т,15Е\/1ем компонента. Рассматривать код мы не будем, потому что` 
все, что здесь есть, вам должно быть уже известно. Если вы разберетесь с кодом, 


значит, вы хорошо усвоили тему. 


ргоседите Рули ЕГ.1 5 \/1ем (1п6го:бег1па; 1\Тобауе: ТЬ156\У1ем); 
уах 
Т1пезНезаве, Глпезь1Ее, МогамааАЕВ, га зЕ\У1еМогаитаен, 
| Г1педтаей, Сет1]и1аЕр: Гопа1пе; 
1Тор, 11еЁеЕ, 1, хгом:Тибедег; 
ТехЕКесЕ :ТКесЕ; 
Бед1п | 
\1ЕР ТРу1пЕО1а1оа.Сгеаее (111) @о 
Ъедап 
ОрЕ1оп$ := [роМагп119]; 
1ЁЕ поЕ Ехесаее реп 
ех1(; 
Егее; 


еп; 


Рулпеег.Т1е1е := 1пего; 


Ру1пеег.Веа1и0Оос; 


Ру1пбсехг.Сапуа$ .Ропе.Азз1опт (1\Тобауе.Еопе); 

Г1пезНе1айе := $са1е (Ру1псег.Сапхуа$ .ТехеНелане('М'), 20);. 
Г1пебв1 ЕЕ (11 пезНез9ве-Ру1пеег.Сапуаз .ТехЕНезове('м')) ЧУ 2; 
Могамтаен := Ре1пеег.Сапуаз .Техеизаев('0'); . 
.1$Е\/1еМокаМ1АЕр := 1мТобауе .Сапуаз .Техеитаеь ('0'); 


1Тор: =1пезНе1а0е*2; | 
Глпемтаеь:=0; 


// РхлаЕ Неааех 

Ру1пбег.Сапуа$ .Ропе.5еу1е: =[ЁЕ$Во1а]; 

1ТеЕе := МогамааеВ*5; | 

Ри1пеехг.Сапуаз .МоуеТо (1.еЁЕ, 1Тор); 

рг1пеег.Сапуаз .Т1пеТо (1ТеЁк, 1Тор+Ь1пезНе1а1е); | * 
Рог 1 := 0 во ]мТобауе .Со1атп$ .Соцпе — 1 ао | 
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Бед1п 


Ру1псехг.Сапхаз .ТехЕОц® (11еЁ+Г1пе5р1Ёе, 1Тор+1пебь1 Ее, 
ТмТобауе .Со]итиз [1] .СарЕ1оп); 


Сет 1\\1а%ъ : =. 1пебр1Е6*2+]мТобауе .Солаиз [1] .И1АЕР*Иохгам1аев 
Я1\у Г1зЕ\УтемМокоамтаеи; 


Гзпемт акр : =. лпем1аер+Се11 м1 аеи; 
21еЁЕ := 11еЕЕ+Се1 \1аеи; 


Ру1пбехг.Сапхаз .МохтеТо (11еЁе, 1Тор); 
Ри1пбсег.Сапуа$ .Г1лпеТо (11еЕе, 1Тор+Ь1пезНе1оте); 


епЯ; 


1.еЕЕ := Могам1аЕв*5; 
Ру1пеег.Сапуа$ .МоуеТо (11еЁе, 1Тор); 

Ру! пеег.Сапуаз .Г4пеТо (1еЕЕ+Гапемчаен, Тор}; 
Ре1пеег.Сапуаз .МоуеТо (11еЁЕЕ, 1Тор+Г1пезНе19ве); 


Ру1пеег.Сапуаз .Г1пеТо (1.еЁЕ+1пем1АЕИ, 1Тор+Г1пезНелоаве); 


// РЕфаЕ гомз 
Ре1иеег.Сапуаз .ЕопЕ.5$6у1е:=[]; 
Еох гом := 0 Ко 1мТобауе. Теемз.СоипЕ — 1 ао 
реа1п 
1Тор:=1Тор+Ь1пезНе191е; 


// пем разде 
1Е 1Тор>Рг1пбег. Раденелзайе-Г1пезНе1ойе*3 ерВеп 
Бед1п 

1Тор: =.1пезНе1а1е*2; 

Ру1пеег .МемРаде; 


еп; 


Ру1пеег .Сапхаз .МоуеТо (1.еЁЕ, 1Тор); 


Рих1ифсех.Сапуа$ .Г1пеТо (1еЁе, 1Тор+ГлпезНелане); 


Бог 1 := 0 со 1мТобауе.Со]лшпз.СочпЕ — 1 ао 
Бед1п 
Се11 мае: -т1пезН: #5*2+1итТобахе. Солапз [1] . ИА *Иогаитаей Я1\ 
15 6\Утем/Могам1аен; 


_ ТехЕВес® : =Вес® (11еЕб+Г1пебр1Ее, 1Тор+1пеб1 Ее, | 
1.еЕ+Г1пе$р1ЕЕ+Се11/1АЕВ, 1Тор+Ь1пебр1 Е +Г1пезНелаье); 


1Е 1=0 ЕПеп 
Тиехо : = мГобауе . Т6етз [гом] .СарЕ1оп 
е1зе 
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Тоехо: =|МГобауе . Тв етз [гом] .бортеетсе [1-1]; 


Рузпеех.Сапуаз .ТехеВесе (ТехЕВесе, Тпего); 
1ГеЕе := 31еЕ6+Се1\1аеи; 


Ру1пеехг.Сапха$ .МохеТо (11еЁе, 1Тор); 
Ру1пеег.Сапуаз .Г1пеТо (1ГеЁе, 1Тор+Г1пезНе1оне); 


епа; 


1ТеЕе := Мокамзаеь*5; 

Рх1псег.Сапуа$ .МоуеТо (11еЁе, 1Тор); 
Рг1пеег.Сапуаз .Г1пеТо (1.еЁЕ&+Г1пем1аАЕИ, 1Тор); 
Рх1пеег.Сапуаз .МоуеТо (11еЁЕ, 1Тор+Г1пезНе1аре); 
Ре1пеег.Сапуаз .ЬлпеТо (1еЁк+Г1пем1 АЕ, 1Тор+Ш1пезНе1оаВе); 


еп; 
Ру1псехг.Еп@Оос; 
ева; 


ПРИМЕЧАНИЕ. На компакт-диске, прилагаемом к книге, в папке \Примерыь\Глава 13 
\$\ЛемиР ит вы можете увидеть пример программы. 


< 
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ОФерн! и базы данных 


Базы данных считаются основным достоинством Вер. Это действительно так. 
Хотя язык и не создавался специально под эту предметную область программиро- 
вания, но реализация работы с данными здесь просто поражает. Даже специализи- 
рованные языки, которые предназначены для работы с базами данных (такие как 
М$ У!15иа| ЕохРго), явно уступают Веры по простоте и мощи программирования. 

Ре!рН! скрывает все сложности и в то же время предоставляет широчайшие воз- 
можности при создании баз данных. Практически любую задачу в этой области 
можно реализовать средствами Веры, причем за довольно короткий промежуток 
времени. Главное здесь то, что реализация приложения очень удобна и проста в 
понимании. | 

Когда я первый раз услышал про базы данных, то сильно испугался. Мне каза- 
лось это очень сложным, и я полагал, что намного проще хранить данные в про- 
стых текстовых файлах, читать эти данные и обрабатывать самостоятельно. Но ко- 
гда увидел, что в Ре]ры можно создавать’ простые приложения, даже со сложными 
базами без единой строки кода, я просто влюбился в эту среду разработки. В этой 
главе мы познакомимся с основами построения баз и рассмотрим несколько полез- 
ных примеров. 

Для примеров будем использовать базы данных ‚ Ассез$ (Ассез$ — типовая сис- 
тема управления базами данных, поставляемая в пакете М5 О Шсе) и современный 
формат файлов баз данных — ХМЕ. Второй, конечно же, не является базой данных 
и может восприниматься как таблица, но все же очень удобен и в последнее время 
становится стандартом обмена информацией. 


СОВЕТ. Рекомендуется использовать эти базы в качестве локальных, потому что они 
поддерживаются большинством систем и отличаются высокой надежностью. Для ра: 
боты в клиент-серверной архитектуре лучше выбрать базы данных помощнее, напри- 
мер, М$ ОЕ $Зегуег. 


Впоследствии мы рассмотрим самые простые и распространенные таблицы 
в формате ОВЕ и Рагадох. Многие программисты (и я в том числе) стараются не 
использовать их в своих проектах из-за ненадежности, а также потому, что в них ре- 
гулярно нарушается индексная целостность, что приводит к неработоспособности 
программ. Однако из-за их довольно широкого распространения, необходимо знать 
принципы работы с ними. Даже локальная версия 1С:Предприятия использует этот 
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ужасный ОВЕ-формат. Таким образом, если необходимо написать программу для 
работы с чужими данными, которые хранятся в устаревшем ОВЕ, то вы просто обя- 
заны знать, как. работать с этим форматом баз данных. 


14.1. Теория реляционных баз данных 


Еще десять лет назад, программирование баз данных было очень сложным и не- 
интересным занятием. За определенные достижения в этой области многие про- 
граммисты получили в свое время докторские степени. Сейчас уже такое трудно 
себе представить, потому что благодаря Дер процесс написания программ для 
работы с базой данных упростился до невероятных пределов. 


Таблица 14.1. Пример простейшей базы данных 


ОО СООО С 
ПС ОИ СИ ООО 
Го пе [бя [бин о 


Базы данных (БД) делятся на локальные (установленные на компьютере клиен- 
та, там же где и работает программа) и удаленные (установленные на сервере — 
удаленном компьютере). Для обозначения второго типа БД используются названия 
клиент-серверные или сетевые БД, потому что программа обработки данных на- 
ходится у клиента, а данные на сервере. 

В случае клиент-серверной БД данные хранятся на сервере. Клиентская про- 
грамма получает доступ к данным с помощью запросов на специальном языке 
(БОГ или его расширении —; Тгапзас1-5ОГ, или РЕ/ЗОГ.). При этом следует учиты- 
вать, что программа получает только необходимые данные, а загружает на сервер 
только измененные данные. 

Сетевые базы данных также хранятся на сервере, но каждый клиент получает 
собственную копию данных. В этом случае существует два основных недостатка: 


С Большая нагрузка на сеть. При подключении пользователю передаются все 
данные, а на клиенте уже происходит их фильтрация. Если вы внесли измене- 
ния, то ваша копия будет полностью’ или частично загружаться обратно. Это 
очень неудобно, потому что создается большая нагрузка на сеть из-за излишней 
передачи данных. 

С. Сложная процедура обеспечения целостности. Если два пользователя обнов- 
ляют данные, то при загрузке их на сервер сложно решить, данные какого поль- 
зователя следует считать более верными. 


Из-за этих недостатков такие программы уже не используют, и мы с такими ба- 
зами работать не будем. 
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При клиент-серверной технологии построения БД программа (клиент) посылает 
простой текстовый запрос на сервер с целью получения каких-либо данных. Сервер 
обрабатывает его и возвращает только необходимую порцию данных. Когда нужно 
изменить их, опять посылается запрос к серверу на изменение и сервер изменяет дан- 
ные в своей базе. Таким образом, по сети происходит перекачка только тексто- 
вых запросов, которые в основном занимают размер меньше одного килобайта. Все 
данные обрабатывает сервер, а значит, машина клиента загружается намного меньше 
и не так сильно требовательна к ресурсам. Сервер отсылает клиенту только самые 
необходимые данные, а значит, отсутствует излишняя перекачка копии всей базы. 

Благодаря всему этому сетевые базы данных практически не используются. 
В настоящее время их почти полностью вытесняет технология клиент-серверных 
БД даже в небольших программах. 

В отличие от сетевых, локальные базы данных будут жить еще долго, потому 
что реальной альтернативы им пока не видно. При этом может измениться формат 
их хранения или добавятся какие-то новые функции, но идеология жива уже не- 
сколько лет и может просуществовать как минимум столько же. 


ПРИМЕЧАНИЕ. В этой главе мы затронем только локальные базы данных, а сервер- 
ные рассмотрим немного позже. 


Для дальнейшего рассмотрения механизмов синтеза БД надо определить новое 
понятие — таблица. Таблица базы данных — это двумерный массив (табл. 14.1), 
в котором в столбец (графы) выстроены данные (пример таблицы — документ 
в формате Ехсе!]). База данных — это всего лишь файл, в котором может храниться 
от одной до нескольких таблиц. Большинство локальных баз данных могут хранить 
только одну таблицу (4Вазе, Рагадох, ХМГ.). Но есть представители локальных баз, 
где в одном файле заключено несколько таблиц (например, Ассез$, который мы 
будем рассматривать в этой главе). | 


14.1.1. Локальные базы данных 


Существует несколько видов баз данных, а мы будем рассматривать реляцион- 
ные как наиболее распространенные в настоящее время. В то же время это один из 
самых старых типов БД. | 

Что такое реляционная база данных (РБД)? Это таблица, в которой в качестве 
столбцов выступают имена хранимых в ней данных, а каждая строка содержит са- 
ми данные. Таблица базы данных похожа на электронную таблицу Ехсе] (если быть 
точнее, то Ехсе] хранит свои данные в виде собственного формата, построенного на 
основе технологии баз данных). Локальные таблицы баз данных могут храниться 
на локальном жестком диске или централизованно сохраняться на сетевом диске 
файлового сервера. Файлы БД можно копировать с помощью стандартных средств, 
как любой другой файл, потому что сами таблицы базы данных не привязаны к оп- 
ределенному месту расположения. Главное, чтобы программа могла найти нужную 
ей таблицу. | 

В каждой таблице должно быть одно уникальное поле, которое` однозначно бу- 
дет идентифицировать строку. Это поле называется ключевым. Без такого поля 
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таблицу нельзя будет изменять. Ключевые поля очень часто используются для свя- 
зывания нескольких таблиц между собой. Но даже если у вас таблица не связана, 
ключевое поле все равно обязательно. Представьте, что вы пишете телефонную 
базу данных. Сколько у вас будет "Ивановых"? Как вы будете отличать их? Вот тут 
вам поможет ключ. —_ 

Вот тут те читатели, которые знакомы с базой данных Огасе, могут сказать, что 
в ней могут быть таблицы без индексов и эти таблицы можно изменять. Дело в том, 
что уникальный индекс в этой базе данных есть всегда и создается он автоматиче- 
ски, а является им поле го\14. Да, могут быть базы данных, в которых нет ключе- 
вого уникального поля и разрешено редактирование, но это не есть правильно. Это 
означает, что две строки могут быть абсолютно одинаковыми, и какую из них нуж- 
но изменять базе данных при запросе на обновление данных одной из этих строк? 

В качестве ключа желательно использовать численный тип, и если позволяет база 
данных, то будет лучше, если он будет типа "ашюшстетепе" (автоматически увеличи- 
вающееся или уменьшающееся число — счетчик). В современных БД есть более на- 
дежный способ создания уникальности, например, СОТО (глобальный уникальный 
идентификатор) из М$ ОГ, Зегуег или последовательности (5едиепсе) из Огасе. 

Имена столбцов в таблице базы данных также должны быть уникальными, но 
в этом случае не обязательно числовыми. Их можно называть как угодно, лишь бы 
соблюдалась уникальность и было понятно пользователю, а остальное никого не 
интересует. | 

Каждый столбец (поле базы данных) обязательно должен иметь определенный 
тип. Количество типов и их разновидность зависит от типа базы данных, например, 
формат ЧВАЗЕ (файлы с расширением Г) поддерживает только 6. типов, а система 
управления БД (СУБД) Рагадох уже до 15. 

База данных может храниться в одном файле (например, СУБД Ассе$$) или 
в нескольких (Рагадох, АВазе). Точнее сказать, данные таблицы всегда хранятся 
в одном файле, а вот дополнительная информация может располагаться в отдель- 
ных файлах. В качестве дополнительной информации могут быть индексы, ограни- 
чения или список значений по умолчанию для конкретных полей. Если хотя бы 
один из файлов испортится или будет удален, то данные могут стать недоступными 
для редактирования. 

Что такое индексы? Очень часто данные из таблиц подвергаются каким-то из- 
менениям, поэтому прежде чем произвести редактирование над какой-либо стро- 
кой, неабходимо ее найти. Даже статические таблицы, использующиеся в качестве 
справочников, тоже подвергаются операциям поиска перед выводом запрашивае- 
мых данных. Поиск — достаточно трудоемкая операция, особенно если таблица 
содержит очень много строк. Индексы направлены на ускорение этой процедуры, 
а также могут использоваться в качестве отправной точки при сортировке. 

Итак, индексы — это таблица, с помощью которой упорядочиваются данные 
в основной таблице. Очень часто в основной базе данные хранятся неупорядочено, 
а для сортировки используются именно индексы. 

В общем случае индексы можно рассматривать как таблицу адресов на строки 
данных. По этой таблице легко найти какую-то определенную строку таблицы. При 
этом следует учитывать то, что непроиндексированное поле невозможно упорядо- 
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чить без использования ЗОГ.-запросов. А если и попытаться отсортировать, то про- 

цесс будет очень долгим. 

Если вам надо, чтобы какая-то таблица была упорядочена по полю "Фамилия", 
то это поле надо сначала проиндексировать. Затем нужно только указать, что таб- 
лица должна работать с таким-то индексом. Далее сортировка производится авто- 
матически. В этом случае индекс используется для сортировки и значительно уско- 
ряет этот процесс. Для большинства баз данных используется правило — если по 
какому-либо полю (колонке данных) будет происходить сортировка, то эта колонка 
должна быть проиндексирована, чтобы скорость сортировки была максимальной. 


14.1.2. Оеры и базы данных 


Для работы с базами в РерЫ есть несколько наборов компонент. Каждый набор 
очень хорошо подходит для решения определенного круга задач. Почему такое 
разнообразие компонентов? Все они используют разные технологии доступа к дан- 
ным и отличаются по своим возможностям. М!сгозой встроила в свои продукты 
разработки только технологию доступа к данным АШО собственной разработки. 
Фирма ВоПап4 предоставила разнообразные средства, работающие через разные 
технологии, и не ограничивает программиста только своими разработками. Такое 
положение вещей дает громадные преимущества, а главное — свободу выбора. 

Помимо этого, есть группы компонентов, которые могут использоваться 
в любом случае. 

Произведем краткий обзор доступных средств доступа к базам данных. 


О На вкладке даа Ассе$$ расположены основные компоненты доступа к данным. 
Эти компоненты общие для. всех и могут использоваться совместно с другими 
группами компонентов. 


О На вкладке ава Сопыго5 расположены компоненты для отображения и редак- 
тирования данных в таблицах. Эти компоненты также используются вне зави- 
симости от используемой на данный момент технологии доступа к данным. 


С Вкладка ВБЕ содержит компоненты, позволяющие получить доступ к базам 
данных по технологии, разработанной фирмой Войап4, под названием Во|апд 
ПааБазе Епгше. Эта технология сильно устарела и поставляется только для 
учета совместимости со старыми версиями. Несмотря на это, она хорошо рабо- 
тает с устаревшими типами баз данных, например, такими как Рагадох и АВазе. 


С ОВЕхрге$$ — это новая технология доступа к данным фирмы Во!апа. Она от- 
личается большей гибкостью и хорошо подходит для программирования кли- 
ент-серверных приложений, использующих базы данных. Компоненты с одно- 

. именной вкладки желательно использовать с базами данных, построенными по 
серверной технологии, например, Ога е, ОВ2 или МУу$ОГ. 


С АБО (Аспуе Даа ОБес{$) — технология доступа к данным, разработанная кор: 
порацией МПсгозой. Очень хорошая библиотека, но использовать ее желательно 
только с базами данных М1сгозой, а именно М$ Ассез$ или М$ $ОГ, $егуег. 
Ее также можно использовать, если у вас специфичный сервер баз данных, ко- 
торый может работать только через ООВС. | 
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СОВЕТ. Работа с базами данных Ассез$ идет через специальную надстройку ОАО, 
которая может устанавливаться на компьютер вместе с программой ОЙНсе или идти 
как отдельная установка. Так что если ваша программа не будет работать на компью- 
тере клиента, то надо позаботиться об установке ВАО и АОО на этот компьютер. 
На установочном компакт-диске с Оеры 7/2005/2007 вы можете найти файл 
таас _4ур.ехе, который устанавливает компоненты АОО версии 2.7. Это самые свежие 
компоненты на момент написания книги. 


Сейчас не ставится цель рассмотреть абсолютно все компоненты. Однако ин- 
формация по наиболее важным из них будет представлена. Это обеспечит возмож- 
ность писать профессиональные приложения для работы с базами данных. 


14.2. Создание первой базы данных Ассе$$ 


Сейчас мы подробно рассмотрим, как создавать и использовать базы данных 
Ассез$. Для последующей работы необходимо, чтобы на вашем компьютере были 
установлены М$ ОЁ#се и его компонент М$ Ассез$. Именно в нем и будут созда- 
ваться РБД, а вот работать с ними мы будем уже из Вер. 

Запустите Ассез$ и выберите меню Файл | Создать. В мастере создания базы 
данных выберите пункт База данных и нажмите ОК. Вам предложат выбрать имя 
базы и место расположения, укажите что угодно (например, файл РааБазе.па4Ъ). 

После этого Ассезз создаст базу и сохранит ее по указанному пути. Далее вы 
увидите окно, показанное на рис. 14.1, в котором и происходит работа с базой. 


| 28 461 : база данных (фо 
_Иоткрыть ВЕ Конструктор ‘#1 Создать | 
_ Таблицы | и : |] Создание таблицы с помощью мастера 


Создание таблицы путем ввода данных 


Запросы ^^ Ё 


_ Формы › 
Отчеты 
Страницы \ 


Макросы _ 


Рис. 14.1. Окно управления базой данных 


С левой стороны окна находится колонка выбора объектов РБД, с которыми вы 
можете работать. Первым находится пункт Таблицы (он выделен по умолчанию), 
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который И будет нас интересовать. Если этот объект у вас не выделен, выделите 
его. В окне справа находятся три пункта: 


О Создание таблицы в режиме конструктора; 
О Создание таблицы с помощью мастера; 
С Создание таблицы путем ввода данных. 


С помощью этих команд можно создать таблицы внутри созданной базы данных 
Ассе$$, которая может хранить в одном файле несколько таблиц. 

Все данные в БД хранятся в виде двумерных таблиц. На рис. 14.2 вы можете ви- 
деть пример простой таблицы, состоящей из семи колонок и множества строк. 


8 Склад: таблица 


[=15х 


|" Материал: _ 


| ее — 
273052100 


373052130 


_ 473050750 | 
‚ 573050010 

_ 673051620 _ 
.7. 73051250 _ 


873050030 
973050900 


10 73050050 . 

_ 1173051670 — 
_ 1273050070 

13 73052710 _ 


1 4 73050060 


‚ 16.73052390_ 
17: РаЕлаИ 


000124 Подши 


_ 000136 Подши_ 
`ПППЭПЙ Плим, 


Запись: 4 | № _>. ры [+ ‘из. 2146— 


Е Склад : таблица 


‘Общие 


Размер поля . — 
„ Новые значения 
Формат поля. 


Подпись 


Индексированное п поле-. 


— Саетчик 


_ Текстовый 
„Текстовый 
‚Числовой. 


Числовой 


Числовой 
‚Числовой ИИ 


^| Подбтановка | 4) 


°_- Длинное целое _ 


х. Последовательные | 


_ Аа (Совпадения не допускаются) 


„Свойства поля. ай 


| 
|! 


.|Наименование|_ Ед ^^ `|Производителе| __ Всего __| Зиг 
'000002ШМ20 Г = | | 2 

‚ 000017 Подши 
000023 Подши = 
‚000027 Подши — _ | 
000029 Подши 
000101 Подши 

- 000103 Подши: . 
000105 Подши 
_ 000107 Подш = 
000108 Подши 
.000109 Подщи 
‚000110 Подш 

_ 000111 Подши 
__ 000112 Подши_ 
1573052380 


в 
190 _ 


Имя поля может состоять из 64 знаков с учетом. 
| пробелов. Для справки по именам полей нажмите 


клавишу ЁЕ1, 


| 
| 
| 


Рис. 14.3. Окно создания таблицы 
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Колонки в таблицах называются полями. По ним определяется, какие именно 
данные хранятся в таблице. Давайте попробуем создать базу данных телефонного 
справочника. Щелкните кнопкой мыши по пункту меню Создание таблицы в ре- 
жиме конструктора (рис. 14.1), чтобы создать новую таблицу в БД. Перед вами 
откроется окно, например, как показано на рис. 14.3. | 

`В верхней части окна находится сетка, в которой вы вводите поля таблицы, их. 
тип и описание (последнее не обязательно). Когда вы вписали в сетку имя нового 
поля и указали тип, внизу окна появляются свойства нового поля. В зависимости от 
типа поля изменяется и количество свойств. Рассмотрим наиболее важные из них. 


С Масксимальная длина поля. Для текстового поля размер не может быть 
больше 255. Если текст длиннее, то надо использовать поле Мето. 


С Формат поля. Здесь вы можете указать внешний вид данных. Например, поле 
может выглядеть как Уез / № для логических полей или — пм уууу для поля 
даты. 


О Маска ввода. Здесь’ мы вводим маску, которая отвечает за отображение поля 
при редактировании. Если вы щелкните мышью на кнопке с точками (...) в стро- 
ке Маска ввода, то увидите мастер создания маски. 


О Значение по умолчанию. Указанное здесь значение будет использоваться, если 
пользователь не указал в поле каких-либо данных. 


О Обязательное поле. Если пользователь не введет сюда значение, то появится 
сообщение об ошибке. Такое поле не может быть пустым. 


С Пустые строки. Похоже на предыдущее поле, потому что оно тоже не может 
быть пустым. 


О Индексированное поле. Основной индекс всегда без допуска совпадений (ос- 
тальные могут допускать двойные значения). Может быть: 
» неиндексированным; 
» индексированным с допуском совпадений; 
» индексированным без допуска совпадений.. 

С Сжатие Юникод — позволяет сжать данные в соответствии с Юникод. 
Теперь создайте шесть полей. | 

О Имя поля — Кеу[. Тип — счетчик. Это будет ключевое поле. Размер поля — 
Длинное целое. Индексированное поле — Да (совпадения не допускаются). 

С Имя поля — Фамилия. Тип — текстовый. Размер поля — 50. Индексированное 
поле — Да (допускаются совпадения). 

О. Имя поля — Имя. Тип — текстовый. Размер поля — 50. Индексированное по- 
ле — Да (допускаются совпадения). 

О Имя поля — Телефон. Тип — текстовый. Размер поля — 10. Индексированное 
поле — Да (допускаются совпадения). 

О Имя поля — е-таН. Тип — текстовый. Размер поля — 20. Индексированное 
поле — Да (допускаются совпадения). 


О Имя поля — Город. Тип — числовой. Размер поля — Длинное целое. Индексиро- 
ванное поле — Нет. 
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ПРИМЕЧАНИЕ. Почему город не строковый, ведь названия городов — это текст? Пока 
здесь не будет объясняться этот феномен, оставим его на потом. Чуть позже мы уви- 
дим, почему город должен быть числовым. 


Помимо этого, у всех полей значение свойства Обязательное поле стоит в Нет, 
и в пустые строки выставлено Да. Если вы сделаете поле обязательным, то во всех 
строках обязательно должно быть заполнено соответствующее поле. Если вы за- 
претите пустые строки (значение Нет), то в указанном поле должно быть обяза- 
тельно что-то введено, иначе произойдет ошибка. В реальных условиях, если 
какое-то поле обязательно должно иметь значение, то лучше сделать его обяза- 
тельным. Не надо надеяться на добропорядочность пользователя, потому что они 
слишком часто подводят. Пусть лучше БД следит за правильностью данных. 

Теперь выделим первое поле (Кеу1). Щелкните правой кнопкой мыши и выбе- 
рите пункт Ключевое поле. Задание ключевого поля является обязательным дей- 
ствием, если вы этого не сделаете, то таблица не сможет редактироваться, а это 
значит, что в нее нельзя будет добавлять строки. 


ПРИМЕЧАНИЕ. В Ассез$ при попытке сохранить таблицу без ключевого поля про- 
грамма предлагает самостоятельно создать ключ. Если вы согласитесь, то таким по- 
лем будет первое по счету. 


Все, теперь таблицу можно сохранять и закрывать. На вопрос: "Сохранить таб- 
лицу" отвечайте положительно и сохраните под именем Справочник. | 

Наша первая база данных готова. Теперь можно перейти к следующему разделу, 
где мы напишем первый пример для работы с созданной БД и таблицей. 


14.3. Пример работы с базами данных 


Составим программу, которая будет работать с базой данных М$ Ассез$. Как 
уже говорилось, для такой разработки лучше всего использовать АО. Давайте на- 
пишем наше первое приложение для работы с базой данных. 

Создайте новый проект. Теперь поместите на форму компонент Аросоппесе+оп 
с вкладки АБО палитры компонентов. Настроим соединение с сервером, которое 
должно быть указано в свойстве соппесЕ1оп$Ех1па. Для этого надо дважды щелкнуть 
в объектном инспекторе по строке свойства соппесе+опбЕх1па (или дважды щелкнуть 
по самому компоненту). Перед вами открывается окно, показанное на рис. 14.4. 


# 


Рог]. АООСоппесНноп1 Соппесноп 70 


Г бошсе о Соппесвоп -- 
1 Г Це ры к Ре 


| "зе Солпесвол о о 


пи Вы... а] 


Рис. 14.4. Окно создания подключения к базе 
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Здесь перед нами стоит выбор: 
0 использовать специальный файл (05е Ома Шик ЕПе); 
О использовать строку подключения (05е Соппесйоп 5@71п?). 


Второе, на мой взгляд, более предпочтительно, поэтому рассмотрим, как создать 
строку подключения. Ее можно ввести вручную, но-на начальном этапе я бы не со- 
ветовал этого делать, потому что легко ошибиться. Намного проще использовать 
мастер. Чтобы запустить этот мастер, щелкните мышью по кнопке Вий@. Перед 
нами откроется еще одно окно, показанное на рис. 14.5. 

На вкладке Поставщик данных (Рго\у!4ег) перечислены все доступные АБО 
драйвера доступа к базам данных. Если какого-то драйвера нет, то можно попробо- 
вать выделенный по умолчанию — №М@сгозой ОГЕ ОВ Ргоу1 ег {ог ООВС Опуег$. 
Этот драйвер позволяет получить доступ к данным через ОБВС-драйвер, который 
можно отнести к большинству существующих БД. Здесь следует учесть то, что 
данный драйвер может быть не установлен на вашем компьютере. 

В нашем случае для доступа к базам данных М$ Ассе$$ используется драйвер 
Мсгозой ]её ОГЕ ОВ Ргоуег. Такой драйвер обязательно устанавливается на 
машину вместе с М5 ОЁШсе, а в последних версиях \/т4о\5$ он устанавливается по 
умолчанию. | 

В определенных случаях может быть установлено сразу две версии этого драй- 
вера, поэтому выберем более новый — МИсгозой Ге 4.0 ОГЕ ОВ Ргом ег. После 
этого нажмите кнопку Далее (Мех или перейдите на вкладку Нодключение 
(Соппесйоп). | 


м О Свойства ры Е И сны ю Свойства, связи с с данными с 


_ Поставшика данных _ _ Поклонение «= Деполтьльк : се 1. 
_ Вобетьг подключаемые данные: 5 И . ит . 


” | Поставщики ОЕ ОЕ. Г 
°; | МефаСааю90В ОЦЕ ОВ "Ромаа 
-... } МедаСавюдМегдед ОВ ОЕ ОВ Ргомдег 
"| МефаСааюд\м\/е ОВ ОКЕ ОВ Ргочдег 
-... о | МиетозоЁ 15АМ 1.1 ОТЕ 08 Ргомдег 
ВОВА Е КА сгозоН Це 4.0 ОЕ ОВ Ргом ег 
2.7. | Мегозой ОБЕ ОВ Рючмде: Рог аа Мптуд бегисез 
7. | Мсгозой ОГЕ ОВ Рго\дег юг пдехпо бегисе 


__. 7] Метозов ОГЕ ОВ Риомдег Гог имете! Рипа :: . ве 1 г Разрешить сохранение пароля ыы . 


^_ кажите сведения для подключения к данным Аесеза: й _ , 
- С. Выберите или введите имя базы данных Ея 


„ | МегозоВ ОЁЕ ОВ Р'омдег Гог ООВС Оимег$ 
7. | МетозоЙ ОГЕ ОВ Ргомдег юг ОЦАР бегисез 8.0 
.:- ^] МегозоВ ОЕ ОВ Ргомфег юг Огасе 
| МегозоВ ОЕЕ ОВ Ргомдег юг 541 Зегуег 
77] Мегозой ОСЕ ОВ Эитре Ргом ег. 

5; .] МодаабНаре 
- 1 Поставщик ОЕ ОВ для служб каталогов 


с. | | Далее>>. | ооо Проверить подключение | — 


`.- Отмена. | Справка: а рю]. Отмена | 


Рис. 14.5. Окно создания строки Рис. 14.6. Вкладка Подключение 
подключения 
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Вид вкладки Подключение зависит от выбранного драйвера. В нашем случае 
она должна выглядеть так, как показано на рис. 14.6. 

Первым делом, в строке Выберите или введите имя базы данных (Зеесе ог 
ет{ег а дайабазе пате) надо ввести имя базы данных (при необходимости и путь). 
Если база данных будет располагаться в той же папке, что и исполняемый файл 
‚ приложения, то путь указывать не обязательно. 


СОВЕТ. Храните базы в одном каталоге с исполняемыми (программными) файлами. 
Если вы будете хранить файлы отдельно от исполняемого файла, то вам придется 
указывать полный путь, а это может вызвать проблемы при переносе программы на 
другой компьютер. Ведь там программа будет искать базу по указанному пути, кото-. 
рый может измениться. Если хотите держать файлы в другом каталоге, то указывайте 
относительный путь (относительно текущего каталога). 


Чуть позже мы узнаем, как самим сгенерировать строку подключения и изба- 
виться от использования окна и зависимости от путей. 


ПРИМЕЧАНИЕ. Чтобы легче было выбрать файл БД, необходимо щелкнуть мышью 
по кнопке с точками справа от строки ввода. 


Теперь заполним следующие поля. 


ОС Пользователь (О5ег пате). Значение поля можно оставить по умолчанию, если 
не задано иное при создании базы в М$ Ассез$. 


О Пароль (Раз$\ога). Если база имеет пароль, то его необходимо указать. 


О Пустой пароль (В1апК раз$\/ ога). Если пароль не нужен, то здесь желательно 
поставить флажок. 


С Разрешить сохранение пароля (АПо\ аут? раз$\/ога). Если здесь поставить 
флажок, то пароль может быть сохранен. Если нет, то при каждом запуске про- 
граммы будет появляться окно с просьбой ввести пароль. 


Как только вы выберете базу данных, нажмите кнопку Проверьте подключе- 
ние (Тез Соппесйоп), чтобы протестировать соединение. Если все указано пра- 
Вильно, то должно появиться сообщение Те$ соппесНоп зиссее4е4 (Тестирование 
соединения прошло удачно). Все, можно нажать ОК, чтобы закрыть окно создания 
строки подключения. Затем еще раз нажать ОК, чтобы закрыть окно редактора 
строки подключения (см. рис. 14.5). 

Продолжим настройку приложения. Теперь в свойствах компонента АРОСоппесЕ1оп 
ОТКЛЮЧИТЕ СВОЙСТВО Гоч1пРрготре, выставив его в #а1зе. Это нужно для того, чтобы 
при каждом обращении к базе не происходил вызов окна ввода пароля, тем более 
что никаких паролей мы не назначали. Далее выставим свойство Соппесееа В (гие, 
чтобы произошло соединение с базой. 

На этом соединение можно считать оконченным. Теперь нам надо получить 
доступ к созданной таблице Справочник. Для этого поместим на форму компо- 
нент АРОТаЪ1е с вкладки АРО палитры компонентов. Сразу измените его свойство 
Мате На ВооКкТаЬ]Те. 

В этом компоненте тоже есть свойство СоппесЕ1оп3Зех1па и его также можно 
настраивать. Почему можно? Да потому что, для того чтобы этого не делать, мы 


13 Зак. 1273 


376 -_ Глава 14 | 


установили на форму компонент аАрОоСоппесЕ1оп. Теперь можно указать у нашего 
компонента воокМаше в СВОЙСТВе СоппесЕ1оп созданный нами компонент соедине- 
ния с базой данных. Щелкните по ниспадающему списку в свойстве соппесЕ1оп 
и выберите там единственный Пункт АРОСоппесЕ1оп1. Теперь не надо заполнять 
СВОЙСТВО СоппесЕ1оп5Ех1па. 

В свойстве таЪ1еМаме нужно выбрать имя нашей таблицы (Справочник). Все, 
таблица и соединение указаны, можно подключаться. Для этого выставьте свойство 
АСЕ уе В Егае. 

Для отображения данных из таблицы надо установить на форму компонент 
Ракабоигсе с вкладки Эайа Ассе$$ палитры компонентов. Теперь этому компоненту 
надо указать, какую именно таблицу он должен отображать. Для этого в свойстве 
Расазее нужно из ниспадающего списка выбрать компонент воокТаю1е, который | 
связан с нашей таблицей Справочник. 

Все приготовления окончены, можно приступать к реальному отображению 
данных. Самый простой способ отобразить таблицу — установить компонент 
рвсг:а. Это компонент — сетка, которая может отображать данные в виде табли- 
цы. В этом же компоненте можно добавлять, удалять и редактировать строки на- 
шей таблицы. | 

И последний этап создания приложения — связывание компонента сетки с ком- 
понентом отображения таблицы. Для этого в свойстве расабицогсе компонента 
рвсг1а нужно указать созданный нами компонент раса5оигсе1. 

Вот теперь приложение готово (рис. 14.7). Может быть, вы не заметили, но мы 
не написали ни одной строки кода. Вот до какой степени Реры упрощает процесс 
программирования БД, что даже программировать не надо. 


| И Телефонный справочник 


ро 
_ 3. Сидоров 


Рис. 14.7. Форма приложения 


© 


Попробуйте запустить этот пример, а затем создать несколько строк, отредакти-. 
ровать уже существующие или удалить что-нибудь. Для вставки строки используй- 
те клавишу <[1$>, а для удаления — комбинацию клавиш <СИ]>+<Пе]>. 


ПРИМЕЧАНИЕ. На компакт-диске, прилагаемом к книге, в папке \Примеры\Глава 14\ 
Оа{абазе1 вы можете увидеть пример этой программы. 
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Теперь немного подведем итог и определимся, для чего же мы устанавливали 


какие-то компоненты на форме И какую роль они выполняют. 


О 


ТАРОСоппесе1от — этот компонент реализует возможности, необходимые для 
установки соединения с базой данных. Это соединение впоследствии смогут ис- 
пользовать компоненты работы с данными, такими как ТАРОТаЪ1е или 
ТАРООчехгу, 

ТАРОТаь1е — компонент реализует функции работы с данными в таблицах базы. 
Вы можете просматривать, читать эти данные и даже редактировать; 


ТРасабоигсе — этот компонент связывается с компонентами ТАРОТаь1е. или 
ТАРООчегу и необходим тогда, когда данные таблицы должны отображаться на 
форме с помощью компонентов УСГ. Получается, что он выполняет роль по- 
средника между данными и визуальными компонентами. В нашем случае он 
стал посредником между таблицей справочника и компонентом трвсх1а. 


14.3.1. Свойства компонента ТАРОТаШе 


Ф® 
Компонент тарОТаЪ1е имеет множество полезных свойств. Большинство из них 


просты в использовании. В связи с этим, чтобы не писать большое количество 
примеров, кратко рассмотрим основные из этих свойств. В дальнейшем с некото- 
рыми мы познакомимся на практике. 


0 


Мазкегбочгсе — В эТом свойстве указывается главная таблица по отношению. 
к текущей. Мы рассмотрим это свойство достаточно подробно, когда будем рас- 
сматривать связанные таблицы. 


ВеаЯ0п1у — если это свойство равно Ехие, то данные таблицы нельзя редакти- 
ровать. В этом случае данные только отображаются. Обязательно устанавливай- 
те это свойство для тех таблиц, где данные не должны изменяться и пользова- 
тель не должен вносить в них изменения. 


Таф1ер1кеск — это свойство отображает, как будет происходить доступ к таб- 
лице. Если этот параметр равен +хае, то будет происходить прямой доступ 
к таблице по имени. Если Еа1зе, ТО незаметно для вас будет происходить специ- 
альный ЭОГ-запрос к базе данных (о ЗОГ-запросах. читайте ниже). Не все БД 
позволяют работать через прямой доступ, поэтому это свойство по умолчанию 
равно Ёа1зе. 

ТаЪ1емаше — имя таблицы, данные которой мы хотим обрабатывать. 

Сасвез1=2е — размер кеш-памяти. Если здесь установить число 50, то при пер- 
вом подключении к таблице компонент выберет первые 50 строк и разместит их 
в локальной памяти, что ускорит. доступ к ним. Остальные строки будут под- 
гружаться с сервера по мере надобности. 

СоптапаТ1меоцЕ — время ожидания выполнения команды. Когда компонент 
направляет команду базе данных, то он запускает таймер ожидания, по истече- 
нии которого (если команда не выполнилась) происходит сообщение об ошибке. 
СоппесЕ1оп — ЗзДесь указывается компонент ТАРОСоппес®1оп, через который 
происходит подключение. | 


Соппесе1оп$Ех1па — строка подключения к базе данных. 
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СихзогЬосае1оп — расположение курсора, который считывает данные и указы- 
вает текущую позицию в таблице. Курсор может находиться на сервере или на 
машине клиента. | 


СигзогТуре — тип курсора. Тут возможен один из следующих вариантов: 
® сЕ0пзрес1Е1еа — расположение курсора. не указано; 
® сЕОрепРогмахаОп1у — курсор может двигаться только вперед, 


® сЕКеузее —_ изменения, внесенные одним пользователем, не видны осталь- 
ным пользователям, подключенным к этой таблице; 


ПРИМЕЧАНИЕ. Если с одной таблицей работают одновременно несколько пользова- 
телей, то при таком курсоре для отображения изменений других пользователей нужно 
отключиться от базы и подключиться к ней снова. 


® СЕБупам1с — динамический курсор, при Котором изменения одного пользо- 
вателя видят все остальные, 


® СЕЗкае:с — статический курсор, при котором изменения одного пользовате- 
ля не видны`остальным. 


ВНИМАНИЕ. Если курсор расположен в таблице БД клиента, то можно использовать 
только статический курсор. Не все типы курсоров могут работать с определенной ба- 
зой данных. Одна БД может поддерживать один тип, а другая может поддерживать 
все типы курсоров. 


Е116ег — строка фильтра. 
Е115егеа — является ли таблица фильтруемой. Если здесь установить +а1зе, то 
строка фильтра (+Е11Еех) игнорируется. 


ТпаехЕ1е1ЯМанез — ИМЯ индексированной КОЛОНКИ. Индексы используются 
для сортировки данных или для связи между таблицами. 


ВесМо — номер текущей выделенной строки. 
ВесогАСоипЕ — количество строк в таблице. 


богЕ — строка, в которой указывается тип сортировки. Например, для сорти- 
ровки по полю Телефон нужно записать строку: АроОцеку1 .5отхе:='Телефон 
А5С'. Оператор А$с говорит о том, что надо сортировать в порядке возрастанчя. 
Оператор рЕзс говорит о сортировке в порядке убывания. 


АсЕ1уе — если это свойство равно Ехъце, то таблица открыта. 
АЗаЕ1е1а$ — здесь хранятся все агрегатные поля. | 
АцЕОоСа1сЕР1е1Ааз — если здесь сгае, то надо автоматически пересчитывать поля. 


ВоЕ — на это свойство влиять нельзя, но если оно равно Ехиае, то мы находимся 
в начале файла. 


ВоокКмагк — здесь находится текущая закладка. 


ЕоЕ — На это свойство влиять нельзя, но если оно равно гие, то мы находимся 
в конце файла. 


Е1е1ЯАСочпЕ — здесь хранится количество полей в таблице. 


г1е1а9з — через это поле можно получить доступ к значениям других полей. 
Допустим, что вам надо узнать, какое значение хранится в четвертом поле. 


Бер! и базы данных | о 379 


Для этого нужно написать ТаБ1е.Е1е1@5.Е1е19$[4].Аз5Ехг1па. Метод Аз5ег1п9 
говорит о том, что надо получить значение в виде строки. В книге используется 
обращение к полям по именам. 


Е1е1ЯУа1аез — С ПОМОЩЬЮ ЭТОГО свойства можно легко получить доступ к лю- 
бому значению указанного поля. Имя поля нужно указывать в квадратных скоб- 
ках. Например, таЪ1е1 .Е1е19\Уа1иез [ `Телефон’]:='3346598'; 


Е11кехгОре1оп. — настройки фильтра. Здесь можно указывать следующие пара- 
метры: 
® РОоСазе!Тпзепз1Е1уе — фильтр будет не чувствителен к регистру; 


® ЕОМоРагк1а1Соптраге — если стоит этот параметр, то сравнения будут проис- 
ходить с точной копией указанного в фильтре значения. 


ПРИМЕЧАНИЕ. Если параметр ЕоМоРагЕ1а1Сопраге не указан, то в фильтр будут 
попадать строки, содержащие значение в фильтре, но не являющиеся его точной ко- 
пией. Например, если в фильтре указано показывать слова "са", то в фильтр попадут 
все слова, начинающиеся на "са" (самолет, самокат). | 


О моа1+1еа — если это свойство равно кгие, то в таблице были внесены изменения. 


С весм№о — определяет, какая строка сейчас выделена. 


О 


ВесогаСоипЕ — количество строк в таблице. 


14.3.2. Методы компонента ТАРОТае 


Как видите, свойств очень много и большинство из них очень полезные. В тече- 


ние всей этой главы мы будем знакомиться с ними на практике. Теперь приготовь- 
тесь к рассмотрению методов компонента. Они не менее полезны, и мы также бу- 
дем знакомиться с большинством из них на практике. 


О 


О 


ВооктахК\Уа11а — этот метод проверяет правильность закладки. В качестве 
единственного параметра нужно указать закладку типа Тьоокмагк, и если она 
является "действительной", то результатом будет ехое. 


Сапсе1Орааеез — отменить обновления, сохраненные в кеш-памяти. 


СопрагеВоокмахкз — сравнение двух вкладок. У метода два параметра типа 
ТВоокпакк. Эти две вкладки сравниваются. Если вкладки равны, то результат ра- 
вен нулю. Если первая меньше второй, то результат будет —1. Если первая 
больше второй, то результат равен единице. 


Ре1есекесогаз — удалить записи. У метода один параметр, определяющий, 
какие записи удалять. Вы можешь указать следующие его значения: 


® АкСигкепЕ — удалить только текущую запись; 

® агЕ11кегеа — удалить записи, удовлетворяющие установленному фильтру; 
® агд11 — удалить все записи; 

® агА11СНаркегз — удалить записи во всех разделах АОО. 

Аррепа — добавить новую запись в конец таблицы. 


Сапсе1 — отменить изменения текущей строки, если изменения еще не были 
сохранены с помощью метода Розе. 
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С1озе — закрыть таблицу. 
Ре1еёе — удалить текущую строку. 


Еа1 — перейти В режим редактирования. После этого можно изменять значе- 
ния полей. 


Е1е1авумМаме — найти поле по имени. В качестве единственного параметра 
нужно указать имя поля в виде строки, и в результате получим ссылку на поле 
в виде объекта тЕ:е1а. 


соо 


О 


О =!:1:зе — перейти на первую строку в таблице. 

О тпзегЕ — вставить новую строку в таблицу. 

С] тзепреу — если метод вернет сгое, то в таблице нет записей. 
С] газе — перейти на последнюю запись в таблице. 

С мехе — перейти на следующую запись. 

ОС РозЕ — принять все изменения. 

О Рк1охг — двигаться на предыдущую запись в таблице. 

О веЕгезь — обновить информацию о данных. 

О ораакевесока — обновить текущую запись. 


14.4. Управление отображением данных 


В предыдущем примере все работает прекрасно, только вот поле Кеу пользова- 
телю видеть абсолютно не нужно. Это поле — счетчик, и его значение увеличива- 
ется автоматически. А раз пользователь не может влиять на значения этого поля 
и оно не несет для него полезной информации, то и отображать это поле не надо. 

Чтобы спрятать от пользователя ненужные поля и показывать только те, что мы 
хотим, и в том виде, в котором хотим, необходимо научиться управлять отображе- 
нием данных. Но прежде чем приступить к изучению этого вопроса, давайте созда- 
дим в нашей базе еще два поля Дата и Мобильник. Загрузите базу данных 
в Ассез$, щелкните по ней правой кнопкой мыши и в появившемся меню выберите 
Конструктор. Далее в режиме конструктора необходимо выполнить ряд действий. 


1. Добавьте поле с именем Дата и типом — дата/время; 


2. Добавьте поле с именем Мобильник и типом — Логический. Если в строке на- 
ходится мобильный телефон, то в этом поле будем ставить ские, иначе Еа15е; 


3. Закройте таблицу. 


Изменения в структуре невозможно будет сделать, если МОВ-файл использует- 
ся (запущен или к нему подключены из Оеры). Если у вас сейчас в Веры открыт 
пример, то он может препятствовать возможности внесения изменений в структуру 
таблиц. 

Теперь перейдем в рары и попробуем отобразить изменения в уже созданном 
примере. 

Для начала давайте перенесем компоненты доступа к базе данных в отдельное 
специальное окно. Выделите компоненты АПОСоппес®1оп1, Рабабоцгсе1 И ВоокТа Те. 
Теперь выберите из меню ЕЗИ пункт Си чтобы эти компоненты скопировались 
в буфер обмена и сразу удалились с формы. 
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Выберите меню ЕЙе | Мем | рава Модше. Этим вы заставите Пер создать 
специальное окно аа Модше, которое удобно подходит для хранения компонен- 
`тов доступа к базам данных. 

Выберите из меню ЕЁ пункт Рае, чтобы вставить в это окно вырезанные на- 
ми компоненты. Расположите теперь эти компоненты в окне так, как вам будет 
удобно (например, как показано на рис. 14.8). 

Теперь все компоненты, которые предназначены для организации доступа к базе 
данных, будем располагать в этом окне, чтобы с ними удобно было работать. Со- 
храните новый модуль под именем ракаМоди1е0п1+. 

Откройте менеджер проектов, если он еще не был` открыт, и расположите это 
окно так, чтобы вам было удобно в любой момент получить к нему доступ 
(рис. 14.9). Теперь, когда потребуется перейти из главной формы в модуль данных 
РасаМо@и1е или обратно, вы легко можете это сделать с помощью менеджера про- 
ектов, дважды щелкнув кнопкой мыши по нужной форме. 


| РгодесЕ Мападег 


[= ЕТ рт Е:\Р'одгат РИез\Вопай\О Рысь 
Е а Таервоп. ехе  Е\СуО\Воск\Библия Оер/\Примеры\Г лава 14 
+ Е МапУгй Е:\СуО\Воок\Библия Оер/\Примеры\Глава 14 

Г: и ие |088 -:СУО“\Воок\Библия берй\Примеры\Г лава 14 | 


Воокт зе 


Рис. 14.8. Окно аа Моаше | Рис. 14.9. Менеджер проектов 


Если вы хоть раз уже открывали какую-то форму.из менеджера проектов и не 
закрывали, то ее можно найти на вкладках в окне редактора кода, как это показано 
на рис. 14.10. 

Перейдите в главную форму, и вы сразу увидите, что в нашей сетке рвсг1а1 нет 
данных. Почему? Да потому, что она потеряла связь с компонентами доступа 
к данным. Выделите сетку и щелкните кнопкой мыши по свойству расабочгсе. 
Вы увидите, что в ниспадающем списке ничего нет. Это потому, что все нужные 
компоненты мы убрали в отдельную форму и главная форма пока об этом не знает. 

Чтобы форма узнала о существовании компонентов, ей нужно определить в раз- 
Деле изез модуль РасаМоди1е0п1е. Это можно сделать вручную или выбрать из ме- 
ню ЕЩе пункт О$е Ош (в этот момент должно быть выделено окно кода главной 
формы, потому что мы подключаем новый модуль именно к ней). В появившемся 
окне нужно выбрать имя нужного модуля — ракамоду1е0п1 (пока оно одно в спи- 
ске) и нажать кнопку ОК. 
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| Ё рагаМодшщеЦпи.ра$ 

ЕЕЕЕЕЕЕЕЕЕЕЕЕныя 21... _бавмо Ч в гй 
[535 ТОаамове К. "Мани 

| [о УапаЫез/Соп$ат$ . 

ЗЕ Узез 


3у306113, С1аззез, РВ, АРОБВ; 


ТрасаМоЯи1е1 = с1аз$ (ТрРасаНодца1е) 
АрОСоппест1011: ТАБОСонппесо1оп; 
расазоцксе1: Трасабоцгсе; 
ВооКкТаю1е: ТАРОТаю1е; 

ВооКкТаю 1еКеу1: ТАчдсо1псЕ1е1а; 


ВоокТаю 1ерЗрез1дпек: ТУу1аезхк1таЕР1е1а; 
ВоокТаю 1ерЗрез1дчлег2: Ту1ае5$Е1п9Ег1е1а; 
ВооКкТаю 1ерЗрез1дпег3з: ТШ1Че5$©Е1паР1е1а; 


ВооКкТаю 1еепа11: Т\у1ае5 ск 1п9Р1е14; 


ВоокТаю 1ер5рез1чпег4: ТТиседегГ1е!а;. 
ВоокТаь 1ер5рез1чпег5: ТрасеТ1тег1е1а; 
ВооКкТаю 1ер5ез1дпегб6: ТВоо1еапЁ1е1а; 


рглуафе 
о { Резуаёе Яес1агаёзопв } 
| | ооаае 


Рис. ада 0. Вкладки форм в редакторе кода 
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Проверьте теперь в редакторе кода, чтобы после ключевого слова 


1пр1емепеае1оп Появилась запись — чзез ПРасаМоди1е0п1е. 


Вот теперь можно выделять сетку рвбк191 и в свойстве расабоихсе указать ком- 
ПОНеНТ Гагабоцгсе1, данные которого должны быть отображены в сетке 


(РасаМоди1е1 .Раса5оигсе1). 


Теперь перейдем в модуль ракаМоди1е и попытаемся настроить отображение 
данных. Дважды щелкните мышью по компоненту воокТа 1е, и перед вами появится 


окно редактирования полей базы данных (рис. 14.11). 
Пока окно пустое. В него нужно добавить все поля базы 
данных. Для этого щелкните по нему правой кнопкой мыши и 
в появившемся меню выберите пункт АЗ АЙ Ка (Добавить 
все поля). Окно автоматически заполнится именами полей. 
Поля можно переставлять местами, двигая их мышью. 
При этом физическое положение их в базе данных не ме- 


няется. Однако при отображении данных в сетке они бу-. 


дут отображаться в том порядке, в котором выстроены 
в редакторе. Таким образом, вы в любой момент можете 
изменить порядок отображения данных, не обращаясь 
к самой БД. 

Также можно выделять отдельные поля и в объектном 
инспекторе редактировать их свойства. Свойства у полей 
могут быть разные в зависимости от типа поля. 


[ракамовше. Во... В 


] Мобильник, 


Рис. 14.11. Окно 
редактирования полей 
базы данных 
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Продолжим формирование базы данных. Первое, что мы должны сделать, — уб- 
рать видимость счетчика (поле Кеу). Ранее мы уже договорились, что пользователю 
оно не нужно, и он не должен его видеть. Выделите это свойство и в объектном ин- 
спекторе установите в свойстве \%1$151е значение Еа1зе (это свойство есть у всех 
полей). Сразу же можете перейти в главную форму или запустить программу, чтобы 
убедиться в том, что поле Кеу1 больше не отображается. 

Теперь отредактируем длину отображения колонок. Для этого выделите поле 
Фамилия. В базе данных мы выделили под это поле 50 символов (на всякий слу- 
чай). В сетке ширина колонки будет отображаться по умолчанию на всю длину. 
Но чаще всего фамилии не превышают 15 символов, поэтому нет смысла отобра- 
жать всю длину. Намного удобней отображать только 15 символов, а если что-то не 
поместится, то пользователь программы в любой момент сможет раздвинуть ко- 
лонку и увидеть недостающие символы. 

За ширину колонки отвечает свойство р1зр1ауйзаев (это свойство есть у всех 
полей). По умолчанию в нем стоит значение физической ширины поля, но мы ука- 
жем там 15. Опять же на саму БД это не влияет и поле все еще имеет размер 50, но 
ширина отображаемой колонки в сетке будет 15. Точно так же сократите ширину 
поля Имя. 

Рассмотрим еще несколько свойств полей. Некоторые из них видимы в инспек- 
торе свойств, а другие будут видны только программно: 


О А!119пмереЕ — выравнивание во время отображения в сетке; | 
С Азвоо1еап — вернуть значение поля текущей строки в виде булева значения; 


С] Азсиггепсу — вернуть значение поля в виде типа Сиггепсу (тип для хранения 
денежных значений); 


АзПБасеТ1ще — вернуть значение поля в виде даты и времени, 

АзЕ1оаЕ — вернуть значение поля в виде вещественного числа, 

А5 Тпседех — вернуть значение поля в виде целого числа, 

А55ег1па — вернуть значение поля в виде строки, | 
АзУаг1апе — вернуть значение поля в виде универсального типа Уаг1ай(; 


ооо 


\Уа1е — возвращает значение поля в виде того типа данных, которое больше 
всего соответствует заведенному в базе данных. Дело в том, что типы данных 
в БД могут отличаться, например, число может быть объявлено в базе как МОмМВЕБ, 
но в Реры такого типа нет, поэтому результат будет в виде числа роць1е; 


О 


СапМоа1Еу — определяет, можно ли поле редактировать; 


О 


СигУа1ие — отображает текущее значение поля, включая изменения, сделанные 
другим пользователем; | 


Раказек — набор данных ракаЗеке, которому принадлежит поле; 
раказ1=е — размер данных, выделенный в БД для хранения данных; 
215р1ауГаре1 —— заголовок поля для сетки: | | 
2015р1аум1аев — ширина поля при отображении в сетке, 


ооо 


ЕЗ1ЕМазк — маска, используемая при редактировании значения поля, 


О 


ооо 
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Р1е1ЯМо — номер/индекс. поля в результате запроса или в таблице, если это на- 
бор данных ТАРОТаь1 е; 


Тпдех — индекс/номер поля при отображении; 
15№11 — возвращает гие, если поле содержит нулевое значение (мтл,); 
Т51пдехЕ1е1а — возвращает сгие, если поле проиндексировано; 


Ттоокирраказее — поле поисковое, т. е. поиск будет происходить в другой таб- 
лице; ‘. | . 

Мем\/а1ие — измененное, но еще не сохраненное в базе значение; 

014\а1че — старое значение, до внесения изменений, т. е. то, что было прочитано 
из базы данных: 

РеЁаи1ЕЕхрхезз1оп — здесь можно оставить значение по умолчанию. В даль- 
нейшем, когда будут создаваться новые строки, то в поля будут сразу заноситься 
указанные здесь значения; 


МахУа1ае — максимально допустимое значение. Если это числовое поле, и оно 


должно изменяться в определенных рамках (например, от 0 до 100), то жела- 
тельно указать эти ограничения здесь, чтобы сократить вероятность опечатки 
пользователя. Все люди склонны к ошибкам, так пускай программа автоматиче- 
ски сокращает вероятность таких ошибок; 


М1п\Уа1ае — минимально допустимое значение, 


ВеаЯ0п1у — поле только для чтения. Если какое-то поле не должно изменяться, 
установите у него в свойстве кеаЯОп1у значение +гие. В этом случае вы обезопа- 
сите программу от случайного изменения данного поля пользователем; 


Веаи1геа — если здесь кие, то поле является обязательным и обязательно 
должно иметь какое-то значение. Если пользователь ничего не укажет, то про- 
грамма сообщит об этом. Допустим, что какое-то поле у вас участвует в расче- 
тах. Если в этом поле.не окажется данных, то программа может зависнуть. Есть 
два пути решения этой задачи. Первый путь — при расчете проверять наличие 
в поле данных или другой — требовать, чтобы пользователь обязательно что-то 
ввел. Второй путь предпочтительнее, если это поле действительно важное. 
В этом случае представьте запись в телефонном справочнике без телефона. 
Спрашивается, зачем тогда нужна эта запись, если не указан телефон? Таким 
образом, поле для номера телефона можно сделать обязательным; 


Таз — просто числовое значение, которое можно использовать по своему ус- 
мотрению. 


Теперь в нашем окне помещается практически вся необходимая информация, 


И не надо лишний раз использовать полосы прокрутки. 


Необходимо учитывать, что типы полей бывают разные и в зависимости от типа 


могут появляться те или иные свойства. 


Запустите программу и заполните поле Дата любыми значениями для всех 


записей. При заполнении будьте внимательны и указывайте реальные даты. Если 
вы введете недопустимое значение, то программа высветит ошибку. 


ВНИМАНИЕ. При вводе данных учитывайте разделитель чисел. В большинстве рус- 
скоязычных ОС М/пдо\м/$ в качестве разделителя используется точка или знак косой 
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черты (/). К тому же первым идет число, потом месяц и потом год (в англоязычной 
версии первым может идти месяц). Пробелы недопустимы. Этот порядок и раздели- 
тель настраиваются в настройках ОС. Войдите в Панель управления и запустите ок- 


но Язык и стандарты (рис. 14.12). Здесь вы можете изменить все настройки ввода 
даты, времени и чисел. 


Вернемся к Ое!рр:. Выделите поле Дата. Первое, что мы должны сделать, — 
уточнить, какую именно дату здесь надо вводить. Так как это телефонный спра- 
вочник, то мы будем здесь указывать дату рождения владельца телефона. Поэтому 
вполне разумно будет в заголовке сетки отображать не просто Дата, а Дата рож- 
дения. Тут можно поступить двумя способами: 


О отредактировать имя поля в БД (не совсем разумно); 
О заставить Дер отображать в заголовке поля нужный текст. 


За текст, отображаемый в заголовке, отвечает свойство р21зр1ауЬаЪе1 (это свой- 
ство есть у всех полей). Давайте в нем введем текст "Дата рождения". Можете про- 
верить, что теперь в заголовке отображается нужный текст. | 


Настройка региональных параметров 
| Числа о пони бремя] Д Да -| 


В ГОбаь- 


[2345679 11 


.. 


"Формат отрицательных ‹ чисел: 
Вывод нулей в начале числа: | 


Разделитель элементов ‹ слиск 


Система е единии: 2. ге _ | Метрическая 7] | 


ан ‘Рис. 14.12. Настройка 
^ Отмена =. `Применить || формата ввода 
| _] и отображения даты 


Теперь отредактируем формат отображения даты. За это отвечает свойство 
21зр1ауРогтае. Тут можно указывать текстовый формат, в котором нужно отобра- 
жать дату. Как отображать? Вспомните функцию когтаЕрахеТ1ще и ее первый па- 
раметр (см. разд. 10.5). Вот именно это здесь и можно указывать. Многие програм- 
мисты предпочитают использовать для отображения полный формат — "449994". 
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Ну и, наконец, нужно указать маску ввода для даты. Ее нужно указывать в свой- 
стве ЕЯ1 ЕМазКк и так же, как мы это делали у компонента тмазКЕЯ1 к. 


СОВЕТ. Для даты желательно всегда указывать маску ввода — 99/99/9999. 


Если вы теперь запустите пример, то в поле Дата рождения все даты будут ото- 
бражаться в полном формате (рис. 14.13). Если дважды щелкнуть мышью по этому 
полю в любой строке (войти в режим редактирования строки), то дата сразу перей- 
дет в режим редактирования (вторая строка на рис. 14.13). 


„м Телефонный справочник 


| |Фамилия ^^ 


- 
Ш 


___022Ма 


О 


Рис. 14.13. Улучшенный вид поля Дата рождения 


Последнее, что нам надо сделать, — это отредактировать поле Мобильник. По- 
ка что здесь отображаются значения гие ИЛИ Еа1зе. Но мы русские люди и для нас 
будет удобнее видеть родные Да или Нет. Выделите это поле, и в объектном ин- 
спекторе найдите свойство р1зр1ау\а1лез. Для булевых полей здесь нужно указать 
два значения в формате ехие ; Еа1е, т. е. сначала указываем положительное зна- 
чение и после точки с запятой отрицательное. Таким образом указывается значе- 
НнИе — Да ; Нет. | 

Теперь в поле Мобильник будут отображаться понятные слова, да и при редак- 
тировании теперь нужно вводить не егие ИЛИ Еа1зе, а понятные да ИЛИ Нет. 


ПРИМЕЧАНИЕ. На компакт-диске, прилагаемом к книге, в папке \Примеры\Глава 14\ 
Оа{аБазе2 вы можете увидеть пример этой программы. 


14.5. Поисковые поля 


Настало время разобрать поле с именем Город, которое имеет числовой тип и 
пока никак не может хранить данные о городе. Для начала создадим отдельную 
таблицу в нашей базе данных с полями: 


О Кеу1 — счетчик (ключевое поле); 
О Название города — текстовое. поле размером в 30 символов. 
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ЕЕ Справочник городов : : таблица | РИ Г=! РЗ | 


- "Счетчик а аи 
. __. Текстовый ООО 


`Общие _ | подстановка |. | 

Размер поля. и _ Длинное ц целое 

Новые значения _ . _ : — Последовательные. _ 
__ Формат поля. р 

Подпись. _ И и ши. | | 

| Индексированное поле ^ - Да (Совпадения не допускаются) | т Имя поля может состоять из 
| т ОНЛ 64 знаков с учетом . 
": р пробелов. . Для справки по ^. 

именам полей назимите 


|" 
но . -. |. .. клавишу Е. 


Рис. 14.14. Таблица Справочник городов 


Структуру таблицы в программе Ассез$ можно увидеть на рис. 14.14. 

‚Сохраните таблицу под именем Справочник городов. Теперь БД должна состо- 
ять из двух таблиц: 

С справочник; 
С справочник городов. 

Давайте откроем проект, созданный в предыдущем разделе, и модуль 
РасаМоЯи1е0т1Е (рис. 14.15). Добавьте компоненты раказоихгсе (назовем его 
Тоупбоигсе) И АРОТаЪ1е (его назовем Томттаь1е). После этого у компонента 
То\тбоцгсе в СсВОЙСТвВе Расазее укажите таблицу ТоупТаЪ1е. 

Теперь настроим: томпттаЪ1е на отображение справочника городов. Для этого: 


О в свойстве соппесЕ1оп укажите компонент АБОоСоппесЕ1оп1, который указывает 
на нашу базу данных; 


С в свойстве Тар1еМаме укажите таблицу —щЩ1 Справочник городов; 
О установите свойство АсЕ1е В Екие, чтобы активизировать таблицу. 


Войдите в редактор полей таблицы томпттаЪ1е и добавьте все поля. Сделайте 
поле Кеу1 невидимым, потому что это счетчик и пользователю он абсолютно не 
нужен. 

Теперь создадим новую форму для редактирования справочника и сохраним ее 
в модуле под именем ТоутВоокКОптеЕ. Саму форму назовем ТомтВоокгоги. Подклю- 
чите к новой форме модуль ракаМоди1е0т1е, чтобы отсюда можно было получить 
доступ к компонентам для работы с базами данных. Для этого в меню Ее выбери- 
те пункт 05$е ОпИ (использовать модуль), в появившемся окне выберите модуль 
РакаМоЯи1е0п1Е и нажмите ОК. 
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Поместите на форму сетку овскза и в 
СВОЙСТВе Ракабосгсе укажите таблицу Спра- 
вочник городов — расаМоди1е1 .Томтбоигсе. 
Можете все эти действия красиво оформить и 
добавить кнопку ОК для закрытия окна спра- 
вочника. Окно редактора телефонного спра- 
вочника вы можете увидеть на рис. 14.16. Для 
большей красоты добавим на форму еще три 
кнопки Добавить, Сохранить и Удалить для 
добавления, удаления и сохранения строк 
справочника. 

Для события 0пс11ск кнопки Добавить 
пишем следующий код: 


ргоседиге ТТомпВооКЕОга. АЗаВЕтС11 ск 
(Зепаег: ТОБЗес®); 


Бед1п 

РасаМо@\1е1 .ТомтТаЪ]1е.Тпзехт(; 
ОВСг1а1.бееРосиз; 

еп; 


| А "Телефонный справочник 


Г С ЕЕ ТЕЕИН вы 


Рис. 14.15. Добавление модуля 
РабаМоЯ1е0п1 


— 012 Декабрь 200 Да = 
. о 30 Январь 2312г. в 
_0 22 Март 2002г. НН 


м 


Рис. 14.16. Обновленная форма телефонного справочника 


Метод тпзеге таблицы ТоупТаЪ1е добавляет новую строку. Во второй строке 
вызывается метод бееРосиз нашей сетки, чтобы фокус ввода перешел на него. По- 
сле нажатия кнопки Добавить фокус попадает на нее, но после добавления новой 
строки вполне логичным будет перенести фокус на сетку, потому что пользователь 


будет вводить имя города для новой строки. 


Для события опс11ск кнопки Сохранить пишем следующий код: 
ргоседите ТТомтВоокКГогм. бауеВЕпС11ск (Зепаег: ТОБзес®); 


Беа1п 
1ЁЕ ПабаМод1е1 .ТомтТаЪ1е.МоЯ1Е1еа сЪеп 
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РасаМо@и1е1 .ТомпТар1е.Ро5(; 
епЯ; 


Если текущая строка претерпела изменения, то в свойстве мо91Е1ез будет егие, 
иначе Га1зе. Однако если произошли изменения, то их надо сохранить, иначе при 
закрытии окна пользователем данные могут не сохраниться. Для сохранения изме- 
нений используется метод Роз+. | | 

Здесь также можно переносить фокус обратно в сетку, но в данном случае этого 
не сделано. | 

Для события опс11ск кнопки Удалить пишем следующий код: 

ргоседиге ТТомпВоокРохм. Пе] ВепС11ск (5епаег: ТОБЗесе); 

Беч1п 

РасаМо@и1е1 .ТомтТаЪ1е .Пе1еее; 
епа; 


Метод ре1езе удаляет текущую строку из таблицы. 
Все, формирование внешнего вида таблицы Справочник городов закончено. 


Теперь перейдите к главной форме и создайте меню или кнопку (в примере выбра- 
но первое) для вызова справочника городов. 


|-1 Еогпл1.МатМепи1 


Файл Редактирование еще -ыЕ 


Рис. 14.17. Меню 
вызова справочника 
городов 


По событию опСс11ск меню пишем код вызова окна справочника городов: 
ТомтВоокКЕотта. бпомМода1 ; 


Если вы не добавили модуль справочника городов к главной форме и попробуе- 
те сейчас откомпилировать проект, то перед вами появится окно, в котором Реры 
говорит о том, что форма ТомтВоокгохт объявлена в модуле томпВоокИп1е и ваша 
форма не имеет ссылки на него. Вам предлагается добавить ее автоматически. Вы- 
берите Уе$, и модуль будет добавлен автоматически, после этого можно опять 
компилировать проект, не внося никаких изменений. Теперь все должно пройти 
удачно. Запустите проект и проверьте работу программы. 

Запустите программу, вызовите Справочник городов и добавьте туда несколь- 
ко строк. Это будет полезно на будущее, заодно и проверите правильность работы 
программы. 

Теперь у нас есть справочник городов, и мы можем связать его данные с основ- 
ной таблицей. Но перед этим немного улучшим форму. Выделите сетку овсг1а1 
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на главной форме и в свойстве оре1опз отключите возможность редактирования 
данных в сетке — в свойстве адЕа1еЕ1па установите значение га1зе. 

Теперь редактирование данных в сетке невозможно, поэтому мы сделаем для 
этого отдельные окна. В главном меню создайте пункт Редактирование со сле- 
дующими подпунктами: | 


О Добавить запись; 
О Редактировать запись; 
О Удалить запись. 


На форме создана еще панель с кнопками, чтобы к этим командам можно было 
быстро получить доступ, а также назначены командам клавиши быстрого вызова. 

Теперь создадим новую форму, которая будет использоваться для редактирова- 
ния данных каждой записи. Создайте форму и сохраните ее под именем 
Еа1ЕРогтОп1е. Саму же форму назовем Еа1еВесогаЕогт. Теперь измените у формы 
следующие свойства: 


О для Вогаегсеу1е — Ъ551п91е; 
С для Роз1Е1оп — роМа1пЕогиСепеек. 


Этого достаточно, чтобы форма выглядела представительно. 

Дальнейшее оформление зависит от ваших пристрастий. Здесь рассмотрим 
только самое необходимое. Для начала подключите к новой форме модуль с дан- 
ными, потому что нам необходимо будет иметь к ним доступ. Для этого выберите 
из меню ЕШе пункт 05е Опи. В появившемся окне выберите ракаМодл1еци1е и на- 
жмите ОК. 

Теперь посмотрите на вид формы для редактирования данных (рис. 14.18). 

В этом окне у нас несколько компонентов для украшения внешнего вида (кар- 
тинка и панель белого цвета), но это не главное. Вы можете повторять и сделать . 
подобную форму, а можете ограничиться только основными компонентами. Ос- 
новными тут являются — кнопка Сохранить, надписи и компоненты доступа 
к данным, можно также добавить кнопку, по нажатии которой изменения не будут 
сохраняться в базе данных. 

Против надписей Фамилия, Имя, Телефон, е-та! и Дата рождения находятся 
компоненты трвЕа1е с вкладки Эа Сопе`о[5. Эти компоненты представляют со- 
бой простые строки`ввода типа тЕа: к, только они умеют автоматически редактиро- 
вать указанные поля в базе данных. Чтобы компонент видел данные из нужного 
поля, нужно указать у него в свойстве ракабоигсе нужную таблицу 
(РакаМо@41е1 .Расабоигсе1, как мы это делали с сеткой редактирования), а в свой- 
стве ракаЕ1е1а указать поле, которое надо редактировать. Обязательно попробуйте 
сделать это сами, чтобы подробно разобраться с процессом установки полей. 

Для поля Мобильник лучше использовать компонент рвсвесквВох, который по- 
хож на Ссвесквох. У него также надо указать поле в таблице, как и у компонентов 
РВЕЗТЕ. 

Самое интересное — поле Город. Названия городов у нас хранятся в отдельном 
справочнике, а в основной таблице должны храниться только числа — номера 
строк из справочника городов. Таким образом, у нас не будет храниться в каждой 
строке длинное название города, а только число. Допустим, что у вас несколько 
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друзей живет в городе Санкт-Петербург. В этом случае для всех них будет в поле 
Город длинное название. Это лишний расход памяти. Легче создать справочник, 
в котором будет только один раз указано название города, а потом только ссылать- 
° ся на него из основной таблицы. 


[Редактирование данных 


ф амилия И ванов 


Имя 


-_ М Мобильник 

о | РИС. 14,18. Окно 
9 сохранить | Отмена || редактирования 
—— | данных 


Допустим, что у выделенной записи нужно указать город Москва, который идет 
‚под номером 2 (поле Кеу1 для этой строки в справочнике городов равно 2). В этом 
случае в основном справочнике в поле Город нужно указать только цифру 2, а на- 
звание города в любой момент можно найти в справочнике городов по полю Кеу]1. 
Так как оно ‘уникально (это определит счетчик), то проблем не возникнет. 

Чтобы все это реализовать, достаточно поставить компонент рвгоокирСоптЬоВох © 
вкладки Вайа Сопёго[5. Теперь нужно указать у него в свойстве раса5очгсе основ- 
ную таблицу (ракамоди1е1 .Ракабочигсе1), которая будет редактироваться, а в свой- 
стве Ррасаг1е1а указать поле, которое надо редактировать — Город. 

Компонент рвгоокирСотЬоВох выглядит как ниспадающий список (он похож на 
ТсопоВох). В качестве элементов этого списка можно указать содержимое табли- 
цы. В свойстве т1зЕ5оигсе нужно указать таблицу, из которой будут взяты элемен- 
ты для ниспадающего списка. Давайте укажем наш справочник городов — 
РасаМо@и1е1 .Томп5оигсе. В свойстве т1зЕг1е1а укажем поле из этой таблицы, ко- 
торое будет использоваться для заполнения ниспадающего списка — Название 
города. В свойстве КеуЕ1е1а нужно указать поле, значение которого будет вно- 
ситься в указанное поле основной таблицы (поле Кеу1). 


ПРИМЕЧАНИЕ. Если что-то непонятно, то попробуйте перечитать все заново. Если не 
поможет, то подождите немного, скоро мы все увидим на практике. 


Для события опс11ск кнопки'Сохранить напишите следующий код: 
рхосеёиге ТЕЯ1ЕКесогаЕогт. в1ЕВЕп1С11сК (5епаег: ТОБЗесЕ); 
Бед1п | 
1Е РабаМо@а1е1 .ВоокТаю1е.МоЯа1Е1еЯ спеп 
РасаМода1е1 .ВоокТаЪ1е.Роз$%; 
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С1о5е; 
епЯ; 


В первой строке мы проверяем, если таблица была изменена 
(РасаМоди1е1.ВоокТаЪ1е. Моа1Ё1еа равна екие), то принять изменения 
РасаМо@ац1е1 .ВооКкКТаБ1е. Розе. , - 


Для события опс11сК кнопки Отмена напишите одну строку. кода: 
РакаМо1е1. ВоокТаЮ]е. Сапсе1; 


Метод обеспечивает выход ИЗ режима редактирования без внесения изменений 
в таблицу. | 

Теперь перейдите в основную ‘форму и по нажатии пункта меню Добавить 
запись напишите: 

РабаМоам1е1 .ВоокТаф1е. Тпзеге; 

ЕЯ1ЕКесогаЕогт. бНомМода1 ; 


‚ Здесь в первой строке мы вставляем в основной таблице новую строку. Во вто- 
рой строке отображаем окно редактирования данных. По нажатии пункта меню 
Редактировать запись напишите просто код отображения окна редактирования — 
Еа1 КесогаРогта. ЗВомМо@а1. 

° Теперь запустите программу. Создайте новую запись. В поле Город выберите 
какое-нибудь значение из справочника. После нажатия кнопки Сохранить окно 
‚закроется. Посмотрите на сетку. В поле Город новой строки вы можеёте увидеть код 
города из нашего справочника (в примере было число 3). Это значит, что в спра- 
вочнике городов есть запись со значением в поле Кеу1, равным 3, и в поле Назва- 
ние города указано название, которое мы выбрали. Давайте откроем таблицу через 
программу Ассе$$ и посмотрим на ее содержимое (рис. 14.19). 


и — 
_. 3. ‚Ростов-на-Дону _ 


Рис. 14.19. Таблица, 
открытая в Ассе$$ 


Поле с названием города (поле Кеу1) Ростов-на-Дону действительно имеет зна- 
чение 3. Таким образом, в основном справочнике не надо указывать полный текст 
имени города. Достаточно только указать нужный ключ справочника городов, и мы 
в любой момент сможем найти нужное название. | 

` В следующей части мы улучшим пример, а пока попробуйте поэкспериментиро- 
вать с уже созданным примером. Создайте несколько строк и попробуйте отредак- 
тировать их. Обратите внимание, что, когда вы открываете окно редактирования, 
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в компоненте рвьоокарСопьоВох отображается правильное название города для 
указанной записи. 


ПРИМЕЧАНИЕ. На компакт-диске, прилагаемом к книге, в папке \Примеры\Глава 14\Мпк 
вы можете увидеть пример этой программы. 


14.6. Улучшенный пример 
с поисковыми полями 


Прежде чем двигаться дальше, давайте сначала сделаем для нашего примера 
с телефонным справочником обработчик для меню Удалить запись. По этому со- 
бытию нужно вывести запрос на подтверждение удаления, и если ответ будет ут- 
вердительный, то можно удалять. Создайте такой обработчик и напишите в нем 
следующее: 
1Е Арр11сае1оп.МеззааеВох (РСПах ('Вы действительно хотите удалить ' 
+РасаМо@а1е1 .ВооКкТаЪ1е0$0ез1апег.Аз5еи1па), 'Внимание!!!' , 
МВ_ОКСАМСЕГ) =14_ОК ЕБеп 
ПасаМо@о]1е1 .ВоокТаф1е.Пе1есе; 


Здесь мы отображаем сообщение уже знакомой функцией меззазевох. В первом 


параметре (текст сообщения) написан текст "Вы — действительно 
хотите удалить" плюс значение поля Фамилия выделенной строки. — 
РасаМоЯц1е1 .ВоокТаф1ер0$Рез1ачпег.Аз5ет1па. Самое сложное здесь — 


РасаМо4и1е1.ВооКТаЪ1ер$рез19пег.Аз5ех1па. Чтобы понять эту конструкцию, пе- 
рейдите в МОДУЛЬ РасаМоао1е. Здесь щелкните дважды кнопкой мыши по компо- 
ненту ВоокТаб1е, где у нас подключен (ее (6): 1 (6) справочник, и затем по полю 
Фамилия. Посмотрите в объектном инспекторе имя этого поля, оно должно быть 
ВоокТаЪ1е05рез19пег. Геперь ясно? Мы пишем имя модуля данных (расаМоди1е1), 
затем через точку имя поля (ВоокТаЪ1ер50ез19пех) и метод Аз5ег1па, который воз- 
вращает значение поля в виде строки. 

Можете подняться в раздел куре модуля РакаМоди1е1 и убедиться, что внутри 
нашего объекта трасаМоди1е1 есть объявление свойства воокКТаЪ1ер$рез1апех типа 
Туз аебеу1паЕ1е1а. 

Надеюсь, что с первой строкой теперь все понятно. Если нет, то запустите при- 
мер и посмотрите, что произойдет, если попытаться удалить строку. 

Во второй строке мы просто удаляем текущую строку с помощью вызова метода 
Ре1еке таблицы — РаЕаМо41е1 .ВоокТаЪ1е .Пе1еке. 

Теперь пример практически готов. Единственный недостаток — в сетке про- 
смотра данных вместо названия города отображается индекс строки в справочнике. 
Это очень неудобно, поэтому давайте исправим этот недостаток. 

Перейдите в модуль РакаМоди1е1 и выделите компонент вооктаЪ1е. Сделайте 
его неактивным — в свойстве АсЕ1уе установите значение Еа1зе. Теперь дважды 
щелкните мышью по этому компоненту, и перед вами откроется уже знакомый ре- 
дактор полей. Давайте создадим новое поле, которое будет содержать текстовое 
название` города для строк таблицы. Для этого щелкните внутри окна редактора 
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и в появившемся меню выберите пункт № еж Еа@. Перед вами должно открыться 
окно, показанное на рис. 14.20. 


г ‘Нея ореце——————— А = : 
Мате: — Г "бипрольт "Г =] 
| Туре Г Е] Зее: | 


гАеч \уре-- к —— = — С —- ——== м 
о Баз _ О. сасчаеч г рок 


5 пин = и а д я рии р неее нь 1 


. ю оке ини ЕЕ 1: 


.. а ;у Ре: — о | за зан 
: ы ы. 
О ы 


Рис. 14.20. Окно 
создания нового поля 


Создание нового поля возможно только при неактивной таблице, поэтому мы _ 
выставили в свойстве Асе1хуе значение Еа1се. 
Заполните поля этого окна следующим образом: 


В поле Мате введите томп; 
В поле Туре укажите тип 5Ех1та — строка; 
В поле Н@а@Туре выберите ГооКкир — поисковое поле; 


В поле Кеуа@ (ключевое поле) выберите поле Город (это поле основной таб- 
лицы, по значению которого надо будет искать текст в другой таблице); 


О В поле Вайазе надо указать ТомпТаШе — это таблица-справочник городов, где 
нужно искать; 


СО В поле ГоокКир Кеу$ укажите Кеу{Г — это поле в таблице-справочнике, по ко- 
торому надо искать; 


О В поле Вези Ре укажите поле Название города — это поле, текст которого 
будет подставляться. 


Теперь нажмите ОК. 

В окне редактора полей появится новое поле с именем То\’п. В самой базе дан- 
ных такого поля не будет, потому что оно динамическое и существует только в па- 
мяти машины, когда программа запущена. Перетащите его мышью выше (ближе 
к полю Город). 

Снова сделайте таблицу воокТаЪ1е активной и попробуйте теперь запустить про- 
грамму. Посмотрите на поле То\п, и вы увидите теперь там тестовое название города. 

Теперь программа выглядит намного красивее и интереснее. Единственное — 
можно сделать поле Город невидимым, чтобы пользователь не видел эти непонят- 
ные числа, а над полем То\уп написать надпись Город. Для этого дважды щелкните 
по компоненту воокТаБ1е, выделите поле Город и установите в свойстве \1з151е 
значение Еа1зе. Теперь выделите поле То\п и в свойстве р1зр1аугаье1 напишите 
Город (рис. 14.21). 


оо. 
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»# Телефонный справочник 


РОД: 
Ростов-на-Дону 12 Декабрь 2002г. | 
Питер ЗОЯнварь 2312 г. 
_ Москва  _ (22Март 2002 г. 
Ростов-на 


Рис. 14.21. Результат работы программы 


ПРИМЕЧАНИЕ. На компакт-диске, прилагаемом к книге, в папке \Примерь\Г лава 14\Ипк1 
вы можете увидеть пример этой программы. 


14.7. Сортировка 


Наш телефонный справочник уже достаточно хорош. В него можно добавлять . 
новые записи, редактировать или удалять существующие. Но было бы удобней 
научить нашу программу сортировать записи по определенному полю. Допустим, 
что вам надо отсортировать данные по полю Фамилия. Как это сделать? Очень 
просто, для этого существуют индексные поля. | 

В любой базе данных существует понятие индексного поля. Мы пока создавали 
только один индеке — главный, для поля счетчика. Это обязательный индекс и су- 
ществует всегда, но вы можете создавать любое количество дополнительных ин- 
дексов. Но это не значит, что надо все поля базы данных сделать индексными, ведь 
индексирование отнимает дополнительное место на диске, и если переборщить, то 
можно наоборот сделать хуже — снизить быстродействие программы. 

Индексы хороши при поиске данных или сортировке, но при добавлении или 
редактировании записей они отрицательно сказываются на производительности, 
потому что программе приходится заново сортировать индекс. Если индексов не- 
сколько, то проверять и при необходимости обновлять приходится каждый. Поэто- 
му нужно находить золотую середину и создавать только необходимые индексы. 

Какие же поля индексировать? Я советую это делать только с теми полями, по 
которым будет чаще всего происходить поиск. В телефонном справочнике чаще 
ищут по номеру телефона или по фамилии. В домашнем справочнике это делают 
чаще по фамилии. Если у вас будет справочник всего города, то возможно, что 
чаще будут искать по телефону.или даже по адресу. Ну, представьте себе записную 
книжку с телефонами друзей. По каким параметрам вы будете искать номер своего 
друга? Ну, конечно же, по фамилии, ведь вы ее знаете, ‘а номер телефона мо- 
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жете забыть. Вот именно поэтому в нашем справочнике желательно сделать поле 
Фамилия индексным. 

Индексы увеличивают скорость поиска данных и позволяют сортировать все записи. 
Если первое практически невозможно увидеть на небольших примерах этой книги (по- 
тому что количество записей у нас очень маленькое, а для ощущения скорости нужно 
большое количество данных), то сортировку можно ощутить без проблем. | 

Откройте нашу базу данных в программе Ассе$$, выделите таблицу Справоч- 
ник и нажмите кнопку Конструктор. Перед вами откроется окно редактирования 
свойств полей. Здесь выделите поле Фамилия и посмотрите на свойство Индекси- 
рованное поле. Свойство имеет ниспадающий список для выбора нужного пара- 
метра. Здесь доступны три варианта. 


О Нет — поле не индексировано. 


О Да (допускаются совпадения) — поле индексировано и две (или более) записи 
могут иметь одно и то же значение. Это значит, что у вас может быть две запи- 
си, у которых в поле Фамилия указано, например, значение сидоров. Для наше- 
го случая это идеальный вариант, потому что много людей могут иметь одну 
и ту же фамилию. | 


О Да (совпадения не допускаются) — если выбран этот параметр, то в проиндек- 
сированном поле нельзя хранить одинаковое значение в разных записях. База 
данных будет сама следить за уникальность поля. Если выбрать этот параметр, 
то две записи в нашем справочнике не смогут иметь, например, значение Сидо- 
ров. Этот параметр очень удобен, когда вам нужно, чтобы поле было действи- 
тельно уникальным. Такое бывает в офисных приложениях, когда номер доку- 
мента часто должен быть уникальным. 


Давайте сделаем индексными поля: Фамилия, Телефон. У обоих нужно вы- 
брать в свойстве Индексированное поле параметр Да (допускаются совпадения). 

Все, закрываем базу данных и переходим к программированию. Загрузите. 
в Реры пример, который мы написали в прошлой части, чтобы можно было доба- 
вить к нашему справочнику возможность сортировки. | 

Для начала улучшим нашу форму. Для этого добавьте в меню нашей программы 
пункт Сортировка и два его подпункта По фамилии и По телефону (рис. 14.22). 

Для пункта меню По фамилии напишите следующий код: 

РабсаМо@1е1 .ВоокТаф1е. ТпаехР1е1ЧМамез:= 'Фамилия'; 


Для пункта меню По телефону напишите код: 
РасаМо@а1е1 .ВоокТаФ1е. ТпЧехР1е1ЧМамез:= 'Телефон'; 


В обоих случаях мы присваиваем свойству тпдехЕ1е1АМамез таблицы 
воокТаь1е значение поля, по которому нужно сортировать записи. 


ПРИМЕЧАНИЕ. На компакт-диске, прилагаемом к книге, в папке \Примерь\Глава 14\пдех 
вы можете увидеть пример этой программы. 
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Г. Телефонный справочник 


- ‚ По лелефону . ТИ 


Ростов-на-Дону ‚12 Декабр _ 
пе, аон. — 36 Январь 
| _ Москва _ _ — | ‚22 Март 2 
_ Ростовч на- ‘Дону 


Рис. 14.22. Улучшенная форма нашей программы 


14.8. Фильтрация данных 


Наш телефонный справочник достаточно быстро пополняется новыми возмож- 
ностями, но в нем до сих пор нет самого главного — поиска. Представьте себе, что 
у вас в базе данных находятся телефоны ста человек. Как вы будете искать телефон 
определенного человека? А если в базе данных будет тысяча записей? Без возмож- 
ности поиска тут очень тяжело. 

Для поиска в компоненте таротаь1е есть свойство Е11еег. В нем можно указы- 
вать условие, по которому будут отображаться данные. Например, вы можете ука- 
зать там отображение только записей, в которых поле Фамилия содержит значе- 
НИе Сидоров. Но для того, чтобы фильтр заработал, надо еще установить свойство 
Р116егеа нашей таблицы в сгие. После этого можно изменять свойство Е11кех 
и все изменения сразу же будут вступать в силу. 

Свойство Е11+Еег — это строка. В ней нужно писать текст условия в виде: 

Поле [Оператор сравнения] ‘Значение’ ‹ 


Например, если вы хотите отобразить все записи, в которых поле Фамилия 
равно значению Сидоров, То нужно написать: 
АЧоТаЪ1е1 .Е116ех’:='Фамилия=' 'Сидоров'''; 


Обратите внимание, что значение нужно указывать в одинарных кавычках. Но 
так как одинарные кавычки используются в Ое[рЫ! для ограничения строк, то тут 
приходится немного включить соображение. Чтобы внутри строки поставить оди- 
нарную кавычку, ее нужно поставить дважды: 

‘После этого текста будет одинарная кавычка’' это продолжение текста’ 


Именно таким способом мы ставим перед значением одинарную кавычку. После 
значения нам нужно поставить одинарную кавычку и закрыть строку, поэтому мы 
ставим три одинарных кавычки (две для того, чтобы поставить кавычку для значе- 
ния, и одна для конца строки). 
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Если вы не хотите мучиться с такими кавычками, то можете воспользоваться 
функцией оцосеазег. Ей нужно передать строку, а она вернет вам ее в кавычках. 
Таким образом ваш код может упроститься до следующего: 

АЧоТаЪ1е1.Е116ег:='Фамилия='+ Оцобеа5%х (Сидоров); 


Это был пример простейшего условия на равенство. Вы можете использовать 
любые другие операторы сравнения (больше или меньше). Можно даже создавать 
составные операторы сравнения, в которых сравнивается сразу два или более зна- 
чений. Например: 

АоТаЪ1е1.Е1]6ег:='’Фамилия=' 'Сидоров'' ог Телефон=''3326523'''; 


В этом примере происходит поиск всех записей, в которых поле Фамилия рав- 
но значению Сидоров и поле Телефон имеет значение 3326523. Для объ- 
единения двух условий используется оператор ог. Можно также использовать опе- 
ратор логического типа — апа. 


СОВЕТ. При программировании фильтров будьте внимательны к кавычкам. Помните, 
что значения должны выделяться одинарными кавычками и внутри строки для этого 
приходится ставить две одинарных кавычки, а не одну двойную. 


ВНИМАНИЕ. Помните, что если имя поля состоит из двух слов, то его нужно заклю- 
чать между квадратными скобками [ ]. Допустим, что у нас поле Город состоит из двух 


слов — Название города в этом случае фильтр по этому полю будет выглядеть так: 
АаОоТаЪ1е1 .Е115ехг:=’ [Название города]='’'Москва'''; 


Теперь переходим к программированию. Откройте пример из предыдущего раз- 
дела. Сейчас будем добавлять к нему возможность поиска. | 


а Телефонный справочник 


_ Ростов-на-Дону (12 Декабр.. 

_ Питер д... ЗО Январь 
Сидоров = ро Москва ___ 22Март 2 
г серн] ^ й 102 ОНИ _ Ростов: наДом - 


Рис. 14.23. Улучшенная форма нашей программы 


Для начала улучшим нашу форму. Для этого добавьте панель, на которой будет 
располагаться текст "Найти" и строка ввода тказе с именем е1пака1е (рис. 14.23). 
Теперь создайте обработчик события опсвапае для строки ввода. Когда пользова- 
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тель изменил текст в строке ввода, мы должны изменить И фильтр. Напишите 
в этом обработчике следующий код: 
ргоседиге ТГогт1 .Е1пЯЕЯа1ЕСрападе (бепаех: ТОБуесЕ); 
Бед1п | 
1Е Гераев (РаоаЕЯ1е.Техе)>0 ЕБеп 
РасаМоди1е1 .ВоокТаф1е.Е116ехге@: =Етае 
е1зе 
РГабаМодо1е1 .ВоокТаф1е.Е11еегеЯ: =ЁЕа1зе; 


РасаМоЯи1е1 .ВоокТаб1е.Е11еег:='Фамилия> ' ' '+ЁР1п9ЕЯ1е .ТехЕ+''''; 
ета; 


Сначала мы проверяем строку. Если в строке поиска что-то есть, то включаем 
фильтр, иначе его можно отключить, чтобы показать всю таблицу. После этого 
создается условие фильтра: 'Фамилия>' ''+Е1п9ЕЧ1е.Техе+' '''. Здесь используется 
знак больше, чтобы отображать все похожие записи на введенный текст. 


ВНИМАНИЕ. Если установить знак равенства и пользователь введет букву "с", то в 
таблице ничего отображаться не будет, потому что нет такой фамилии. А при знаке: 
"больше" будут отображаться все фамилии, начинающиеся на букву "с". 


ПРИМЕЧАНИЕ. Знак "больше" в базах данных Ассе$$ работает не очень хорошо. М$ 
Ассе$$ хорошо и быстро работает только со знаком равенства (жесткий поиск). Там, 
где поиск должен быть не жестким, мы будем использовать запросы $ЗСЕ, с которыми. 
познакомимся немного позже. 


В У\У!19до\$ в конце фильтра добавляются четыре одинарные кавычки. Почему 
четыре? Да потому что после значения нам надо добавить одну кавычку. Чтобы 
сделать это, надо добавить строку, содержащую кавычку. Поэтому у нас стоят две 
одинарных кавычки, чтобы открыть и закрыть эту строку. Внутри строки мы ста- 
вим эту кавычку, а как вы помните, для этого надо ставить две кавычки, и в резуль- 
тате получится одна. Вот так и получается четыре одинарных кавычки. 

Как уже говорилось, фильтры в АО работают плохо. Но Вер предоставляет 
нам очень хорошую возможность расширить возможности фильтрации и сделать 
их действительно уникальными и мощными. | 

Перейдите в модуль данных (РабаМо91е0т1Е) и создайте для компонента 
ВоокТаЪ1е обработчик события опЕ11ЕегКесога. Он вызывается при включенной 
фильтрации и каждый раз, когда программе надо выяснить, соответствует ли стро- 
ка фильтру. Здесь мы можем самостоятельно управлять логикой фильтрации. На- 
пишите в созданном обработчике следующий код: | 

ргосеаиге ТрасаМоди1е1 .ВоокТаЪ1еЕ11еетгВесога (рабабее: Трасабес; 

хау Ассере: Воо1еап); 
Беач1п 
Ассере:=Еа15е; 
1Е сору (ВоокКТаЪ1ер$Пез1аптег.Аз$Ех1па, 1, ГепаеВ (Еог1 .Е1паЕа1е.Техе)) = 
Рогт1 .Р1паЕа1е.Техе ЕВеп 
‘Ассере:=Етле; 
епа; 
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В качестве второго параметра в обработчик передается булева переменная 
Ассер+. Если мы в нее занесем значение Еа15е, то текущая строка не соответствует 
фильтру. Если екое, то строка соответствует и ее можно отображать. , 

В самом начале мы даем переменной `Ассере ложное значение. После этого про- 
исходит проверка соответствия текущей строки фильтру. Для этого нужно понять, 
что происходит во второй строке. Рассмотрим ее по частям: 

сору (ВооКТаЪ1ер5рез1апехг.Аз5еу1па, 1, Бепаей (РГоуи1 .Е1паЕЯ1е .Техе)) 


Здесь вооктаь1ер$рез1чпег — имя поля с фамилией. Если дважды щелкнуть 
по компоненту воокТаЪ1е и в появившемся редакторе полей посмотреть свойство 
Маме поля Фамилия, то вы должны увидеть именно это имя. Если нет, то вы долж- 
ны подкорректировать код. 

Итак, функция Сору возвращает из строки, указанной в качестве первого пара- 
метра, символы, начиная с позиции, указанной в качестве второго параметра, и ко- 
личество возвращаемых символов ‚равно третьему. параметру. У нас возвращаются 
символы фамилии, начиная с первого, и столько же символов, сколько и в строке 
ввода для фильтра на главной форме. 

Результат мы сравниваем с содержимым строки ввода для фильтра. Если фами- 
лия в текущей строке базы данных начинается с текста, указанного в качестве 
фильтра, то эта строка будет отображаться. 

Запустите пример и убедитесь, что он работает корректно. Вот теперь наш 
фильтр стабилен и отлично работает. Если изначально АРО плохо работает с этим 
механизмом, то теперь проблем нет. Таким образом вы можете сделать фильтра- 
цию любой сложности. Единственный недостаток — медленная скорость обработ- 
ки фильтров. | 

Запросы ОГ, с большими данными работают быстрее. Дело в том, что для ра- 
боты фильтра программе сначала нужно получить все данные, а потом уже на 
стороне клиента произвести проверку. Таким образом, по сети идет слишком 
большое количество данных и на клиента получается лишняя нагрузка. При ис- 
пользовании ЗОГ--запроса клиент направит серверу только маленький текстовый 
запрос с условиями, сервер проверит его и вернет только необходимые данные. 
Если таблица содержит миллион записей, а с помощью ограничений нужно полу- 
чить только одну, то экономия очевидна как для сети, так и для процессора кли- 
ентского компьютера. | 


СОВЕТ. Если у вас слишком большая база, то желательно использовать ЗСЕ- 
запросы. 


Вот так мы сделали простую возможность поиска. Более эффективные возмож- 
ности можно получить, используя язык ЗОГ, — это язык запросов к базам данных. 
Но это отдельная тема, и она требует отдельного рассмотрения. 


ПРИМЕЧАНИЕ. На компакт-диске, прилагаемом к книге, в папке \Примерь\Глава 14\7 ег 
вы можете увидеть пример этой программы. 
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14.9. Язык запросов ЗОЁ 


ЗОГ, переводят на русский как структурированный язык запросов. С по- 
мощью 5ОГ-запросов можно создавать реляционные базы данных и работать с ни- 
ми. Этот язык ‘стал стандартом, поэтому если вы хотите серьезно (а не на уровне 
простых программ) работать с БД, то вы должны хорошо знать этот язык. 

ЗОГ, определяется Американским национальным институтом стандартов и Ме- 
ждународной организацией по стандартизации (ЗО). Несмотря на это, некоторые 
производители баз данных вносят изменения и дополнения в этот язык. Изменения 
эти, как правило, незначительны и основа остается совместимой со стандартом, но 
изменения необходимы. Язык ЗОГ, стандартизирован, и чтобы внести в него улуч- 
шения для наращивания функционала, приходится пройти через семь кругов ада, 
а точнее, через несколько уровней бюрократии, и не факт, что изменения примут. 
Именно поэтому производители баз данных наращивают возможности по собст- 
венной воле, что намного быстрее и не тормозит прогресс. 

Вспомним, что такое реляционная база данных (РБД). Это таблица, в которой 
в качестве столбцов выступают поля данных, а каждая строка хранит данные. 
В каждой таблице должно быть одно уникальное поле, которое однозначно будет 
‚идентифицировать строку. Это поле называется ключевым. Эти поля очень часто 
используются для связывания таблиц или для обеспечения уникальности каждой 
записи. Но даже если таблица не связана, ключевое поле все равно обязательно для 
обеспечения уникальности строки. 

Столбцы в РБД также должны быть уникальными, но в этом случае не обяза- 
тельно числовыми. Их можно называть как угодно, лишь бы было уникально и вам 
понятно, а остальное никого не интересует. 

ОГ, может быть двух типов: интерактивный и вложенный. Первый — это от- 
дельный язык, он сам выполняет запросы и сразу показывает результат работы. 
Второй — это когда ЗОГ-язык вложен в другой, как, например, в С++ или Берм. 

Интерактивный ЗОГ, более близок к стандартному, а во вложенном очень часто 
встречаются отклонения и дополнения. Например, в стандартном ОГ. различаются 
только два типа данных: строки и числа, но некоторые производители добавляют 
свои типы (Рауе, Т1ме, В1паху ИТ. Д.). 

Числа в ЗОГ, делятся на два типа: 

С) целые — 1пЕедех (116); 
О дробные — дес1та1 (9ес). 


Строки ограничены размером в 254 символа. 

В данной книге мы будем рассматривать только основные возможности языка, 
которые могут пригодиться для рассмотрения примеров. Более подробно о языке 
запросов можно прочитать в специализированной литературе, например [3]. 

Давайте посмотрим, как можно направить базе данных простейший ЗОГ-запрос. 
В качестве примера реализуем возможность поиска записей по номеру телефона 
в нашем телефонном справочнике. 

Для отправки. запросов в базе данных используется компонент ТАРООбцеку 
с вкладки АШО палитры компонентов. Работа этого компонента схожа с таблицей 
ТАРОТаБ1е, и у них много схожих полей. В ТАРООчегу вы также должны выбирать 
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строку подключения (свойство соппесЕ1оп$ех1па) или связываться с компонентом 
ТАРОСоппесЕ1оп через свойство СоппесЕ1оп. У запросов даже есть возможность ус- 
тановки фильтра (свойства Е11+кехеа и Е11(ех). Но мы его рассматривать не будем, 
потому что работа с этим фильтром ничем не отличается от фильтра таблиц 
ТАРОТаЪ1е, который мы уже рассматривали (см. разд. 14.5). 

Давайте откроем наш телефонный справочник и дополним его новыми возмож- 
ностями. Откройте модуль данных раеЕаМоду1е, где у нас расположены все компо- 
ненты доступа к базе данных. Добавьте сюда компоненты тАРООчегу (назовем его 
г1паОцегу) И ТРасабоцгсе (назовем его г1пазоигсе). Теперь надо связать эти ком- 
поненты, указав у компонента г1пазбоихсе в свойстве рагабее компонент 
Е1паОчегу. 


ПРИМЕЧАНИЕ. трасабочигсе отвечает за отображение данных из таблиц. Компонент 
ТАРООцегу предназначен для отправки 5$О|-запросов базе данных. Результат запро- 
сов возвращается в виде таблиц, и для отображения результата нам будет необходим 
компонент Трасабоцгсе. Именно поэтому мы их установили на форму и связали ме- 
жду собой, чтобы компонент отображения видел данные, которые надо отображать. 


Теперь выделите компонент 
Е1п9Очегу. Здесь необходимо ука- | 
зать в свойстве соппесЕ1ов наш |2. 
компонент подключения к базе дан- |. 
НЫХ АРОСоппесЕ1о11. Этим мы ука- 
жем компоненту, какой базе будут 
отправляться запросы и через какое 
соединение. 

Теперь напишем сам запрос. Для 
этого дважды щелкните кнопкой 
мыши по свойству ЗОГ.,, и перед ва- 
ми откроется окно редактора запро- Рис. 14.24. Редактор ЗОГ-запросов 
сов (рис. 14.24). 

На рисунке в этом редакторе уже написан простейший запрос (напишите его 
также) — выбор всех строк и всех столбцов из таблицы Справочник базы данных, 
к которой мы подключились: | 

ЗЕГЕСТ * 

ЕКОМ Справочник 


Мы пока только написали запрос, но еще не выполнили его. Для его выполне- 
ния нужно установить свойство АсЕ1уе В екие. Сделайте это. 

Теперь перейдем в главный модуль, где у нас хранится основное окно. Выдели- 
те сетку рвбг19а1, которая у нас отображает данные из таблицы вооктаБ1е. Перей- 
дите в объектный инспектор и измените свойство ракабоиксе на 
РасаМоби1е1 .Е1па$оигсе, чтобы увидеть таблицу результата запроса. 

Посмотрите на результирующую таблицу, она похожа на то, что мы видели при 
работе с компонентом таротаЪ1е, только пока что вы видите все поля (даже те, ко- 
торые мы уже скрыли из виду от пользователя в компоненте воокТаЪ1е) и отобра- 
жение полей не настроено. Но все это можно исправить, если дважды щелкнуть 
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по компоненту Р1п904екгу. Перед вами откроется то же самое окно настройки 
свойств полей. Сейчас мы сделаем это, но сначала снова выделите сетку рвбг1а1 
в главном окне. Перейдите в объектный инспектор и измените свойство расабоигсе 
на РакаМоди1е1 .Расабоигсе1, чтобы все вернуть. 

А вот теперь переходите в модуль данных ракамоди1е. Дважды щелкните кноп- 
кой мыши по компоненту г1пабчегу. В появившемся окне щелкните правой кноп- 
кой мыши и выберите пункт меню А а! Ве $5. В редакторе должны отобразиться 
все поля нашей таблицы. Теперь дважды щелкните кнопкой мыши по компоненту 
ВоокТаЪ1е, чтобы отобразить окно свойств нашей уже настроенной таблицы. Рас- 
положите оба окна рядом друг с другом, чтобы вы могли всегда их видеть. Теперь 
выделяйте первое свойство в редакторе свойств таблицы воокТаЪ1е, запоминайте 
его, переходите в редактор свойств полей запроса и делайте там те же настройки. 

Когда перенесете все свойства (не забудьте создать поисковое поле для поля 
Город), можете снова посмотреть на результат, используя сетку главного окна. 
Только опять верните все назад. Теперь результат вообще не должен отличаться. 

Давайте реализуем непосредственно поиск с помощью нашего 5ОГ-запроса. Для 
этого создадим новую форму, в которой будет отображаться результат, и назовем 
ее г1п9Вези1ЕРогт. Измените у нее следующие свойства: 

О сарЕезоп — измените на Результат поиска; 


С Роз1Е1оп — установите в роМа1пРогиСепеех, чтобы наше окно отображалось 
по центру главного окна. 


Чтобы окно видело таблицы, к нему надо подключить модуль данных — 
РасаМоди1е0п1е. Для этого используйте уже знакомое меню ЕЙе | 05е пи. Теперь 
бросьте на форму сетку овск1а с вкладки Эайа Соп@`о]$ палитры компонентов и 
растяните ее по всей форме. Перейдите в объектный инспектор и измените свойство 
Расабоигсе на РасаМоди1е1 .Е1п95оигсе, чтобы увидеть в сетке результат запроса. 

Все, можно сохранять форму под именем Е1пакезо1Е0п1 6. 

Теперь перейдите в главную форму и на панели поиска добавьте надпись и строку 
ввода для поиска по телефону. Самой последней добавьте кнопку, по нажатии ко- 
торой будет запускаться поиск. На рис. 14.25 вы можете видеть улучшенное глав- 
ное окно нашей программы. 

Для события опс11ск кнопки Найти пишем следующий код: _ 

ргоседиге ТМа1пРоги.Е1пЯВиевопС11ск (бепаег: ТОБ)есе); 

Ъедч1п 

ПРасаМоЯи1е1 .Е1лпабиегу. Асе1хе: =Ёа15зе; 

ГасаМо@1е1 .Е1пабиехгу. $01 .С1еаг; 

РасаМоди1е1 .Е1пЯОцегу. $0 .АЯа ('5ЗЕЦБЕСТ *'); 

ПабаМо@и1е1 .Р1паОцегу. $О0Г..АЗЯА ('ЕКОМ Справочник'); 

ПасаМо@и1е1 .Р1лпЯОцегу. ОГ .Ада ('МНЕВЕ Телефон ПЦТКЕ 
'''+рР1раТте1ерНопеЕа1е.Техе+''''); 

ПРасаМо@1е1 .Е1лиЯОчегу.АсЕ1уе: =Егое; 


Е1паВеза1еЕотта. $ВомМоЧа1 ; 


ева; 
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и Телефонный справочник 


_ РостовнаДон  — 

Пигер, О ‚2 
. Москва — о 
_ Рестовьна-Дону | 


Рис. 14.25. Улучшенная панель поиска 


В первой строке кода мы делаем компонент запроса неактивным. После этого 
надо заполнить свойство зо запросом на поиск данных. Это свойство имеет уже 
знакомый тип т5Ех1паз, который мы использовали при работе с элементами спи- 
ска ТГ1зЕВох, ТСомЬоВох И др. Но прежде чем заполнять новыми значениями, 
нужно очистить свойство от старого запроса, который мог остаться после по- 
следнего вызова (если пользователь уже нажимал кнопку Найти, то там будет 
старый запрос, который при следующем нажатии надо очистить). Для очистки 
вызываем метод с1еах. 

Далее идет заполнение свойства зог, текстом запроса. Нам нужно внести сле- 
дующий запрос: 

ЗЕБЕСТ * 

РЕКОМ Справочник 

МНЕВЕ Телефон ШТКЕ '''чрызателервопева: к. Техе+'''' 


Здесь написано примерно следующее — выбрать все поля из таблицы Справочник, 
где поле Телефон равно указанному в компоненте Е1пате1ерпопека1 * тексту. 


ВНИМАНИЕ. Обратите внимание, что параметр, с которым происходит сравнение 
(текст из Е1патТе1ерпопеЕа1*), должен быть заключен в кавычки. Поэтому, как и при 
работе с фильтром, нам приходится использовать множество одинарных кавычек. 


Как только текст запроса занесен в свойство ЗОГ, его можно выполнять. Для 
этого делаем компонент активным. Ну и чтобы отобразить результат, показывается 
ОКНО ЕР1паВезо1 Е Рогм. 

Для выполнения запроса чаще всего достаточно сделать компонент Аробчеку 
активным. Это прекрасно работает, если вы запрашиваете данные из таблицы базы 
данных. Но если в запросе удаляются строки или изменяется структура таблицы 
(в запросе есть такие операторы, как ТМЗЕВТ, ОРРАТЕ, РЕЬЕТЕ ИЛИ СВЕАТЕ ТАВГЕ), 
необходимо вызывать метод Ехес5от, компонента Аробчекгу. | | 

Как определить, когда достаточно делать компонент активным, а когда нужно 
выполнять © ПОМОЩЬЮ метода Ехесзог? Все очень просто — если запрос возвращает 
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данные, то достаточно активировать компонент, а если изменяет, то запрос нужно 
ВЫПОЛНЯТЬ С ПОМОЩЬЮ Ехес50\. 


ПРИМЕЧАНИЕ. На компакт-диске, прилагаемом к книге, в папке \Примерь\Глава 14\$С%Е1 
вы можете увидеть пример этой программы. 


В принципе, пример готов и на этом можно было бы остановиться. Однако рас- 
смотрим еще один вариант использования динамических запросов. Что понимается 
под словом динамический? Если мы просто вписали запрос в свойство 50т- 
компонента АРОбцегу и в течение всей программы его не изменяем, то такой запрос 
можно назвать статическим. Но если в течение выполнения программы надо изме- 
‚ нять текст запроса, то его можно назвать динамическим. 

При поиске записей нам приходится изменять запрос, потому что каждый раз. 
используется разный параметр, который необходимо найти. Но зачем же каждый 
раз изменять весь запрос, когда он не меняется? Не легче ли внести в запрос пере- 
менную и изменять только ее? Легче и намного эффективнее, поэтому давайте под- 

корректируем наш пример. 
_ Выделите компонент Е1паоцегу и дважды щелкните по свойству 50т.. В редак- 
торе запроса введите следующий запрос: 

ЗЕБЕСТ * 

ЕКОМ Справочник 

ИНЕВЕ Телефон ГТКЕ :Те1ерропе 


В принципе, здесь написан практически тот же запрос, что мы уже использова- 
ли. Единственная разница — вместо параметра Е1пате1ернопеЕЯ1е.ТехЕ стоит 
:Те1ерпопе. Что это такое? Это переменная, о чем говорит двоеточие в начале име- 
ни. Переменная в 5ОГ.-запросе в Ое]р! оформляется так: 

:ИмяПеременной | 


Закройте окно редактора запроса и дважды щелкните по 
СВОЙСТВУ Рагащесехз. Перед вами откроется окно редактора 
параметров (рис. 14.26). Как видите, описанный в запросе 
параметр автоматически попадает сюда. Выделите пара- 
метр Те1ерпопе и посмотрите на его свойства в объектном 
‚инспекторе. | | ._ 

В свойстве ракаТуре вы должны указать тип переменной. 
В нашем случае будет строка с номером телефона, поэтому 
выберите из списка тип ЕЕЗЕх1па, что соответствует строке. 
В свойстве \а1ле вы можете указать значение по умолчанию. 
Попробуйте указать там любой номер телефона из вашей ба- 
зы и сделать компонент г1паоцегу активным. Теперь от- Рис. 14.26. Редактор 
кройте окно, которое должно отображать результат поиска, параметров 
и посмотрите на сетку, в которой уже отображается резуль- 
тат поиска. . 

Ну и, наконец, изменим обработчик события кнопки Найти. Там мы полностью 
формировали запрос, но теперь этого не надо делать. Достаточно только изменить 
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значение параметра. Для этого удалите старый код обработчика и напишите сле- 
дующий: — д 
ГакаМоди1е1 .Е1п9Оцегу.АсЕ1уе: =Еа1зе; о 
РабаМоаи1е1 .Р1п9Оцегу. Рагамееетх$ .РагатВуМаме ('Те1ерпопе') .Уа]ме: = 
'Е1лпаТе]1ерНопеЕа1е.Техе; 
РабаМоЯц1е1 .Е1п9Очехку.Асе1уе: =Ехое; 


Е1паВеза1 Рона. бпомМоаа1; 


В самом начале мы также делаем компонент запроса неактивным. После этого 
надо изменить значение параметра, для чего используем конструкцию 
РабаМоа1е1 .Е1пЯ0цегу.Рагатееетз. рататвумате ( Те1ерпопе') .Уа1че. Сложно? 
Зато удобно. | 

Все параметры хранятся в свойстве Рагащесегз компонента запроса. В этом 
свойстве, чтобы найти нужный параметр, используем метод РагашВуМапе. В качест- 
ве единственного параметра этому методу нужно передать имя нашего параметра. 
В свойстве уа1ие мы записываем значение для найденного параметра. 

После этого запрос можно делать активным, чтобы он выполнился, и мы увидели 
результат его работы: Такая работа с динамическими запросами намного легче, осо- 
бенно, если запросы большие, а изменяется только какое-то значение. Проще ИСПОЛЬ- 
зовать переменную. Это будет лучше и для программы, и для базы данных. Серверы 
БД перед выполнением нового запроса производят его компиляцию, что отнимает 
время. Если в запросе изменилось хотя бы ОДНО ЧИСЛО, будет происходить компиля- 
ЦИЯ. При использовании переменных запрос не изменяется, потому что изменилось 
только значение переменной и лишних затрат на перекомпиляцию не будет. 


ПРИМЕЧАНИЕ. На компакт-диске, прилагаемом к книге, в папке \Примеры\Г ле лава 14\$ 011 
вы можете увидеть пример этой программы. 


На этом можно закончить разговор про запросы. Осталось лишь добавить пару 
замечаний. Как уже говорилось, компонент АроОбцекгу очень похож на аАроТаЪ1е. 
В них очень много общего. Поэтому часто используют в качестве основного досту- 
па к данным именно Аробчеку. В нашем случае можно было поступить так же, по- 
тому что основное предназначение телефонного справочника — поиск необходи- 
мой информации. А вот дополнительные справочники (как, например, справочник 
городов) можно реализовывать в виде таблицы аАротаь1е. 

Компонент аАробцегу имеет все методы, необходимые для полноценной работы 
с базой данных, такие как ТпзегЕ, Бе1есе, Еа1 Е, Розе, Е1х5Е, Мехе, Ргех, Газе ИТ. д., 
которые мы рассматривали для компонента дАрРотТаЬ1е. 


14.10. Связанные таблицы 


Вы, наверное, можете уже сказать, что у нас получился полноценный телефон- 
ный справочник. В него уже можно неё только заносить данные, редактировать, 
удалять, но и искать по разным параметрам. Мы получили достаточно информа- 
ции, чтобы можно было написать достаточно сложную программу для работы 
с базой данных. Но пока еще не все так просто. | 
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Теперь представьте себе ситуацию, когда у одного человека есть два телефона. 
Один из телефонов может быть простым, а другой может быть сотовым. Как вне- 
сти такую информацию в нашу базу? Нужно внести две записи, в которых поля 
Фамилия, Имя, Город, е-тай и Дата рождения будут одинаковыми. Но это же 
неудобно и сразу заметно, что идет лишний расход места на диске для хранения 
двух практически одинаковых строк. 

Такая ситуация нарушает рациональность хранения информации. Мы уже зна-' 
ем, что строки таблицы должны хранить как можно меньше одинаковой информа- 
ции. Именно поэтому мы убрали поле Город из таблицы в отдельный справочник, 
чтобы сэкономить место на диске и увеличить эффективность нашей базы данных. 
Но как поступить в данном случае, когда фамилию, имя и другие поля убирать 
в справочник нет смысла, да и телефоны держать в справочнике нерационально? 
Очень просто. В этом случае ‘нам помогут связанные таблицы. В них структура свя- 
зи схожа с той, что мы использовали при подключении справочника, но только от- 
ношение немного другое. В принципе, города тоже можно реализовать в виде свя- 
занных таблиц. 

В одной таблице надо хранить следующие данные полей: Фамилия, Имя, 
Город, е-тай и Дата. В другой таблице будут: Телефон и Мобильник. Обе табли- 
цы будут связаны между собой, как показано на рис. 14.27. 


Справочник Телефоны 


Кеу1 Кеу1 
Фамилия ИпККеу 


Имя Телефон 
е-тпай | Мобильник 
Город 

Дата 


Рис. 14.27. Схема данных 


Здесь показаны две таблицы. В таблице Справочник вы видите все описанные ' 
поля общих сведений о владельце телефона. Во второй таблице Телефоны у нас 
четыре поля: счетчик Кеу1, ТлаККеу, Телефон ‘и Мобильник. Поля Телефон 
(строковое поле, хранящее реальный номер телефона) и Мобильник (логическое 
поле) выполняют ту же роль, что и раньше (одноименные поля в основной таблице 
Справочник). В основной таблице теперь этих полей нет. 

Что же такое ГТлиККеу и почему между ним и полем Кеу1 таблицы Справочник 
проведена линия связи? Кеу1 — уникальное поле, по которому мы точно можем его 
найти. ГлиККеу1 — связующее поле, которое будет хранить ссылки на поле Кеу1. 
Например, взгляните на таблицы, показанные на рис. 14.28. 

В верхней части рисунка показана таблица Справочник, а внизу таблица Телефоны. 
Если посмотреть на данные, то поле Кеу1 постоянно увеличивается на единицу, потому 
что это счетчик. Теперь давайте посмотрим на этом примере, как происходит связь че- 
рез поля Кеу1 таблицы Справочник и ТлаККеу таблицы Телефоны. 


14 Зак. 1273 
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_  З.Иванов _ |Алексей № 22.03.2002] 
_ 4 Смирнов Андрей ПЗ 


22 о | 
(310 


Рис. 14.28. Схема данных 


В верхней таблице у нас первая запись принадлежит Иванову Сергею. Во второй 
таблице ищем записи, у которых в поле ик стоит цифра 1. Такая запись только 
одна, и она первая. | 

Вторая запись в верхней таблице принадлежит Петрову Ивану. Смотрим в ниж- 
ней таблице записи, у которых в поле ГАпККеу находится число 2. Таких записей 
две (2-я и 3-я строки), значит, у Петрова есть два телефона. | 

Третья запись в верхней таблице принадлежит Иванову Алексею. Ищем в нижней 
таблице записи с цифрой 3 в поле ГлюК. Таких записей опять 2, значит, иу Алексея 
тоже есть два телефона. 

Таким образом, мы связываем две таблицы с помощью ключей. Когда мы созда- 
вали поисковые поля, у нас получалась связь, чем-то похожая на эту, только тогда 
главная таблица содержала поле Город, которое связывалась под главный КЛЮЧ 
справочника городов. 

На словах все рассмотрено, пора сделать реальную программу. Переходим 
к нашему примеру. Для начала нужно открыть БД в Ассе$$ и отредактировать поля 
таблицы Справочник, а именно убрать поля Телефон и Мобильник. . 

Теперь создайте новую таблицу в режиме конструктора со следующими полями: 


С Кеу{Тт — счетчик, ключевое поле; 


О МиакКеу — числовое поле, в свойстве (Индексированное поле) укажите Да 
(Допускаются совпадения); 
(0 Телефон — текстовое, размер 10; 
О Мобильник — логическое. 
Сохраните таблицу под именем Телефоны. | 
Теперь запускаем Деры. Откройте модуль с компонентами для доступа к дан- 
ным и дважды щелкните по компоненту воокТаЪ1е. В редакторе полей выделите 
поле Телефон., Удалите его при помощи клавиши <Ое|>. Потом удалите поле 
Мобильник, потому что мы удалили эти поля из таблицы. Удалите также эти же 
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поля из компонента г1паоцегу. Еще здесь надо удалить поле Кеу1 (это потому, 
что запрос на поиск будет проходить сразу на две таблицы, и в обоих есть поле 
с именем Кеу1). Потом вы увидите, почему мы удалили ключевое поле. А пока 
помните, что поиск у нас не работает, потому что ЗОГ-запрос сейчас неправиль- 
ный. Чуть позже мы исправим его. | 

Теперь добавьте сюда компоненты Расабоихсе (назовем его Те1ерпопбочкгсе) 
И АРОТаЪ1е (назовем его Те1ернопТаЪ1е) для доступа к таблице Телефоны. Наве- 
дите свойство Рраксабоихсе компонента Те1ервоп5оигсе на Те1ербопТаЪ1е. 

Теперь установите следующие свойства компонента Те1ернопТаЪ1е: 
С] соппесЕ1оп — укажите здесь наш компонент присоединения к базе данных 

АРОбоппесЕ1оп1; 


ТаБ1емаме — здесь укажите имя таблицы — Телефоны; 
АсЕ1уе — установите в гие, чтобы открыть таблицу; 


ооо 


Мазсег5оцгсе — выберите здесь из ниспадающего списка Воок5оигсе (этим вы 
указываете главную таблицу для таблицы телефонов); | 


О мазекехЕ1е14з — здесь мы должны указать связующие поля. 


Для указания связующего поля 
щелкните по нему дважды, и перед 
вами откроется окно, показанное на 
рис. 14.29. В списке Вей Еа9$ (по- 
ля подчиненной базы) выберите поле 
Кеу1, а в списке Маег Е1е4$ (поля 
главной базы) выберите поле ГлиККеу. 
Нажмите кнопку АЗ, и в списке 
ошеЧ Е1е4$ (связанные поля) поя- || 
вится строка, отображающая выделен- || Зое её: _. 

> “ |] ЦикКеу -> Кеу1 
ную связь. Закройте окно кнопкой ОК, || 
чтобы сохранить указанную связь. 

Посмотрите теперь в объектном ин- 
спекторе на свойство ТпдехЕ1е1ЯМамез. 
Как видите, там появилось имя поля 
ГикККеу — поле, через которое про- Рис. 14.29. Окно создания связей между 
исходит связь. В связанных таблицах главной и подчиненной таблицей 
нельзя использовать это поле для 
обеспечения сортировки, иначе нару- 
шится связь. = 

Теперь дважды щелкните по компоненту те1ернопТаЪ1е, чтобы увидеть окно 
редактирования свойств полей. Здесь вам надо добавить поля, чтобы вы могли об- 
ращаться к ним потом по именам, и спрятать первые два поля (ключевые поля, ко- 
торые не несут пользователю ‘полезной информации). 

Наконец можно переходить к программированию или почти к программирова- 
нию. Откройте главную форму и добавьте сюда еще одну сетку рвск1а. В примере 
она расположена по правому краю окна, как показано на рис. 14.30. У сетки нужно 
изменить ТОЛЬКО СВОЙСТВО РасаЗоигсе, указав там нашу таблицу телефонов 
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РасаМо@и1е1 .Те1ерЬопбоигсе. Может, вы уже заметили — еще устанавливается 
_ СВОЙСТВО Вогдехг5еу1е В ЬзМопе. На мой взгляд, так красивее смотрится таблица. 


7: Телефонный справочник 
Файл _ Редактирование _ Орвочики: „Сортировка _ Помощь ^ 


аа“ 


Фачиия [ _ Телефон 


Имя ^ 
Иваюв Сергей’ =“ ИА > 2555555 ‘Ла  _ 
. Петров Иван -. 

Иванов 9 р ксей И | —_ 


[ 
р. 
Смирноь —дрей_ 


Рис. 14.30. Улучшенная главная форма программы 


В принципе, пример готов к запуску. Вы можете выбирать в левой сетке любого 
человека, а в правой сетке можно вносить любое количество телефонов для вы- 
бранной записи. Для вставки новой записи можно использовать клавишу <Гп$>, для 
удаления — сочетание клавиш <Си]>+<Ое]>. Чтобы сохранить изменения, нужно 
курсором перейти на другую запись. Отменить редактирование записи (если изме- 
нения еще не приняты) — клавиша <Е5с>. 

Вообще, на счет сохранения изменений можно сказать следующее. Пользовате- 
ли очень часто забывают или даже не знают о том, что для запоминания введенных 
изменений надо перейти на другую запись. Именно поэтому по событию опс1озе 
для главной формы можно писать следующий код для всех таблиц программы: 

1Е таБЛе1.Мод1Е1еа КВеп _ 

ТаЪ1е1.РозЕ; . 


Здесь проверяется, если во время закрытия программы таблица таЪ1е1 измене- 
на, то изменения запоминаются. 

Еще ОДИН способ следить за изменениями — устанавливать в сетках рВсг1а 
в свойстве Оре1опз параметр ЯаСапсе1ОпЕх1 Е В Еа1зе. А лучше использовать сразу 
оба этих способа. | 

Теперь давайте скорректируем наш запрос для поиска по номеру телефона. От- 
_ кройте модуль данных и введите в компонент г1пабцегу следующий запрос: 
ЗЕШБЕСТ * 
ЕКОМ Справочник, Телефоны 
МНЕВЕ Телефон .ТКЕ :Те1ерпопе 

АМО Справочник .Кеу1=Телефоны.ГликККеу 
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Здесь мы ‘уже выбираем все поля из двух таблиц, где есть записи с указанным 
значением телефона. К тому же здесь указана связь между таблицами. Если вы 
прочитали описание ЭОГ,, которое прилагается на компакт-диске к данной книге, 
то с пониманием этого запроса проблем не будет. 

Закройте редактор ЭОГ-запроса и дважды щелкните по компоненту Е1пдОчекху. 
В редакторе свойств полей щелкните правой кнопкой мыши и выберите пункт А@9 
АП Ее $5. Таким образом в редактор добавляются все новые поля, которых в нем 
не было (это поля из таблицы Телефоны и ключевое поле таблицы Справочник). 
Обратите внимание, что теперь нет поля Кеу1. У нас две таблицы и в обеих есть 
поле Кеу1, поэтому для их различия названия полей изменены на следующие: 

Имя Таблицы . Имя поля 


Спрячьте ключевые поля, потому что пользователь не должен их видеть, и от-. 
сортируйте все так, чтобы удобно’было работать. Попробуйте запустить программу 
и посмотреть на результат ее работы. Несмотря на то, что данные о телефонах хра- 
нятся в трех таблицах, мы их получаем от $ОГ.-запроса в виде одной. 

Обратите внимание, что в окне результата поиска можно редактировать дан- 
ные, и они будут правильно отображены в своих таблицах. Попробуйте изменить 
какое-нибудь поле. Когда закроете окно результата поиска, вы ничего не увиди- 
те, потому что в сетке главной формы, данные нужно обновить методом веЁгкезн. 
Таким образом, чтобы увидеть изменения, нужно закрыть. программу и открыть 
ее снова. 

Для решения этой проблемы нужно подкорректировать обработчик события на 
нажатие кнопки Найти. Допишите в конце (после показа окна результата) сле- 
дующий код: 

РафсаМо@о1е1 .ВоокТаЪ]1е. ВеЁгезь; 

РасаМо@о1е1 .Те1ерпопТаф1е.КеЁгезп;. 


Кстати, в нашей программе можно смело удалять сортировку, потому что 
использовать ве в том виде, в котором мы ее написали, нельзя. Мы сортировали 
с помощью индекса, а в связанных таблицах индекс выполняет роль связей двух 
таблиц. Если изменить значение индексного поля, то нарушится связь между таб- 
лицами. | 

Но можно воспользоваться свойством $охЕ таблицы. Единственное, что мы не 
сможем сделать, это сортировать по телефону, потому что он находится в другой 
таблице. Но сможем упорядочить записи по любому полю главной таблицы. Для 
пункта меню Сортировка | По фамилии напишите следующий код: 

РасаМоди1е1 .ВоокТар1е.5оге:='Фамилия АЗС '; 


Пункт меню По телефону можно убирать, а вместо него давайте сделаем сорти- 
ровку по городу. В этом случае для соответствующего пункта меню напишите сле- 
дующий код: 

РаЕаМо@1е1 .ВоокТаб1е.5огЕ:='Город А$С'; 

Программу можно считать законченной, если бы не ‘одно "но" — нужно скор- 
ректировать окно редактирования данных. У нас изменилась главная таблица, зна- 
чит, и это окно должно измениться. Попробуйте сделать это сами, потому что все 
необходимые знания у вас уже есть. Если что-нибудь будет непонятно, вы всегда 
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сможете обратиться к исходным кодам программ на компакт-диске, прилагаемом 
к данной книге. 


ПРИМЕЧАНИЕ. На компакт-диске, прилагаемом к книге, в папке \Примеры\Глава 14\ 
ЧикТаЫе$ вы можете увидеть пример этой программы. 


14.11. Вычисляемые поля 


Допустим, что у вас есть база данных со следующими полями: Наименование, 
Кол-во, Цена. А почему "допустим"? Давайте создадим новую базу данных, в ко- 
торой будет таблица с такими полями (рис. 14.31). Сохраните эту таблицу под име- 
нем Товары. В ней мы будем хранить наименование покупки, количество и цену. 


е Товары: таблица 


г: Иня поля может. 
:]. состоять из 64 знаков ыы 
с сучетом пробелов». - 
: ‚ ДЛЯ. справки“ по -: 
именам полей. нажмите. . 
р клавишу | г. ры 


Рис. 14.31. Таблица Товары новой базы данных 


Цена в таблице будет указываться за один товар, т. е. за штуку, килограмм или 
метр. Чтобы узнать общую стоимость товара, надо цену за единицу умножить 
на количество товара. При этом итог должен моментально реагировать на любые 
изменения колонок Кол-во и Цена. На первый взгляд задача достаточно сложная, 
но в программировании она проста, как никогда. | 

Создайте новый проект в Рерш и сразу добавьте в него модуль ракамодм1е. 
В этот модуль поместите компоненты АроСоппесе1оп (для соединения с базой дан- 
ных), Расабоитсе (для возможности отображения данных из таблицы) и АРОТаь]1е 
(для соединения с таблицей). На рис. 14.32 показано окно расаМоду1е. Подключи- 
тесь к новой базе данных с помощью компонента АРОСоппес®1оп1. 
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У раказоигсе1 в свойстве раказее ука- |ИтИИИ 
жите таблицу АРОТаЪ1е1. В таблице АротаЪ1е1 | —+ 
в свойстве СоппесЕ1оп укажите компонент | о— кх 
АРОСоппесе1оп1, а в свойстве таБ1еМаще нуж- || ^70°%”®4юМ — Омафошо 
но указать таблицу Товары. После этого 
можно делать таблицу активной (в свойстве 
Асе1уе нужно указать ехое). 

Теперь щелкните дважды по компоненту 
АРОТаЪ1е1 и в появившемся окне редактора 
свойств добавьте все поля таблицы. Для нача- == рис 14.32. Окно бааМодие 
ла здесь надо сделать невидимым ключевое | 
поле. Потом нужно установить значения по 
умолчанию для полей Кол-во и Цена. Эти поля будут участвовать в математиче- 
ских расчетах, поэтому в них обязательно должны быть какие-нибудь значения. 
Если в одном из полей не будет данных, то программа во время расчетов выдаст 
ошибку. Пусть для поля Кол-во в свойстве реЁап1ЕЕхргезз{оп (значение по умол- 
чанию) стоит значение единицы, а для поля Цена в том же свойстве — ноль. 

Теперь создадим новое поле, которое будет хранить итог расчетов. Но прежде 
чем это делать, нужно сделать таблицу неактивной. Как вы помните, при создании 
поисковых полей было предупреждение, что новое поле можно создавать только 
при неактивной таблице. Щелкните правой кнопкой в окне редактора свойств 
и выберите пункт №ем Е а. В окне свойств нового поля заполните следующие поля: 


С Мате (имя нового поля) — назовем поле Зит; 


1859] 
АБОТаЫе1 


О Туре (тип поля) — у нас будет числовая сумма, поэтому выберите тип тпеедег; 


О Е@@Я Туре (тип поля) — выбирайте са1си1асеа, чтобы создать вычисляе- 
мое поле. 


Как только поле создано, таблицу снова можно делать активной. Теперь выде- 
лите компонент аротаЪ1е1 и создайте обработчик события опСса1сЕ1е1аз. Это со- 
бытие вызывается каждый раз, когда надо пересчитать вычисляемые поля. Оно бу- 
дет вызываться для всех видимых пользователю записей. В этом обработчике 
напишите следующее: | | 

ргоседиге ТракаМод\о1е1 .АГОТаЪ1е1Са1сЕ1е1@$ (рака$ее: ТРафабек); 

Бед1п 

АПГОТа1е1$иом.\а]ле : =АПОТаЪ1е105Пез1апег2 .АзТиеедег* 
АПГОТаЪ1е10$0ез1отег3 .АзТпеедег; 
епа; 


Прежде чем разбираться с этим кодом, откройте окно редактора свойств полей 
таблицы АРОТаЪ1е1 и посмотрите имена (свойство Мате) полей Кол-во, Цена 
и ит. Это АРОТаЪ1е1050ез1дпег2, АРОТаЪ1е10$рез1апех3 И АРОТаЪ1е1$им соответ- 
ственно. С помощью этих имен мы можем обращаться к значениям, находящимся 
в полях. Надо только написать имя поля и вызвать один из его методов для преобра- 
зования значения в нужный формат. Вам доступны следующие. методы полей: 


О Азтпеедег — получить значение, хранящееся в данном поле в виде числа; 
С Азракет1ие — получить значение в виде объекта тдакет1те; . 
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С] Азвоо1еап — получить значение в виде булева значения; 

0] Азсигхепсу — получить значение в виде цены; | 
О] АзЕ1оас — получить значение в виде вещественного значения; . 
О] Аз5ег1па — получить значение в виде строки; 


О АзУаг1апЕ — получить значение в виде типа Уаг1апе. 


Последний — это универсальный тип, который может принимать любые значе- 
ния, хоть число, хоть строку, в общем, любые доступные типы. 

Теперь взгляните на код, и сразу же станет все понятно. Здесь мы записываем 
В СВОЙСТВО Уа1ие ПОЛЯ АРОТаЪ1е15им результат перемножения значений полей 
Цена и Кол-во. Значения полей мы получаем как целые числа — Азтпеедег. Если 
у вас цены или количества могут быть вещественными, то значения полей нужно 
воспринимать как АзрочЬ1е. | | 

Теперь переходим в главное окно нашей программы. Подключите к нему мо-_ 
ДУЛЬ РасаМоди1е (меню ЕЙе | О5е Опй) и установите на форму одну сетку овбг19. 
В свойстве расабоцксе сетки выберите таблицу расамоди]е1 .Расабоигсе]. 

Все. Программа готова. Запустите ее и попробуйте ввести в базу несколько 
полей. На рис. 14.33 вы можете увидеть окно результата работы рассмотренного 
примера. | 

Кстати, поле итога не должно изменяться пользователем вручную, потому что 
оно вычисляемое. Именно поэтому вы не сможете туда ввести никакого значения. 
Реры просто блокирует любые такие попытки, хотя поле и не имеет признака 
"только для чтения" (кеаЯоп1у). 


ПРИМЕЧАНИЕ. На компакт-диске, прилагаемом к книге, в папке \Примеры\Глава 14\Соит! 
вы можете увидеть пример этой программы. 


«|! Справочник товаров 


` |Наименование. —` 


Рис. 14.33. Результат работы программы 
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14.12. Цветные сетки ОВСпа 


Много раз встречается ситуация, когда возникает потребность в выделении не- 
которых записей каким-нибудь цветом. Это действительно удобно, да и в програм- 
мировании не очень сложно. Сейчас рассмотрим, как это делается. 

Откройте базу данных из разд. 14.1] и добавьте туда поле Со]ог. Это поле 
должно иметь текстовый тип, а размер поля достаточно установить длиной 15 сим-. 
ВОЛОВ. 

Запустите Оеры. Загрузите наш пример и в модуле данных дважды щелкните 
по компоненту АРОТаЪ1е1. Выберите пункт меню А994 АЙ Е 5$. В редактор будут 
загружены новые поля, точнее сказать, одно поле — Соог. Сделайте его сразу же 
невидимым, потому что пользователю не надо видеть его текст, его интересует 
цвет строки. | 

Перейдите в главное окно программы. Добавьте компонент РорирМепи (всплы- 
вающее меню). Щелкните по нему дважды, чтобы открыть редактор меню. Создай- 

те в нем следующие пункты: 


О Черный; _ О Желтый; 
С Красный; О Синий; 
О Зеленый; О Пурпурный. 


Имена пунктов меню должны идти именно в таком порядке, а в свойстве Таз 
всех этих пунктов должен находиться порядковый номер пункта. Нумеровать цвета 
надо с О и до 5. Это значит, что у пункта меню Желтый в свойстве Таз будет нахо- 
диться число 3, ау пункта Пурпурный значение 5. 

Теперь выделите все эти пункты меню (щелкните кнопкой мыши на первом 
пункте и, ‘удерживая клавишу <ЗМИ>, щелкните на последнем). Перейдите на 
вкладку Еуепё$ объектного инспектора и создайте обработчик события опс11ск. 
Будет создана процедура-обработчик события, которая назначается всем выделен-_ 
ным пунктам меню, т.е. одна процедура отвечает за нажатие любого из пунктов. _ 
В этом обработчике напишите содержимое листинга 14.[. | 


ргоседаге ТЕоги1.М№13С11сК (бепаехг: ТОр-ес®); 


соп$е 
МепаСо1ог$: аггау[0..5] оЕЁ ТСо1охг =(с1В1аск, с1Веа, 
с1Сгееп, с1Уе11ом, с1В]ае, с1Рагр1е); 
Беа1п | 
//Перейти в режим редактирования поля 


ПРабаМодо1е1 .АГОТаб1е1.Еа1е; 


//Заносим в поле Со]1ог выбранный цвет 
РасаМоди1е1 .АРОТар1е1Со1ох.Аз5Ех1па:=. 
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Со1огТо5Ег1ра (МепаСо1ог$ [ТМепаТеем(бепаеу) .Тад]); 


//Запомнить изменения 
РафаМо@1е1 .АРОТаЪ1е1.Розе; 


епЯ; 


В разделе сопзе мы объявили одну константу — массив из 6 элементов, имеющих 
ТИП ТСо1ог. Так как это массив — константа — и в процессе программирования не 
может менять свои значения, эти значения нужно обязательно описать. А именно 
сразу же после объявления массива ставится знак равенства и в скобках перечис- 
ляются значения элементов массива. Так как массив состоит из 6 элементов, то и в 
скобках должно быть именно 6 элементов — ни больше ни меньше. Мы указали 
цвета, которые у нас указаны в пунктах всплывающего меню. Их имена перечисле- 
ны в том же порядке, что и в меню. | 

В первой строке кода мы переводим таблицу в режим редактирования с помо- 
щью вызова метода ка1-. Если этого не сделать, то любые попытки изменить дан-‘ 
ные в полях текущей записи встретят вас шквалом ошибок. 

В следующей строке мы присваиваем полю Соог значение выбранного цвета. 
Выбранный цвет получаем следующим образом: 


МепиСо1ох$ [ТМепатееп (5еп4ег).Тач]. 
‚Рассмотрим эту запись по частям. 


О зепаег — переменная передается нам в качестве параметра в обработчик собы- 
тия и указывает на объект, который породил данное событие. 


О тмепитеен(Зепдег) — переменная Зеп@ех универсальна, поэтому имеет тип 
Тор)еск, т. е. родитель всех компонентов. В таком виде мы не можем обратиться 
к свойствам, которых нет у тоь3ес+, но есть у пунктов меню (нас интересует 
СВОЙСТВО Таз). Поэтому мы показываем компилятору, что данное событие 

‚ Зепаег имеет тип тмепитеем. 


О ТМепотЕем (5епдег). Тач — Получаем значение, ‚ указанное В СВОЙСТВе Таз ПУНК- 
та меню, породившего это событие. 


С] МепиаСо1отз [ТМепатееп (бепаехг).Тад] —Щ Получаем из массива МепиСо1охз зна- 
‚чение цвета, соответствующее значению, указанному в свойстве Тад: 


Значение полученного цвета преобразуется в строку с помощью функции 
Со1огТо5Ек1па и записывается в поле Со]юог в виде строки. 

В самой последней строке мы запоминаем изменения с помощью метода рРоз+. 
Если вам надо отменить все изменения после последнего, входа в режим редакти- 
рования, вы должны использовать метод сапсе1. Это очень удобно при `отображе- 
нии окон редактирования строк, как мы это уже делали при работе с телефонным 
справочником. 

Код написан, теперь надо выделить сетку овсг1а и в свойстве рРорирМепи. указать 
созданное нами меню. Сейчас, после всех проделанных действий, мы можем запус- 
кать приложение и изменять свойство Со1ог в базе данных. Осталось только нау- 
чить программу читать это свойство и выводить текст в зависимости от указанного 
там значения цвета. Для этого создайте обработчик события опрхамраЕаСе11 ДЛЯ 
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нашей сетки. Это событие вызывается, когда нужно перерисовать данные какой- 
нибудь ячейки сетки. В обработчике напишите содержимое листинга 14.2. 


ргоседиге ТГогт1 .ОВСг1Я1ЮгамОаеаСе11 (бепдехг: ТОБзесе; сопзеЕ Весе: ТВесе; 
Е1е1а: ТЕ1е1Аа; 5бабе: ТСг1ЯОгамеаее); 
Беа1п | 
сгу 
0ОВСг1а1.Сапуа$ .Копе.56у1е:=[]; 
1Е (аа45бе1есееа 1п 5Еаее) ог (ааРосизеЯ 1п баке) ЕБеп 
Ъед1п | | 
ОВСг1а1.Сапуаз .Вгазр .Со1ог:=с1Н1айтлайе; 
2ВСг1а1 .Сапуа$.Ропе.Со1ох:=с1\1е; 
епа 
е1зе . 
Беа1п 
ОВСг1а1'.Сапуа$ .ВгазВ.Со1ог:=СсИТ1 ее; 
2ОВСг1а1.Сапуаз$ .ЕКопе.Со1ох:=с1В1асКк; 


а 


//Если поле цвета не пустое, то использовать цвет из поля 
1Е ПабаМо@а1е1 .АрОТар1е1Со1ог.Аз5еу1па<>'' Епеп 
2ВСг191 .Сапуаз.ЕопЕ.Со1ог:= 
бЕг1паТоСо1ох (РасаМои1е1 . АРОТаЬ1е1Со1ог.Аз5ег1па); 
епа;: * 
//Очищаю ячейку 
2ВСг191.Сапуа$.Е111КВес® (КесЕ); 
//Вывожу текст ячейки | | 
ОВСг1а1 .Сапуа$ .ТехЕОчце (Вес®.ГеЁЕе, ВКесе.Тор, Е1е1а.АзбЕхг1та); 
ехсере 
ОВСг1а1 .Сапуаз.ТехЕОче (Весе.ЪеЁЕе, Кесе.Тор, Р1е1а.Аз5ег1па); 
епа; 


еп; 


Прежде чем анализировать этот код, необходимо учесть следующее замечание. 
При попытке откомпилировать приложение ничего не получится. Реры будет 
"ругаться" на тип данных ТЕ1е1а. Этот тип описан в модуле аъ, поэтому добавьте 

„его в раздел изез. После этого при компиляции ошибок не должно быть. 

Теперь рассмотрим параметры, которые мы включили в обработчик. У нашего 

обработчика события есть следующие параметры: | 


С зепаехг — объект, который сгенерировал это событие (у нас это будет сетка); 

С весе — здесь хранятся границы области ячейки, которую надо перерисовать 
(границы передаются в виде структуры тгесе); 

О г1е1а — этот параметр имеет тип ТЕ1е1а и указывает на поле, которое надо 


перерисовать; 
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О зкаке — здесь находятся‘ параметры, указывающие на текущее состояние 
ячейки, при этом допускаются следующие параметры: 


е® Сабе1есееа — ячейка выделена; 
® СаРосизеа — ячейка имеет фокус ввода; 
»® СаЕ:1хеа — ячейка является фиксированной (такие ячейки используются для 


названий колонок сверху сетки и для индикации текущей строки слева сетки). 


Теперь давайте познакомимся с кодом самой процедуры. В первой строке уста- 
навливается стиль шрифта у холста сетки. Точнее сказать, очищаются все настрой- 
ки шрифта, потому что стилю присваивается пустой набор [1]. 

В следующей строке проверяется, если текущая ячейка выделена или имеет фо- 
кус ввода, то цвет кисти ‘изменяем на с1н1автьзаъе (это константа, хранящая сис- 
темный цвет, используемый для подсветки). Цвет шрифта устанавливаем в белый, 
хотя, наверное, лучше будет использовать системный цвет для подсвеченного тек- 
ста — с1НлапглавеЕТехеё. 

Если ячейка не выделена, то цвет фона (цвет кисти) делаем белым, а цвет шриф- 
та — черным. Далее идет проверка, если поле цвета текущей строки не пустое, то 
цвет шрифта меняем на тот, который указан в поле цвета. Единственное, что надо 
учитывать, — цвет хранится в виде строки, поэтому преобразовываем его в цвет 
с помощью функции 5Ех1п9ТоСо1ог. 

Все приготовления закончены, можно заняться рисованием. Для начала очища- 
ем старое значение ячейки с помощью вызова метода Е111весе холста-сетки, кото- 
рый закрашивает указанную область цветом кисти (фона). В качестве единственно- 
го параметра указываем область ячейки в виде структуры ТВесе, которую мы 
получили через параметры обработчика. 

После закраски рисуем текст ячейки. Если произошла какая-то ошибка во время: 
подготовки к рисованию (она может возникнуть только при преобразовании 
ЗЕх1п9ТоСо1ох, если в поле находится неправильное значение), то мы пытаемся 
снова вывести текст в блоке ехсере...епа. 


ПРИМЕЧАНИЕ. На компакт-диске, прилагаемом к книге, в папке \Примерь\Глава 14\Союг 
вы можете увидеть пример этой программы. 


14.13. Подключение к базе данных 
во время выполнения программы 


Использовать заготовленную базу данных очень удобно, но вдруг пользователь 
захочет выбрать, с какой базой данных ему сейчас работать? Зачем это нужно? До- 
пустим, что у вас программа каждый месяц копирует БД в отдельное место и потом 
очищается, чтобы не содержать устаревших данных. А что если пользователь захо- 
тел посмотреть эти старые данные? Ему надо писать отдельную программу для 
просмотра или придется пользоваться неудобной программой Ассе$$? Но есть вы- 
ход проще — подключить программу к старой архивной базе данных. 
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_ Возьмем пример, написанный в предыдущем разделе главы. Добавьте на форму 
еще одну кнопку. Для ее события опСс11ск, связанного с нажатием кнопки, напиши- 
те следующий код: | 

ргоседиге ТРоути1 .Ва6Еоп1С11сК (бепаег: ТОБ)есе); 
Беч1п 
РасаМо@а1е1 . АРОСоппесЕ1011 .С1о5е; 
1Е Еа1ЕСоппесЕ1оп5хг1п9 (РабаМоаа1е1 .АБОСоппесе1оп1) Епеп ы 
Беч1п | 
РасаМоди1е1 . АГОСоппесе1оп1 .Соппескеа: =Егае; 
РафаМо4и1е1 .АБОТаЪ1е1 .АсЕ1уе:=кгие; 
епа; 
епа; 


Чтобы этот код откомпилировался, нужно в раздел изез добавить модуль 
АРОСопЕа. Теперь программа откомпилируется и без проблем запустится. 

Посмотрим, как работает код после запуска программы. В первой строке вы- 
полняется метод с1озе компонента АРОСоппесЕ1оп, чтобы закрыть соединение 
С базой данных. После этого вызывается функция ЕЯ1Соппесе1оп56г1па, Которая 
отображает окно подключения к БД, которое вы уже видели и можете еще раз уви- 
деть на рис. 14.34. В качестве параметра в эту функцию нужно передать компонент 
АРОСоппесЕ1оп, Параметры которого будут изменяться. 

Если пользователь выбрал новое имя файла, программа вернет значение ские. 
В результате мы откроем соединение с базой и сделаем единственную таблицу актив- 
ной. Помните, что после закрытия и открытия базы данных все таблицы становятся не- 
активными, поэтому вам придется программно восстанавливать их активность. 


„| Справочник товаров 


_ Подключиться: | ие = 


[лес 


Рис. 14.34. Результат работы программы 


ПРИМЕЧАНИЕ. На компакт-диске, прилагаемом к книге, в папке \Примеры\Глава 14\ 
Соппес{ вы можете увидеть пример этой программы. 


Некоторым может не понравиться. стандартное окно выбора базы данных, пото- 
му что оно слишком сложное и оформлено с использованием английского языка. 
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Конечному пользователю эта сложность абсолютно не нужна. Для того чтобы само- 
му написать более простое окно подключения, давайте разберемся со строкой поД- 
ключения. Минимальная строка подключения к Ассез$ базе данных выглядит так: 
Рго\1АЧег=М1сгозоЕЕ .дее.ОГЕОВ.4.0;Раба боигсе=зс1аЯ.пЯю;Регз13е бесиг1у 
ТпЕо=ЁЕа]1зе 
Эта строка состоит из трех частей: 


С Ркоу1аег=М1сгозоЕе.Зее.ОБЕОВ.4.0 — имя поставщика данных (Ргоу14ег), че- 
рез который будет происходить доступ; 


С рава Зоигсе=зс1аа.юаь — путь к базе данных и имя файла; 
О рРегз1зЕ Зесиг1Еу ТпЕо=Ёа1зе — сохранять информацию о безопасности. 


Если у вас не будет меняться тип базы данных, что бывает чаще всего, то изме- 
нение БД можно упростить. Поместите на форму компонент торепр1а109 с вкладки 
01а102$ и напишите в обработчике событие опс11ск для кнопки Подключиться 
следующий код: 

ргоседицге ТЕоги1. ВаЕСоп1С11сК (Бепаек: ТОБЗесЕ); 

Ъеа1п 

1Е ОрепО1а1о91.ЕхесаЕе «Веп 
Бед1п 
РакаМо@и1е1 .АРОСоппесЕ1оп1.С10зе; о 
РабаМод1е1 . АРОСоппесе1оп1 .СоппесЕ1оп5х1па: = 
'Рго\1Чехг=М1скозоЕе.дее.ОБЕОВ.4.0;'+ 
'Раба боцгсе=' +ОрепО1а1о091.ЕР11еМапме+ 
';Регз1$6 Зесиг1еу ТрпЕо=Ёа1зе '; 
РасаМоаи1е1 .АРОСоппес®1оп1.Ореп; 
епа; 
епа; 


Здесь мы отображаем стандартное окно открытия файла, и если пользователь 
выбрал файл, то закрываем соединение и формируем строку подключения. После 
этого снова открываем соединение с базой данных. 

Какой вы будете использовать способ — зависит от вас. 


СОВЕТ. Если всегда используется один и тот же тип баз данных, то желательно ото- 
бражать только стандартное окно открытия файла. Если тип БД меняется, то лучше 
научить пользователя использовать ваше окно подключения. 


При использовании других баз данных, отличных от Ассез$, строка подключе-_ 
ния может выглядеть по-другому, и параметры будут отличаться, но принцип везде 
один и тот же. 


14.14. Расширения АБО . 


Ранее для доступа к данным использовались компоненты АРО, которые предос- 
тавляют разработчику высокоуровневый доступ к таблицам. Этого достаточно для 
разработки большинства программ работы с базой данных. Но иногда требуется 
нечто большее, например, создать БД и получить доступ к метаданным (описанию 
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таблицы). Это возможно с помощью расширения АРОХ (АРО Ежепз1оп). Таким 
образом, данное расширение предназначено для решения задач, которые недоступ- 
ны компонентам АОО. 

Только что появилось новое понятие — метаданные. Чтобы двигаться дальше, 
нужно четко понимать, что это такое. Многие усложняют данное понятие. Постара- 
емся объяснить его смысл как можно проще. В общем, метаданные — это описание 
содержимого базы данных, его таблиц, полей, ключей, индексов, хранимых про- 
цедур, представлений, работ и т. д. Этими объектами вы можете управлять не только 
с помощью АРОХ, но и с помощью языка ДОЕ (Баа Оейтиоп Гапгиаге), который 
является подмножеством языка ЗОГ, или компонента АРО Соттана. Если вы пойме- 
те работу АРОХ, то вам уже не понадобится (хотя и желательно) изучать РОГ. 

С помощью АДОХ можно работать с метаданными БД, влиять на структуру 
данных, а также управлять безопасностью. Все это невозможно делать с помощью 
доступных в Ое|р компонентов. Однако это не значит, что сделать вообще нельзя. 
Просто эти задачи решаются реже, поэтому ВоПапд не разрабатывала для них ком- 
поненты, но вы можете получить доступ напрямую к библиотеке тзадох.АП, в ко- 
торой и находятся все расширения. 

Сразу же нужно предупредить, что АРОХ работает не со всеми базами данных, 
а только производства Мпсгозой (М$ Ассез5 и М$ ЗОГ. Зегуег). Если вы используе- 
те или планируете использовать в своих проектах что-то другое, то сначала убеди- 
тесь, что АРОХ поддерживает вашу БД. Это можно сделать на сайте Мисгозой 
(ууу ап. писгозой. сот). Но Я 
что-то не особо верю, что МИсгозой 
встроит поддержку баз данных 
конкурентов. 


Чтобы получить доступ к функ- | ре АсмеХ Баз Бес 2 7 У етой 2. я | 
- |2 2|МетозоК Аснуех баа ОБес6 Несогдзе 2.7 ШЬгагу (Мегзюп 2.:° 
циям расширения, необходимо под =: | МюгозоК Аснуех Рыдт (Мегзюп 1.0) 
ключить библиотеку АРОХ к Оеры. |. | |Меозой Ада+т безюпе! (Мегзюп 1.0 | 
. ВВ Мисто-оН АОО Ех 2. 7 ГОО ап9 Зесииь: Магюи 2.7) 
Не к проекту, а именно к Веры, |: |меозой Аве Сопно! 2.0 Мегзюп 2.0) 


С _ |: |МаозоВ Адег бегуег 2.0 Мегзюоп 2.0) 
т. е. создать соответствующии заго Е | о ет Зегуе! Ещепяюлз г. 0 „Мегзюп, 2. .0] 


ловочный файл, которого пока нет. 
Связь нужно сделать только один 
раз. Для этого выберите меню 
Рго]есё | Пирог Туре ТЛгагу 
(Проект | Импортировать библио- 
теку типов). Перед вами появится 
окно импортирования (рис.. 14.35). 
Здесь нужно найти пункт Мсго5ой 
АБО Ех 2.Х г ОПГ апа 
Зесигиу (Уегзоп 2.Х), где 2.Х — | — ЕЕ о] 
это номер версии. БЫ — г г ее т. т те: ] 
ПРИМЕЧАНИЕ. На момент на- | и еле Е. - - ея" | и — 
писания книги в системе исполь- _ 2: 
зовалась версия 2.8. 


Рис. 14.35. Установка АВОХ 
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Выберите этот пункт и нажмите кнопку ш$аЙ. Среда разработки Оеры выдаст 
ошибку, сделав ссылку на то, что объект ттаф1е уже существует в системе. Чтобы 
избежать этой ошибки, в поле С1а$$ пате$ (здесь находится список всех классов 
библиотеки) этого окна добавьте какой-нибудь уникальный префикс к каждому 
имени объекта. 


СОВЕТ. Лучше добавить АО[ОХ, чтобы явно указать принадлежность объектов к биб- 
лиотеке АОБОХ. 


В результате произойдет преобразование имен объектов к форме: 


О тарохтаь1е; (С) тАРОХСгочВ; 
С] тАРОхХСо1 има; С] тарохозек; 

С] таАрохтпаех; С) тарохсака1о9. 
О тарохкеу; 


Снова нажмите кнопку т$а|, и перед вами должно появиться окно выбора пу- 
ти, куда будет установлен АООХ (рис. 14.36). Выберите вкладку По пе\у расКаге 
и укажите файл в поле ЕШе пате, или можете оставить все как есть и нажать кноп- 
ку ОК. После этого перед вами откроется окно пакета и запрос на перекомпиляцию 
(рис. 14.37). Согласитесь. Если запрос на компиляцию не появился, то самостоя- 
тельно нажмите кнопку т$ай в окне пакета. 

После компиляции закройте окно пакета. 


‚ 1фо ежи" раскаде | о пе раскаде| ^.° о а 


тм ла еливя еда аллеи л ил адава о подо Илиада летала откладки пивлалаля палат лАжлля Ели политике лада пл уолиалли тали полна тлнлаллл ле ладдяиилжть ли скал лама олд плодят дж 


| = Аргосгаг Пез\Бойала\ де! НИЗ т. Е 


ПО 
Ее пате: 


} | . 


| Везсириом: |Воп 


алии ли А лол толь одели 


апа Цзег Сотропей о 


. на } ра _ В .. 4 


_Сотрйе | _А94 — Веточе р аа. Орйопз т а ий ве 


. е:\ргодгат Мез\БоПапд\ дер! Чтрог$ 
-.;] АООХ_ТИВ.раз  е\ргодгат Нез\Бойап4\ дер 7 Утроп$ 
- дездиюде.дср 
==] ц.9ср 
ус. ср 


Рис. 14.37. Окно пакета 
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При инсталляции запомните имя файла для АДОХ (например, АРОХ_1Ъ.ра5). 
Имя файла вы можете увидеть в окне пакета. 

Теперь попробуем сделать намеченное, а именно создать базу данных и таблицу 
из программы на РерЫ без использования Ассез$. Благодаря АРОХ это не отни- 
мет много времени, хотя будет немного запутано, потому что код придется писать 
в стиле С++. 

Создайте новый проект и поместите на форму только одну кнопку. Для события 


ОпС11ск, связанного с нажатием кнопки, напишите код, показанный в листин- 
ге 14.3. 


^.} УЧУЯО: > 
ое р : 


у И а ше: зе 


ргоседиге ТЕохт1 .Вае6оп1С11ск (бепаег: ТОБЗесе); 
уах 
ТаБ1е: _ТаЪ1е; 
Со1итп: _Со1ата; 
Бед1п 
// Создание базы данных 
Сака1о3 := СоСаба1оа.Сгеаее; 
1Е Р11еЕх15е$ ('с:\АБ.паь') ЕВеп 
Ре1ебеЕ11е ('с:\96.паь'); | 
Сака1оч .Сгеаее ('Ргоу1аег=М1сгозоЁе.дее.овЕОВ.4.0;Раба бойгсе=с:\Я6.паЪ'); 


Сака1о9 .5е-_Асе1уеСоппесЕ1ол ( 'Рхоу1аег=М1сгозоЕ*.чее.ОГЕОВ.4.0;ПРаба 
боцгсе=с : \Аю.па'); . 


// Создание таблицы 

Таб1е := СоТаБ1е.Сгеаее; 

Табе .Мате := 'Мои друзья!; 
ТаБ1е.РагепЕСака1о3 := Саба1оа; 


// Создать ключевое поле 
Со1отп := СоСо]аип.Сгеаее; 
мтЕВ Сола до 
Беач1п 
РагепЕСака1]о3 := Саба1оа; 
Маге: ='Кеу1'; 
Туре_: =аЯТпеЕедег; 


РгорегЕ1ез [ 'Ацбо1псгетепе'] .Уа]1ае := 6тае ; 
Ргорег(1ез [ 'Резсг1рЕ1оп'].Уа1ае:= 'Ключевое поле’ 
епа; 


// Добавить поле к таблице 


Таб1е.Со1иптз .Аррепа (Со1атиа, 0, 0); 
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Со1аим := №1; 


// Создаем еще несколько полей 
м1ЕП Таб1е.Со]липз Яо 
Бед1п 
Аррепа ('Фамилия', аЯУахМСПВат, 50); 
Аррепа ('Имя', а@\Уах\МСВахг, 50); 
Аррепа ('Телефон', аЯУахМСВах, 15); 
Аррепа ('Адрес', аЯУауМСВах, 255); 


Аррепа ('Возраст', аЯтТиеедехг, 100 ); 
епа; ‘ 


// Добавить таблицу ‘к базе данных 
Саса1оа.ТаЪ1е$ .Аррепа (ТаЪБ1е); 


епЯ; 


База данных в данном случае воспринимается как каталог, и переменная для нее 
будет иметь тип _Сака1оа. Давайте объявим такую переменную в разделе рг1хуаее: 
Саба1оч : _Сака1оч; 


Вот теперь программа готова и мы можем разобраться, что тут происходит. 
В самом начале инициализируется каталог с помощью вызова метода Схгеакео 
объекта сосака1оа: | 
Саба1оа: =СоСака1оа .Сгеаее; 


Потом проверяем, если файл @Ъ.п46 на диске С: уже существует, то удаляем 
его, иначе при создании произойдет ошибка. 

Следующим этапом будет создание базы данных с помощью метода сгеаге. 
В качестве параметра нужно указать строку подключения. Из этой строки наш ка- 
талог получит информацию о версии (Мсгозо_.Ле.ОГЕРВ.4.0) и о расположении 
БД (с/\4Ъ.тдЬ). | 

В принципе, база данных готова. Теперь можно создавать таблицу. Для этого 
нужно проинициализировать переменную ТаЪ1е с помощью вызова метода сгеаке 
объекта сотаБ1е. После этого в свойстве Маме нужно указать имя таблицы и в свойст- 
ве РагепЕСаса1оч указать БД, к которой будет принадлежать таблица. Если этого не 
сделать, то таблица будет существовать в памяти, но не будет связана с каталогом. 

Таблица создана, переходим к ключевому полю. Для его объявления мы ини- 
циализируем переменную со1има вызовом метода сгеаЕе объекта соСо1л. После 
этого нужно задать следующие свойства у колонки: 


РагепеСака1оа — база данных; 
Маме — ИМЯ ПОЛЯ, 
Туре_ — ТИП, 


ооо 


РгорегЕ1ез —— свойства. 


Для этого выполняется следующий код: 
ТЕ Со]лама Яо 
Беач1п 
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РагепеСаса1о := Саба1оа; 

Мате: ='Кеу1'; 

Туре: =аЯТпеевег; 
РгорегЕ1ез [ 'Адео1псгетепе'].\Уа1ае := Егие ; 
РгорегЕ1е$ [ 'Оезсг1ре1оп'] .Уа1ае:='Ключевое поле' 
епа; 


Из свойств заполняем АцЕо1псгемепЕ — автоувеличение И необязательное поле 
Резсг1ре1оп — ОоПИСание ПОЛЯ. 

Теперь добавляем поле к таблице с помощью метода Аррепа свойства Со1итпз 
и обнуляем его: | 

ТаБ1е.Со1]ализ .Аррепа (Со1ити, 0, 0); 

Со1итп := №1;. | 


Поля таблицы находятся в свойстве Со1оппз. Мы можем добавлять их к таблице 
с помощью метода Аррепа, который имеет несколько параметров. 


СО Имя поля или объект типа _Со1юа. Если это объект, то остальные параметры 
игнорируются, потому что они описаны в объекте. 


С Тип поля. 
О Размер. 


2 Мк гОзОК { Ассе$5 


в Мол ‘ друзья: таблица. 


: АЗННЬО ИОНЫ :. : 


"Иного ноже соствятьтко 81 знаков © учетои пробел. . дл реки о оны толы 
.-. , . пажоните клавишу Р 


Конструктор, -Р6 = переключение ‘ок 


Рис. 14.38. Структура базы данных, созданная в АВОХ 
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Воспользуемся возможностью этого метода сразу создавать поле без определе- 
ния колонки. Именно так мы создаем остальные поля: 
м1ЕР ТаЪ1е.Со1аиз ао 
Беа1п 
Аррепа ('Фамилия', ааУагМСПах, 50); 
Аррепа ('Имя', аа\УатМСвах, 50); 
Аррепа ('Телефон', ааУах\СВахг, 15); 
Аррепа ('Адрес', аЯУах\СВаг, 255); 
Аррепа ('Возраст', аЯТпбедехг, 100 ); 
епа; 


И наконец добавляем созданную таблицу к базе данных: 
Сака]1оа.ТаЪ1ез .Аррепа (ТаЪБ]1е); 


Таким образом, программа может управлять структурой БД во время выпелне- 
ния. На рис. 14.38 вы можете увидеть структуру созданной базы данных. 


ПРИМЕЧАНИЕ. На компакт-диске, прилагаемом к книге, в папке \Примерыь\Глава 14\ 
СтежеОававазе вы можете увидеть пример этой программы. 


14.15. Обработка базы данных 


Бывают случаи, когда нужно сканировать данные всей таблицы. Для этого 
нужно перебирать все. ее строки. Возьмем пример, который был рассмотрен 
в разд. 14.13. Там с. помощью вычисляемого поля подсчитывали общую сумму то- 
вара. А что если нужно суммировать все строки таблицы, чтобы узнать общую 
стоимость покупок. В данном случае можно воспользоваться ЭОГ-запросом, но 
что, если задача более сложная ‘и запрос не подходит? В этом случае придется пе- 
ребирать все строки и рассчитывать вручную. | 

Откроем приложение, иллюстрирующее пример из разд. 14.13, и добавим одну 
кнопку, по нажатии которой должен будет происходить расчет. Простейший расчет 
‚может выглядеть так: 
уаг 

зип: Тпбедег; 
Бед1п 
Зи: =0; 
РакаМо@и1е1 .АРОТаь1е1.Е1хзе; 
\211е РабаМо@а1е1 . АрОТаЪ1е1 .ЕоЕ<>Ехае @о 
Бед1п 
_ Биг: =били+рРасаМо@м1е1 .АРОТаф1е15им.АзТибедег; 
РасаМо@а1е1 .АРОТаЪ1е1 .Мехе; | 


епа; 


Арр11сае1оп.МеззааеВох (РСрахт ('Результат: '+ТпЕТобек (бити) ), 
'Внимание', МВ_ОК); | 


епа; 
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Здесь определена переменная $итм. В ней будем суммировать значения итоговой 
колонки. В самом начале процедуры мы обнуляем переменную. 

На следующем шаге мы переходим на первую строку таблицы: 

РасаМоЧу1е1 .АПОТар1е]1.Е1:$6; 


Далее запускается цикл, который будет выполняться, пока переменная ЕоЕ не. 
равна сгое, а она будет равна "истине", только когда мы дойдем до конца таблицы. 
Если вы захотите запустить обратный цикл — от конца к началу, то можно перейти 
на последнюю строку и двигаться в начало, пока переменная ЕоЕ не станет равной 
сгие. Это свойство станет равным "истине", когда мы достигнем начала файла. 

Внутри цикла прибавляем переменной $ипм значение последнего поля. Затем 
переходим на следующую строку и так до конца таблицы. После цикла выводим 
сообщение, в котором отображается результат расчета. 

Запустите программу и нажмите кнопку, чтобы увидеть результат. Если у вас 
достаточно много строк, то вы сможете заметить, как во время расчета курсор дви- 
жется по таблице. Это не просто не красиво, а довольно чувствительно затормажи- 
вает расчет. После каждого перехода на новую строку программа должна перери- 
совать курсор и выделение, что отнимает достаточно много времени и замедляет 
расчеты. 

Чтобы не было отображения, отключите ‘таблицу от раказопгсе. Для этого 
скорректируйте код следующим образом: 

уахг 

бити: Тпсеаег; 
Беа1п 
Зипил: =0; | 
РабаМодо]1е1 .Рабабоцгсе1 .Рабабек:=п11; 


ПасаМоди1е1 .АРОТаБ1е1.Е1х$%; 
у111е ПабаМоаа1е1 .АПОТаЪ1е1 .ЕоЁ<>Ехае ао 
Беа1п 
Зиг : =биии+РабаМоо1е1. ротаБле1 бит. Азтпкедег; 
РакаМо@и1е1 .АГОТаЪ]е1 .Мехе; 
епа; 
РасаМоб.1е1 .Ракабоигсе1 .Ракабек: =РасаМоби1е1 .АРОТаЪ1е1; 


Арр11сае1оп .МеззачевВох (РСтахг ('Результат: '+ТпЕТобег (би) ), 
'Внимание', МВ_ОК); 
епа; 


В первой строке кода свойству раказее компонента рака5оцгсе1 присваивается 
нулевое значение. Этот компонент отвечает за отображение нашей таблицы. От- 
ключив связь, ничего отображаться не будет, зато скорость расчета возрастет в не- 
сколько раз. После расчета мы возвращаем свойству расазбее его первоначальное 
значение. _. 

Отключать так компоненты неудобно, поэтому есть способ лучше и эффектив- 
нее — использование пары методов р15аЪ1еСопЕхо1$ И ЕпаЪ1еСоп&го1$ компонен- 
та таблицы или запроса. Первый метод отключает управляющие компоненты и при 
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перемещении от строки к строке компоненты не будут прорисовываться, пока вы 
не вызовете метод ЕпаБ1еСопего15. Получается, что код можно написать так: 
РасаМоаа1е1 .АПБОТаЪ1е1 .01заЪ1еСопЕго1$; // отключаем управление 
РабаМо@1е1 .АГРОТар1е1.Е1х${; 
\12111е ПабаМои1е1 .АПОТаЪ1е1 .ЕоЕ<>6Егае @о 
Беа]п | 
Зита: =биии+Ра$аМо а 1е1 .АрОТаЪ1е15бом.АзТибедег; 
РасаМо@ц1е1 .АГОТа1е1 .МехЕ; 
епа; 
РакаМо4и1е1 .АРОТаф1е1 .ЕпаЪ1еСопехо1$; // включаем 
Но и это еще не все. После расчета текущей строкой станет — последняя. Это 
неудобно. Желательно возвращать первоначальное состояние полностью и выделе- 
ние должно оставаться на месте. Для этого хорошо подходят закладки. Мы уста- 
навливаеём закладку на текущую строку, потом производим расчет и после расчета 
возвращаемся по закладке на строку, которая была выделена до расчетов. Оконча- 
тельный код расчета будет выглядеть так: 
уах | 
Зиг: Тпбедег; 
511 :ТВоокмагкбЕг; 
реа1п 
Зиг: =0; 
РасаМоди1е1 .Рабабоцгсе]1 .Пабабее:=п11; 
Бп1 : =РабаМо1е1 .АрОТаЪ1е1 .ВоокмагКк; 
РасаМоди1е1 .АРОТаБЬ1е1.Е4гзе; 
у1211е ПакаМо@о1е1 . АРОТаЪ1е1 .ЕоЁ<>Егиае ао 
Беа1п | 
Эмм : =5ии+РасаМо@ц1е1 .АПОТаЬ1е15ит.АзТпеедехг; 
РасаМоЯи]е1 . АРОТаЪ1е1 .Мехе; 
епЯ; | 
РабаМоаа1е1 .АРОТаЪ1е1 .ВоокмагК : =Ыт1; 
РасаМо@1е1 .Рабабоцгсе1 .Рабабек: =ПабаМоди1е1 .АРОТаЬ1е!1; 


Арр11саЕ1оп .МеззадеВох (РСЪахг ('Результат: '+ТоЕТобех (Зи) ), 'Внимание', МВ_ОК); 
еп; 


В разделе уаг появилась новая переменная 5м1 типа тВоокмахКк5ег. Этот тип ис- 
пользуется для закладок. Носле отключения отображения МЫ устанавливаем за- 
кладку, сохраняя ее в переменной ъм1: 

11 : =РасаМобо1е1 .АРОТаЪ1е1 .Воокмагк; 


Здесь мы сохраняем в переменной ъп1 свойство вооквагк. После расчета мы 
переходим по этой закладке обратным присваиванием свойству вооктагк пере- 
менной ыт1: 

РабаМо@ац1е1 .АПОТаЪ1е1 .ВооКкмахгК : =511; 


ПРИМЕЧАНИЕ. На компакт-диске, прилагаемом к книге, в папке \Примерь\Глава 14\5сап 
вы можете увидеть пример этой программы. й 
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14.16. Бинарные данные . 


Если вам необходимо хранить в базе данных бинарные данные, то все рассмот- 
ренные способы не подходят. Сейчас мы рассмотрим, как можно поместить в БД 
изображения и звук, а потом просматривать и прослушивать их. = 

Создайте новую базу данных и в ней таблицу в1оъЕхаптр1е. В этой таблице по-. 
надобятся три поля: 


С Кеу!т — ключевое поле (счетчик); 
О Пмаге — установим здесь тип данных Поле объекта ОЕ; 
О $Зоип — установим здесь тип данных Поле объекта ОПЕ. 


На рис. 14.39 вы можете увидеть структуру этой базы данных в программе 
‚ Ассеб$. 


7] МисгозоЙ Ассе5$ 


„... Пеле объекта а... 
‚ Поле объекта" 


Свойства поля 


и Иня поля может состоять из . 7 
о”. - 64 знаков с учетом -_ 
ев | пробелов. Для справки по ^- 
ПД именам полей нажмите 
Е клавишу Е! о 


_ Конструктор. Р6 = переключение окон. 


Рис. 14.39. Структура базы данных в программе Ассе$$ 


Теперь создадим новый проект в Оерш. На рис. 14.40 показано главное окно 
будущей программы. Форма окна содержит: 


С) компонент аротаЪ1е1, который связан с базой данных и таблицей в1оъЕхапр1е; 


О компонент рака5боигсе1, связанный с АГОТаЬ1е1 для отображения данных 
в сетке; 
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О 086х191 — используется для отображения строки таблицы; 
О рвмау1чабох1 — используется для навигации по таблице; 


ПРИМЕЧАНИЕ. С компонентом РВМау1даког1 мы еще не работали, но он прост. 
Достаточно указать в свойстве Расабоцгсе компонент Раба5оцгсе1, и кнопки на па- 
нели навигации смогут управлять нашей таблицей. В реальных приложениях этой па- 
нелью пользуются редко, но в данном случае требуется что-то простое для добавле- 
ния строк. 


О ОВТиаде1 — используется для отображения картинки из базы данных, причем у 
этого компонента нужно установить В свойстве Пабабоигхсе компонент 
Рабабопцгсе1, а в ПОЛе РабаЕ1е1а — поле с картинкой; 


О четыре кнопки — Вставить из файла, Звук из файла, Играть звук и Вставить 
из буфера; 
О орепр1а1о91 — для отображения окна открытия файла. 


Е Пример работы с полями ВЕОВ 


‚ Вставить из. файла | `-.Звук изфайла_ 


_ 8508} | | 


Е ны 


лития О ЕН ИВ Ни 


Рис. 14.40. Главное окно будущей программы 


Чтобы присвоить всем полям таблицы имена, дважды щелкните кнопкой мыши 
по компоненту АРОТаБ1е1 и в окне редактора полей добавьте все поля (щелкните 
правой кнопкой мыши и выберите пункт меню Аа АПН Ее94$). Для события 
опСс11сКк кнопки Вставить из файла напишите следующий код: 

ргоседиге ТЕОги1 .ОрепттадеекощЕ:1евиекопС11ск (зепдег: ТОБуесЕ); 

Бед1п 

13Е Орепр1а1о91.ЕхесаЕе Етеп 
Бели 
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АПОТа1е1.Еа1е; 

АПОТаЬ1е1 Тмаде .ГоаЯЕРГготЕ11е (ОрепО1а1091.Е11еМаше); 
АПОТаю1е1.Розе; 

епа; 


еп; 


Здесь сначала отображается окно открытия файла. Если файл выбран, то табли- 
ца переводится в режим редактирования, в'поле АРОТаЪ1е1тмаде (это имя поля кар-. 
тинки) загружается содержимое выбранного файла и изменения сохраняются. Для 
загрузки файла используется метод гоаЯЕхомЕ11е, которому нужно только указать 
файл для загрузки. 

Уже сейчас вы можете запустить программу и загрузить картинку. Она должна 
отобразиться в компоненте ровтшаде1. Загружать желательно файлы формата ВМР, 
потому что для остальных нужно подключить в раздел изез необходимые заголо- 
вочные файлы. Иначе будет ошибка. 

Для события опс11ск кнопки Звук из файла напишем следующий код: 

ргосебиге ТЕоги1 .Вабкоп3С11скК ($еп4ег: ТОБзес"); 

реалп 

1Е Орепр1а1о91.Ехесабе Ереп 

Беа1п 
АРОТаБ1е1 .Еа1е;. 
АПОТаЪ1е1боипа .ТоаЯЕгомЕ11е (ОрепП1а1о431.Е11еМапше); 
АПОТар]1е1.Ро5(; 

епа; 

епа; 

Здесь происходит та же загрузка, только в поле Зоипа. В это поле лучше загру- 
жать \/АУ-файлы. Чтобы их проиграть ‘прямо из базы данных по нажатии кнопки 
Играть звук, напишите для ее события опс11ск следующий код: 

ргоседцге ТЕРог1 .Вие6оп4С11сКк (5епаег: ТОБдесЕе); . 

уаг 

тет: ТМетогубегеам; 

Беа1п 

пет: =ТМемогубегеат.Сгеаее; 
АПОТаъ1е1Зоцпа . бауеТо5Егеам (тет) ; 


Р]аубоипа (пем.Мептохгу, 0, $МО_$УМС+$МО_МЕМОКУ); 


мем.Руее; 
епЯ; 


Здесь у нас объявлена переменная меж типа тТМмепогу$ Е геам. Этот тип похож 
На тТЕ11ебЕхеаш, И большинство свойств и методов одинаковы, потому что оба 
класса имеют одного и того же предка. В первой строке инициализируется объ- 
ектТ шем. Далее сохраняется содержимое Поля АПБОТар1е15оцпа в потоке 
ТМемогубЕгеам. 
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В следующей строке воспроизводится звук с помощью функции Р1аузоцпа. Мы 
пока не затрагивали тему звука. Это тема отдельного разговора, который нас ожи- 
дает чуть позже, а пока вам необходимо знать, что этой функции нужно передать 
три параметра. | 
О Откуда играть звук. Здесь можно указывать имя файла или, как в нашем слу- 

чае, — указатель на область памяти, содержащей звуковые данные. 


С Указатель на исполняемый файл, который содержит ресурс, необходимый ДлЯ 
загрузки. Нам не нужны никакие файлы, поэтому здесь выставлен 0. 


С Параметры воспроизведения. Параметров достаточно много, но мы рассмотрим 
только те, которые будут использованы: 


® 5МО_МЕМОКУ — ВОСПРроизводить звук из памяти, 


® 3М2_сумс — воспроизводить синхронно. Это значит, что программа не про- 
должит выполнение, пока не доиграет звук. Если установить асинхронное 
проигрывание ($м2_Азумс), то программа запустила бы воспроизведение 
и продолжила выполняться. | 


ВНИМАНИЕ. Если после установки $МО_5УМС стоит код уничтожения памяти со зву- 
ком (в примере именно так), то данные, которые еще не проиграны полностью, будут 
уничтожены. Поэтому в нашем примере блокируем выполнение программы до окон- 
чания их воспроизведения путем использования $МР_МЕМОКУ — воспроизводить 
звук из памяти. 


Для удачной КОМПИЛЯЦИИ нужно ПОДКЛЮЧИТЬ В раздел чзез модуль пизузЕетм, 
в котором находится описание функции Р1ауЗочлпа. | 

Напоследок освобождаем объект пем, который уже не нужен. 

Запустите программу и попробуйте вставить какой-нибудь звуковой файл. По- 
сле этого вы сможете воспроизвести его прямо из базы данных. 

На форме у нас еще осталась без действия кнопка Вставить из буфера. Для со- 
бытия 0пс11ск, связанного с ее нажатием, напишем только одну строку кода: 

ОВТтаде]1 .РазкеЕгопС11рроага; 


У компонента рвттаде1 есть очень полезное свойство — рРазЕеггопС11ррЬоага, 
которое позволяет вставлять данные из буфера обмена. Вы также можете скопиро- 
вать или вырезать данные в буфер с помощью методов соруггошс11рьоаха и 
СиЕРгомсС11рБоага. 

Чтобы сохранить бинарные данные из базы данных обратно в файл, можно вос- 
пользоваться методом 5ауеТоЕ11е. Например, вот так можно сохранить звук обрат- 
но в файл: — 

АПОТаф1е15оипа. бауеТоЕ11е (имя файла); 


ПРИМЕЧАНИЕ. На компакт-диске, прилагаемом к книге, в папке \Примеры\Глава 14\ 
ВБ вы можете увидеть пример этой программы. 
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14.17. События наборов данных 


У таблицы АротаЬ1е достаточно много событий и большинство из.них очень полезны. 
Рассмотрим события, которые генерируются после выполнения каких-либо действий: 


О АЕсехСапсе1 — событие генерируется после вставки строки. 

О АЕЕегС1озе — событие генерируется после закрытия таблицы (она перестала 
быть активной). 

О АЕсехре1еке — событие генерируется после удаления строки. 

С АЕБКегЕЯ:е — событие генерируется после перехода в режим редактирования 
строки (после вызова метода Еа1‹). | 

О АЕСегтизегЕ — событие генерируется после вставки строки. 

О АЕсегОреп — это событие генерируется после открытия таблицы. 

О АЕсегРозЕ — событие генерируется после запоминания строки (после вызова. 


метода Роз). 
О АЕсехвеЕгезн — это событие генерируется после обновления таблицы. 
О АЕЕег$сго11 — это событие генерируется после перехода на новую строку. 


Все эти обработчики генерируются до возникновения какого-то события. Для 
каждого из них есть аналог, начинающийся не со слова АЕкег, а со слова вегоге 
(ВеЁохеСапсе1, ВеЁохеС1озе и т. д.). Эти обработчики срабатывают до возникнове- 
ния соответствующего события. 

Помимо этого, есть еще следующие события, которые не имеют приставки 
АЕСег ИЛИ ВеЕоге: 


| $ 
О опса1сЕ1е1аз — событие генерируется, когда приложение должно пересчитать 
калькулируемые поля; | - 


С опре1еекеЕггох — событие возникает, когда приложение пытается удалить за- 
пись и возникает исключительная ситуация, 


О отЕа1ЕЕГГгог — это событие генерируется, если невозможно перейти в режим 
редактирования; 


СО отЕ!11ЕегВесога — возникает каждый раз, когда различные записи в наборе 
данных становятся активными и свойство 211Еег1п9а равно истине; 


С опмемвесога — событие возникает при добавлении или вставке новой строки 
в набор данных; 


С] опРозЕЕГгог — событие возникает, если произошла исключительная ситуация 
при попытке сохранить данные методом Розе. 


Нужно заметить, что большинство из событий таблицы таАРОТаь1е на самом деле 
объявлены в классе предка трасазек, а этот класс является предком для всех ком- 
понентов, хранящих наборы данных (тТаЪ1е, ТОчегу, ТАРООцеку и т. д.). Это значит, 
что у всех этих компонентов будут точно такие же события. 

Рассмотрим, как и когда можно пользоваться событиями наборов данных. До- 
пустим, что у вас есть в таблице колонка, значение которой может изменяться 
_в зависимости от определенных параметров. Например, у вас есть 4 работника 
склада, которые работают по сменам. В зависимости от смены при создании новой 
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строки нужно указывать определенного работника. Здесь можно понадеяться на 
оператора программы, уповая на то, что он будет правильно указывать работника 
склада. Но желательно этого не делать. Лучше создайте обработчик для события 
АЕсеуТизехе И там напишите: 
5с1аЯТаЪ1е.Еа1е; 
1Е сегодня работает смена1 ЕЦеп 
Могке’Со1Тати .АзбЕу1па:=’Иванов’; 
1ЁЕ сегодня работает смена2 ЕПеп 
МогкехгСо1отп .Аз5Еуи1па:='Петров’; 
1Е сегодня работает смена3 ЕНеп 
Мо’гкехгСо1итп .Аз5ехг1па:=’Сидоров'; 
5с1аЯТаЪ1е.Розе; 


Таким образом, после создания строки, в зависимости от смены, программа сама 
_ устанавливает фамилию работника в поле иогкехСо1 илл. 

Рассмотрим еще один пример, который встречается в жизни довольно часто. 
Допустим, что у вас есть две связанных таблицы. Если удалить в главной таблице 
строку, то соответствующие строки в подчиненной таблице останутся не связан- 
ными, т. е. не используемыми. Это лишние данные для подчиненной таблицы, обу- 
словленные нарушением ССыЫлочноЙ целостности, т. е. когда нарушается связь ме- 
жду строками таблиц. 

Эту задачу удобно решать с помощью триггеров (процедуры, которые выпол- 
няются на сервере в ответ на определенные события, —Щ_ вставка, изменение или 
удаление строк в таблице) на уровне базы данных. Но мы пока работаем с табли- 
цами Ассез$, которые не поддерживают триггеры. Поэтому можно создать обра- 
ботчик события ВеЁохере1е%хе и написать в нем следующий код: 

\п11е 51ауеТаЪ1е.КесогЯСоцпЕ>0 ао 

51ауеТаЪ1е .ПШе1еее; 


Здесь запускается цикл — пока в подчиненной таблице количество строк боль- 
ше нуля, то удалять строки. Если вы навели связь между таблицами, то свойство 
ВесохЯСоипЕ будет указывать на количество строк, связанных с текущей строкой 
главной таблицы, т. е. только те строки, которые надо удалить. Если связь не наведе- 
на, то вы можете очистить всю подчиненную таблицу. 

Почему здесь используется цикл мр:1е, а не гереаЕ ИЛИ Ёохг? В данном случае 
так надо. Допустим, что вы решили использовать Цикл тереае. Взгляните на сле- 
дующий код: 

гереаЕ 

51ауеТаф1е.Пе1еее; 
10611 51ауеТаЪ1е.ВесогЯСоцпте=0; 


На первый взгляд все нормально, но представьте себе ситуацию, когда в подчи- 
ненной таблице нет ни одной строки, связанной с выделенной строкой в главной 
таблице. Цикл хереае выполняется хотя бы один раз, но в таблице нет строк, по- 
этому при единственной попытке удалить произойдет ошибка, потому что удалять 
нечего. 
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Теперь посмотрим на следующий код: 
Рог 1:=0 во $1ауетаЛе.Весо’гаСоцпе-1 ао 
5$]а\уеТтаЪ1е.Пе1еее; 


Здесь тоже все вроде бы нормально, даже когда в подчиненной таблице нет 
строк. Но попробуйте мысленно выполнить этот цикл. После первого же шага зна- 
чение $1ауеТаЪ1е .Кесог@Соцпе будет уменьшено на |, потому что удалена строка. 
Таким образом, на определенном этапе тоже произойдет ошибка, т. к. значение пе- 
ременной 1 увеличивается, а значение 51ауетТаЪ1е .ВесохаСоцпЕ уменьшается. 


СОВЕТ. Никогда не используйте цикл Еох, если конечное значение изменяется внутри 
цикла. В таких случаях лучше использовать циклы с условиями мф11е или 
тереа+...ипе11. 


14.18. События Ва а$оигсе 


Компонент Трафабоигсе является интерфейсом между набором данных 
(ТАРОТаЪ1е, ТАРООцегу и Т. д.) и компонентами работы с данными (товеале, 
товск1а ит. д.). Мы уже много раз использовали трасабоцгсе в этой главе и еще не 
раз будем использовать, но пока ни разу не обращали внимания на события. 

Событий у компонента не много, но зато какие: 


О опракаСвапае — возникает, когда данные в наборе данных были изменены или 
курсор передвинут на новую строку; 

О опзкаЕеСьапае — событие возникает, когда состояние связанного с Тракабоиксе 
набора данных изменилось; — 


О опОраасерака — возникает, когда данные в текущей строке должны быть об- 
новлены. 


Как можно использовать события? Допустим, что у вас есть набор данных, и он 
связан с компонентом тракабочгсе. На форме также установлены компоненты для 
редактирования данных и кнопка сохранения изменений. Как сделать так, чтобы 
кнопка была доступна только тогда, когда данные действительно изменены? Очень 
просто — создаем обработчик события опрасаСъапае и пишем в нем проверку: 

Ваббопбауе . ЕпаЪ1е@: =АРОТаЪ1е1 .Моа1Е1еа; 


Здесь мы присваиваем свойству ЕпаБ1еа кнопки значение свойства Моа1Езеа, 
набора данных. Если набор данных изменен, то Моа1Е1еа будет равен истине, 
и кнопка станет доступной, иначе будет недоступной. 

По нажатии кнопки сохранения данных пишем: 

РасаМо@о1е1 .АРОТаЪ1е1.Розе; 

Висбопбауе .ЕпаЪ1еа: =РакаМоа1е1 .АБОТаЪ1е1 .Моа1ЁЕ1еа; 


Здесь мы сохраняем данные, а потом снова присваиваем свойству ЕпаЪ1еа кноп- 
ки значение свойства Моа1 Е1еча. 

А что если пользователь не нажмет кнопку сохранения, а просто курсором пере- 
бежит на другую строку? Если вы запускали предыдущие примеры, то должны бы- 
ли заметить, что при переходе от строки к строке в сетке овсхгза данные автомати- 
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чески сохраняются. Как отловить это событие? Можно отлавливать АЕЕег$сго11, 
но это будет лишним. Дело в том, что событие опракаСвапае срабатывает при лю- 
бом изменении данных в текущей строке — с помощью редактирования данных 
или с помощью перехода к другой строке, ведь после изменения текущей строки, 
отображаемые данные меняются и данное бобытие будет вызвано. 


ПРИМЕЧАНИЕ. На компакт-диске, прилагаемом к книге, в папке \Примеры\Глава 14\ 
3СВапдед вы можете увидеть пример этой программы. 


Если вы запустите пример на прилагаемом к книге компакт-иске, то заметите, 
что когда начинаешь редактировать строку, кнопка сохранения не доступна. Собы- 
тие еще не сработало, а даже если бы оно и было вызвано перед началом редакти- 
рования, данные еще не были изменены и сохранять было нечего. Когда вы изме- 
нили данные и выбрали другую ячейку в этой же строке (или перешли на другую 
строку, но в этом случае изменения тут же сохранятся), вот тогда кнопка сохране- 
ния станет доступной. 


14.19. Позиционирование 


Очень. часто возникает необходимость найти определенную строку внутри те- 
кущего набора данных, т. е. позиционировать курсор на определенной строке. Для 
этого в цикле с помощью метода МехЕ можно перебирать все записи, пока не будет 
найдена необходимая, но есть способ лучше — использовать метод госаее. 

У метода три параметра: 


С поле, по которому нужно искать значения; 
О искомое значение; 
С параметры поиска. 


В качестве параметров поиска можно указывать сочетания из следующих кон- 
стант: | 


С 1оРакЕ1а1Кеу — искомое значение может совпадать не полностью, т. е. может 
совпадать часть значения, но с самого начала, | 


С 1осазетизепз1Е1уе — не учитывать реестр. 


Если необходимая строка найдена, то результатом работы метода будет егче, 
иначе метод вернет Еа1зе. 

Чтобы лучше понять работу метода, посмотрим его на практике. Возьмем при- 
ложение, написанное в разд. 14.18, и добавим возможность поиска товара. Для это- 
го на форме нам дополнительно понадобится поле ввода и кнопка, по нажатии ко- 
торой будет происходить поиск. По нажатии кнопки пишем следующий код: 

1Е поЕ РабаМо@Яи1е1.АГОТар1е1 .Госаее ( 'Наименование', 

ЕЗ161.ТехЕ, []) ЕВеп 
бПомМеззасще ('Строка не найдена'); 


Здесь мы вызываем метод Госаее для поиска строки внутри текущего набора 


данных. В качестве первого параметра указано имя поля "Наименование", т. е. бу- 
дет происходить поиск значения именно в этом поле. Второй параметр — искомое 
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значение (содержимое поля Е@1к1). Третий параметр совсем пустой, а значит, по- 
сле вызова функции будет выделена строка, в которой поле "Наименование" со- 
держит текст, указанный во втором параметре, причем содержит один к одному. 

‹Запустите программу и попробуйте найти какой-либо товар. Курсор будет пере- 
скакивать мгновенно или оставаться на месте, если вы неправильно ввели название 
товара или ввели несуществующий. 

Теперь добавим еще одно поле ввода и посмотрим, как можно искать по части 
ключа. Создайте для этого поля ввода обработчик события опспапае и в нем на- 
пишите: | 

РасаМоа1е1 .АРОТар1е1.Госаее ('Наименование', 

ЕЯЗ1Е2.ТехЕ, [1оРагЕ1а1Кеу]); 


Здесь уже в качестве третьего параметра указан ключ 1оРагЕ1а1Кеу, Т. е. иско- 
мая строка не обязана совпадать полностью, главное, чтобы начало было одинако- 
вое. Запустите программу и попробуйте ввести: в поле ЕЯ какое-то название то- 
вара. По мере ввода курсор будет перемещаться по набору данных в поиске 
нужного значения. Например, нажав клавишу <х>, курсор окажется на первой 
строке, в которой товар будет начинаться на букву "х". Добавив еще букву "л", 
скорей всего будет выделена строка с хлебом, потому что другого товара Я на "хл" 
припомнить сейчас не могу. 

Поиск может происходить сразу по нескольким полям. Допустим, что вам нуж- 
но найти строку с чипсами, которые стоят именно 4 рубля. В таблице может быть 
несколько строк с чипсами, но вам нужны именно с такой ценой. Для этого в каче- 
стве первого параметра необходимо указать строку, в которой искомые поля пере- 
числены через точку с запятой, а во втором параметре передать массив значений, 
который легко создать с помощью функции УахАггауо{: 

РасаМоац1е1 .АРОТар1е1 .Госаее ( 'Наименование;Цена' 

—,  УакАгкауОЕ ( [ 'Чипсы',4]), []) 


ПРИМЕЧАНИЕ. На компакт-диске, прилагаемом к книге, в папке \Примеры\Глава 14\ 
[осае вы можете увидеть пример этой программы. 


Глава 15 


Создание отчетности 


Мы уже научились работать с базами данных и создали полноценный телефон- 
ный справочник. Но какая база данных без отчетности? Практически всегда возни- 
кает потребность в использовании ее данных в других программах или в формиро- 
вании на их основе документов с целью последующей печати. 

В этой главе будут рассматриваться вопросы, связанные с формированием вы- 
ходной информации (отчетов). Материал базируется на примерах, поясняющих ме- 
ханизмы формирования выходных документов. 

Все примеры будут работать с базами данных, потому что именно при их про- 
граммировании возникает потребность в создании каких-то выходных документов. 
Не имеет смысла формировать сложные БД, которые нельзя документировать (рас- 
печатать) или преобразовать: в другой формат. В связи с этим эта глава также зна- 
комит с преобразованием данных в формат Ехсе|, а также с механизмами формиро- 
вания выходных печатных документов. 

Если вы пока не думаете о создании отчетности, желательно ознакомиться 
с этой главой, потому что здесь будет достаточно много интересных вещей, кото- 
рые мы пока что не рассматривали. Например, в предыдущей главе мы не могли 
рассмотреть все свойства и методы таблицы АротаЪ1е, поэтому были рассмотрены 
только основные ее возможности. 

Существует множество наборов компонентов для формирования отчетности, 
и рассмотреть их все невозможно. На страницах книги мы будем рассматривать 
формирование отчетности на примере ОшсКВерог. На мой взгляд, этот набор ком- 
понентов наиболее простой и достаточно распространенный. Существует более 
мощный вариант, причем российской разработки — Ра{Вером, но он платный, хо- 
тя и стоит каждой копейки, затраченной на лицензию. Информацию о работе 
с Наз(Керог вы сможете найти на компакт-диске, прилагаемом к книге. 

В Рары 7 отчеты ОшсКВером не устанавливаются, но вы можете сделать это 
самостоятельно. Для этого выберите меню Рго}есе | ОрНоп$ и на вкладке РасКа?е$ 
нажмите кнопку А949. Теперь найдите файл ас аг70О.6р1, который должен находить- 
ся в папке Вт, где установлен Ое]ры. Откройте его, а потом закройте окно настро- 
ек проекта кнопкой ОК. 

Не исключено, что в будущих версиях фирма ВоЙап4 отключит возможность 
использования ОшсКВерон. Однако пока он есть, его можно использовать. Даже 
после отключения ОшсККероп в Интернете можно будет найти эти компоненты 
- И установить их вручную. | | 


15 Зак. 1273 
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В Рары 2006 ив Реарь 2007 в установке по умолчанию компоненты О1сККероп 
не устанавливаются. Но несмотря на это, легальные пользователи могут загрузить с 
сайта обновления со всеми: компонентами. Как получить пакет незарегистрирован- 
ным пользователям, я описывать не могу и не буду. Пора уже переходить на ле- 
гальное использование программного обеспечения. 


15.1. Создание отчетности в Ехсе!| 


Первое, с чем мы познакомимся, — отчетность в Ехсе]. Потребность в выгрузке 
данных в Ехсе] может возникнуть у каждого программиста баз данных, ведь ОЁйсе 
установлен в нашей стране практически на каждом компьютере. А это значит, что 
отчетность можно смело переносить между компьютерами и быть уверенным, что 
ее смогут прочитать. 

В этой части будет не так уж много визуальных манипуляций, зато программи- 
рования будет предостаточно. | 

Первое, что мы сейчас сделаем, это добавим на форму нашего телефонного 
справочника (см. гл. 14) одну кнопку, по нажатии которой будет создаваться отчет. 
Можно еще добавить пункт меню Экспорт в Ехсе в меню Файл. Результат этих 
действий вы можете увидеть на рис. 15.1. 


создания отчетности 
в Ехсе! . 


Теперь переходите в редактор кода и сразу же добавьте в раздел изез модуль 
СопоЪ3. В этом модуле описаны все необходимые функции для работы с СОМ- 
объектами (о них пока ничего не говорилось, все еще впереди). 

Теперь создайте обработчик события для кнопки и укажите его же в качестве 
обработчика для пункта меню (если вы его создали). В этом обработчике нужно 
написать код, приведенный в листинге 15.1. 


уаг . 


ХЬАрр, бВеее,Со1лща: Уаг1апе; 


1паех, 1:Тиседег; 
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Беа1п 
ХЬАрр 


ХГАрр. 
ХПАрр. 


ХЬАрр 


Со]: 
Со]. 
Со] мм. 
Соли. 
Сом. 
Соли. 


Со]: 
Соли. 
Сом. 
Со1ит. 


Со1им. 


бВеес: 


ЗпееЕ 
Зпеее 
бВееЕ 
бВееЕ 
бВееё 
бпееЕ 


зпаех 
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: = Сгеакео1еОБ)есе ('Ехсе1.Арр11саЕ1оп'); 
\/15161е:=Ехае; 

МогКБооКк$ .Ааа(-4167); 

.МогкКЪоокК$ [1] .ИогкбрееЕз [1] .Маме:='Отчет'; 

=ХГЬАрр .МогКкКфоок$ [1] .МогКк5Веессз [ 'Отчет'] .Со]иитз; 
СолипитАЕЪ : =20; 

Со]аир 1 АЕВ : =20; 
СоТааа М1 АЕ : =20; 

СоТатли ЕВ :=20; 

Со1 опа АЕВ:=20; 


Соли [1]. 
Со1ти$ [2]. 
Со1иттз [3]. 
Со1Тати$ [4]. 


Со1итп$ [5]. 
=ХГАрр .МогкроокК$ [1] .Могк$Вееез ['Отчет'] .Вомз; 
Комз [2] .Ропе.Во]а: 
Вом$ [1] .Ропе.Во1а: 
Вомз [1] .Ропе.Со]1ох: =с1В1е; 
Вомз [1] .РКопе.512е:=14; 


=6тие; 


=суое; 


=ХЬАрр .ИогКЬоокз [1] „.Иоскзвееез [ 'Отчет']; 
.Се11$[1,2]:='Телефонный справочник!'; 
.Се11$[2,1]:='Фамилия'; 
.Се11$[2,2]:='Имя'; | 
.Се11$[2,3]:='е-ма11'; 


.Се11$[2,4]:='Город'; 
.Се11$[2,5)]:='Дата рождения’; 


:=3; 


ПабаМоаи1е1 .ВоокТаЪ1е.Е1тг$е; 


Еог 1:=0 Бо РабаМоаи1е1 .ВоокКТаБ1е.КесогЯСоипеЕ-1 Чо 

Беач1п | 
‘ЗНеек.Се11з [1паех,1] : =РакаМоди1е1 .ВоокКТаь1е.Е1е14з.Е4е14$[1] .Азбек1па; 
ЗНеее .Се11з [1пдех,2] :=Рабамоди1е1 .ВоокТаБ1е.Е1е19$.Е1е1@з[2].Азбег1па; 
ЗВеек.Се11$ [1паех, 3] : =РабаМо@о1е1 .ВоокТаБ1е.Е1е14$.Е1е1Я$[3].Азбех1па; 
СпееЕ .Се11$ [1п4ех, 4] : =РабаМо@а1е1 .ВооКкТаЬ1е.Е1е1а$.Е1е19$[5].АзЗеЕг1па; 


Зпеее.Се11$ [1паех, 5]: 


Трос 


=РГогтаепасеТлте ( 'аааааа', 
РазаМо@и1е1 .ВоокТаБ1е.Е1е1Я$.Е1е1Я$[6].АзракеТ1те); 


(1раех); 


ПасаМоа\1е1 .ВоокТаЪ1е.Мехе; 


епа; 


Первая строка кода создает объект Ехсе1 и записывает его в переменную хГАрр 


ХЬАрр:= Сгеабео1е0Ъ)есе ('Ехсе1.Арр11саб1оп')) 
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° Эта переменная типа Уах:апе. Тип данных Уаг1апе может принимать любые 
значения: строки, числа, указатели и др. 
Функцию сгеаке01е0Ъ3есЕ сейчас подробно рассматривать не будем, потому 
что она не относится к базам данных или отчетности и требует отдельного разгово- 
ра..Единственное, что сейчас надо сказать, — это то, что она позволяет наладить 
связь с другим приложением по технологии СОМ. Через эту связь можно переда- 
вать данные в другие приложения. Для этого программа, с которой происходит со- 
единение, должна иметь соответствующие возможности для получения данных 
_ извне (как, например, Ехсе!). Поэтому вам должны быть известны функции, с кото- 
рыми можно работать. 


_ ПРИМЕЧАНИЕ. Чаще всего такие вещи документируются на сайте разработчиков. 
В одной книге нереально описать все возможности всех программ, потому что если 

_ это сделать, то "Война и мир" покажутся детской колыбельной. Этого никому не нуж- 
но. Так что рассмотрим только Ехсе|, чтобы на этом примере показать возможности 
передачи данных между приложениями. 


Вторая строка кода заставляет отобразить Ехсе]. Потом добавляется новая рабо- 
чая книга (ХГАрр.МогКкроокз.АЯа(-4167)). 


ВНИМАНИЕ. Число в скобках — это константа, которая означает создание книги, и ее 
изменять нельзя. Подробнее обо всех константах вы можете почитать в руководстве 
разработчика на сайте М$ или в файле ехсе!97.раз. Однако немного позже будет по- 
казан один интересный прием, с помощью которого вы всегда сможете определить 
необходимую константу для Ехсе|. 


Дальше формируется название созданной книги: 

ХГАрр .МогКЪоокз [1] .Иогк$Веее$ [1] .Маме:='Отчет' 

Это действие не обязательно, но его желательно проделать, потому что название 
по умолчанию будет — "Лист |". 

Теперь у нас Ехсе| запущен и создана новая книга. Можно переходить к перено- 
су данных. Но прежде чем это сделать, давайте отформатируем колонки и строки. 
Для этого надо получить указатель на колонки рабочей книги: 

‚Со]1ит:= ХГАрр. МогКБоок$ [1]. МогК$реессз [ 'Отчет']. Соаи$) 

Результат записывается в переменную со1иш Типа Уах1апе. Теперь последова- 
тельно изменяем ширину колонок: 

Сом. Сотип5 [1]. Сола АЕЛ := 20: 

На русском языке эта команда будет звучать так: 


‚Колонки. Колонка [1] „.ШиринаКолонки: =20. 


После этого в ту же переменную записываем указатель на строки рабочей КНИГИ. 

Сота := ХЬАрРр.. МохКкроок$ [1]. Могк5реёе$ ['Отчет']. Вомз$) 

Для ‘украшения строк нашего отчета устанавливаем у первых двух строк жир- 
НЫЙ шрифт: 

Сома. Комз [1]. Ропе. Во1А := Егае 

В квадратных скобках теперь порядковый номер строки. Далее идут две строки, 
в которых устанавливается цвет первой строки в синий и размер шрифта, равный 14. 
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Форматирование окончено, теперь можно передавать (выводить) данные. 
Для этого получаем указатель на лист: 
брее : =ХПАрр .МогКкБоок$ [1] .Мо’хк5веексз [ 'Отчет')]) 


Для того чтобы вывести данные, нужно просто присвоить значение в 
ЗВеее.Се11з[строка, колонки]. 


Посмотрим на код вывода данных таблицы: 
1паех:=3; 
ПабаМо@и]е1 .ВоокТаЪ1е.Е1у5е; 
Еог 1:=0 Со ПабаМоао1е1 .ВоокТаБ1е .ВКесогЯСоцп*-1 ао 
Беа1п 
ЗпееЕ.Се11$ [1паех, 1] : =РабаМоЯи1е1 .ВоокТафЪ1е.Е1е1а$.Е1е19$[1] .Аз5еу1па; 
Зпеее.Се11$ [1п9ех, 2] : =РакаМо@1е1 .ВоокТаЪ1е.Е1е19$5.Е1е1Я$[2] .Азбег1па; 
ЗВеее.Се11$ [1паех, 3] : =РабаМо@и1е1 .ВоокТаЪ1е.Е1е14$ .Е1е1а$[3].Аз5Ег1па; 
ЗВееЁ.Се11$ [1паех, 4] : =РабаМо@1е1 .ВоокТаЪ1е.Е1е1а5.Е1е19$[5].АзбеЕг1па; 
ЗВееЕ.Се11$ [1п4ех, 5] :=Рогта Рае еТ1те ('аааааа', 
РасаМо@и1е1 .ВоокТаф1е.Е1е19$.Е1е195 [6] .АзРаееТ1не); 
Тпс (1паех); , 
РасаМоЧи1е1 .ВоокТар1е.Мехс; 


епа; 


Здесь сначала задается переменной 1паех значение 3. Эта переменная будет 
отображать, в какую строку таблицы Ехсе| сейчас должны выводиться данные. 
Первые две строки у нас уже заняты заголовками для отчета, поэтому данные нуж- 
но начинать выводить с третьей строки. 


ВНИМАНИЕ. Обратите внимание, что строки и таблицы в Ехсе! нумеруются начиная 
с единицы, а не с нуля, как в остальных таблицах и массивах. 


После этого мы переходим на первую строку таблицы в базе данных с помощью 
метода г1хзЕ компонента АдотаЪ1е. Это необходимо, потому что пользователь мо- 
жет перед нажатием кнопки отчета выделить любую строку в середине таблицы, 
и в этом случае отчет пойдет от этой выделенной строки. 

Теперь подготовлены условия для запуска цикла, в котором будут перебираться 
все строки и информация из них будет попадать в Ехсе|. Цикл запускается начиная 
с О и продолжается до достижения значения количества строк в таблице. Таким 
образом мы переберем все записи. | 

Почему в качестве цикла используется именно конструкция Еог...Ео...ао? 
Просто здесь удобней так. Иногда можно использовать цикл и 11е. С ЦИКЛОМ мВ11е 
этот код выглядел бы так: | 

\211е РабаМоди1е1 .ВоокТаЪ1е.ЕоЕ<>Ехае Ао 

Беа1п 

//Вывод данных в Ехсе]1 
Увеличение переменной 1паех; 
Переход на следующую строку; 
епа; 
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‚ В принципе, здесь все то же самое, только используется цикл мр11е. Этот цикл. 
удобнее использовать, когда нужно вывести не всю таблицу, а только ее часть. На- 
пример, только начиная с текущей позиции. В этом случае не надо будет перед 
циклом переходить на первую строку, а достаточно только запустить этот цикл, кото- 
рый будет ВЫПОЛНЯТЬСЯ, ПОКа РасаМо@ац1е1 .ВоокТа1е.ЕоЕ не станет равным Егоце, т. е. 
не будет достигнут конец таблицы. . 


ВНИМАНИЕ. Не забывайте внутри цикла переходить на следующую строку. Если вы 

забудете это сделать с циклом Еох, то у вас в Ехсе! попадет столько же строк, сколько. 

и в таблице, но все они будут одинаковыми (равны первой строке таблицы). Ну а при 

цикле м1111е программа зависнет, потому что цикл будет бесконечным, ведь конец 
` таблицы никогда не будет достигнут, если не переходить на следующие строки. 


Теперь поговорим о выводе Данных. Мы последовательно заполняем колонки, 
присваивая в 5пеее.Се11$ [номер строки, номер колонки] соответствующие данные 
из таблицы. Данные из БД берутся по индексу (до этого мы обращались по имени, но 
здесь используется индекс). Для этого используется следующая конструкция: 

РабаМо@а1е1 .ВоокТаЪ1е.Е1е1а$.Е1е1а$ [Номер поля].Аз5Ехг1п9 


После очередного вывода увеличивается значение переменной тпдех, чтобы на 
следующем этапе выводить данные в следующую строку И затем перейти на новую. 
В принципе, это и все. Однако здесь необходимо еще учесть несколько замеча- 
ний и рассмотреть универсальный способ вывода данных из сетки: ‘ 
Бог 1:=1 Ко Тае.ВесокАбоипе ао 
Беа1п | 
Рог ):=1 $о ОВСг1а.СоТаит5’.СомпЕ Яо 
ЗВеее.Се115$ [Тидех, )]:=ОВСг1а.Е1е195 [3]-1].АзЗег1па; 


Тис (Тпаех); 
ТаБ1е.Мехе; 
епа; 


Это просто общий пример, не связанный с нашей программой. Здесь также за- 
пускается цикл ‘по всем строкам таблицы. Но вывод данных происходит по-новому. 
Для этого запускается еще один цикл от | до значения количества колонок в сетке 
рвсг:а. Внутри этого цикла очередной колонке Ехсе| присваивается значение из 
такой же колонки сетки рвсг1а: 

ЗЪееЕ.Се11з [Номер строки, Номер колонки] := 


ОВСх1а.Е1е1Я$ [Номер колонки в сетке].Азбехг1та; 


Этот способ более универсален и может подойти почти всегда, когда надо вывес- 
ти все содержимое сетки овсг1а и все данные одного типа. В нашем случае в таблице 
есть дата, поэтому, чтобы она красиво выглядела, ее надо форматировать с помощью 
ЕохтаЕРакеТ1те. Так что прямой перенос для этой колонки был бы не очень удобен, 
но остальные колонки можно было бы перенести указанным способом. 

В процессе вывода данных можно изменять простым присваиванием цвет строк — 
ЗВееЕ.Комз [строка] .РопЕ.Со1ог ИЛИ КОЛОНОК — 5$Веее.Со1иитз [колонка].Ропе.Со1ог 
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(как мы это делали при форматировании). Если нужно изменить цвет отдельной ячей- 

ки, то это можно сделать, присвоив новое значение в 5НееЕ.Се11$ (строка, колонка]. 

Копе .Со]ох. | | 
Вот еще некоторые’ параметры, которые можно изменить: 

С зеее.се11$[строка, колонка] .РопЕ.тка11с — курсивный шрифт; 

С 5веее.Се11$[строка, колонка] .Ропе.Во1а — жирный шрифт; 

С зпеее.Се11з[строка, колонка] .Еопе.Опаег11пе — подчеркнутый шрифт; 

С зтееЕ.Се115[строка, колонка] .РопЕ.51=2е — размер шрифта. 


ПРИМЕЧАНИЕ. С помощью всего этого создаются простые, но эффективные отчеты. 
В Оеры в папке ЦБ есть файл ехсе!97.раз. В нем вы найдете все доступные функции 
Ехсе!. Если что-то будет не ясно, то отложите их изучение. Чуть позже у вас появится 
достаточно навыков для понимания структуры заголовочных файлов. 


У нашей программы остался один недостаток — она выводит данные только из 
основного Справочника и не учитывает телефоны. Чтобы избавиться от этого недос- 
татка, можно написать отдельный ЭОГ-запрос, который будет формировать сводную 
таблицу Из наших двух. Этот запрос можно поместить в отдельный компонент 
АРООцегу, ВЫПОЛНИТЬ его И брать данные из запроса, а не из таблицы ВоокТаБ1е. 

° Вот пример запроса, который выбирает все строки из двух таблиц, формируя 
отдельную базу данных. 
_ЗЕБЕСТ * 
ЕКОМ Справочник, Телефоны 
УНЕВЕ Справочник.Кеу1=Телефоны.Г1пККеу 


На рис. 15.2 вы можете увидеть результат работы программы. Вот так выглядит 
созданная отчетность. — 


ПРИМЕЧАНИЕ. На компакт-диске, прилагаемом к книге, в папке \Примерь\Глава 15\ 
Ехсе! вы можете увидеть пример этой программы. 


4 Мисго$о К Ексе! - Лист! 


38] сайт рр Вид Вставка Форнат Сре Данные Окно” Справке <_< Нездите опрос 


{2392-98 мысу сме ЕЕаЕНЯХ 


и ЕАН О, ЗОН ПОНИ ИНН 

[телефонный справочник т и | 

| 2 Фамилия "Имя | 2. ®-май О Город _. Дата рождения 
З Иванов О д .. РОбтов-НаДону 12 Декабрь 2002 г. 

А Мир ЗО Январь 2912г.._ 
6 идоров. _ 22 Март 2002 г. 
6 Смирнов о Андрей 'Ростов-на-Дону. ___ 30 Двкабрь 1899 г 


Рис. 15.2. Результат работы программы 
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Теперь рассмотрим один интересный прием, с помощью которого вы сможете 
сделать практически все, что угодно, при выводе отчетности в Ехсе]. Допустим, что 
вам надо отформатировать ячейку по правому краю. В нашем отчете все ячейки 
выровнены влево, а надо вправо. Для этого запускаем Ехсе!. Выбираем меню 
Сервис | Макрос | Начать запись. Перед вами откроется окно, показанное на 
рис. 15.3. В нем все можно оставить по умолчанию и нажать ОК. Таким образом, 
вы запустили запись макроса. Напечатайте в 
какой-нибудь ячейке текст и установите вы- 
равнивание по правому краю. Теперь остано- 
вите запись с помощью пункта меню Сервис | 
Макрос | Остановить запись. 

Выберите меню Сервис | Макрос | Мак- |... 
росы, и перед вами откроется окно со спи- а Е, 
ском макросов. Выделите имя созданного | Макро ны 2003 ке 
макроса и нажмите кнопку Войти. В рассмат- |= о 
риваемом примере макрос один — Макрос1. 

Если у вас ОШсе ХР, то после окончания 
записи макроса окно выбора может не поя- 
виться. В этом случае выберите меню Сервис | 
Макрос | Редактор У15иа! Бас. Перед вами 
откроется окно редактора скриптов, как показано на рис. 15.4 (код на языке Вазс, 
который выполняет \№ога). Слева вверху вы можете увидеть дерево с элементами 
проекта. В разделе Модше$ найдите свой макрос и дважды щелкните по нему 
кнопкой мыши. Откроется редактор У15иа| Ва$1с; в котором будут записаны на 
языке Ваз1с все выполненные действия (листинг 15.2). 


Запись макроса 


`инян макроса: и Е 


р ак рос 


Рис. 15.3. Окно запуска мастера 


а Мсгозой Увша! Ваз - ист! - [Модше1 {СоЧе)] 
мо Ее | ЕЕ Мей прзей: - Рота . `беБид ^. Вип. 


55 акров () 


‘' Макрос1 Накрос 
в Лист! (Отчёт) Иакрос записан 12.12.2003 (Е1епо\м! 
В и ЭтаКнига_ 
55 Мо4це$ , 
$ Моде! 


Вапсе ("СЭ") .5е1есес 
Асс1\уеСсе1].Рогиа]аВ1С1 = "аа" 


о ; п $-М и " к 3} ее не -1 ре Капде ( "С10 ") . Зе1есе 
————— {| Ема 5% 
[Модще Модуе „= _ 


`АргаБецс” | Сакедоигед 1. 


Рис. 15.4. Редактор М!зца! Вазс 
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ба Макрос1 () 
' Макрос1 Макрос 


' Макрос записан 10.10.2003 (Е1епоу) 


Асе1уеСе11.Рогпи]1ак1С1 = "1111" 

ВБапае ("А1") .бе]есе 

ИЗЕБ бе1есе1оп 
.Ногх12оп6а1А11аптепе = х1ВлавеЕ 
.УегЕ1са1А1]1отпмепе = х1Воббом 
.ИгарТехе = Еа1зе 
.ОглтепбаЕ1оп = 0 
.АаЧТпаептЕ = Ра1зе 
.ТраепеГехуе]1 = 0 
.СПЕ1оКТоЕ1е = Еа1зе 
.КеаЯ1паОхгаехг = х1Сопеехёе | 
.МегдцеСе11$ = Ра1зе 

Епа И1ЕВ 

Епа 5иЪ 


ПРИМЕЧАНИЕ. Даже если вы не знаете язык Миа! Вазс, в этом коде разобраться 
достаточно легко, если у вас есть хоть малейшие представления об английском 
языке. 


Выравнивание вправо на английском языке пишется как 1120. Ищем строку, со- 
держащую это слово: . 
.Ног12оп6а1А11аптепе = х1В1арЕ 


Здесь свойству Ног1хопеа1А11апмепЕ присваивается выравнивание х1в1ане. 
В идеальном варианте вы можете в Рер написать: = 
ЗВеее.Се11$[строка, колонка] .Ног12хопеа1А11апщепе : =х1К1а6е; 


Но это идеальный вариант, а в реальной ситуации Веры не поймет константу 
х1в1ане. Вы можете ее поискать в заголовочном файле, о котором мы говорили или 
вернуться в редактор У15иа| Ваз1с и просто установить на нее указатель мыши. 
У вас должна появиться подсказка с числовым значением константы — 4152. По- 
лучается, что мы легко можем написать в Вер следующую строку: 

ЗпееЕ.Се11$[строка, колонка] .Ног12оп6а1А11апщепе:=-4152; 


Таким образом, если вы хотите применить какое-то форматирование или вы- 


полнить какое-то действие, но не знаете, как это сделать, то просто запишите мак- 
рос и посмотрите его исходный код. 
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15.2. Отчетность в \!ога 


После выхода первой версии данной книги мне очень часто приходили письма 
с просьбой описать, как можно выгружать отчетность в Мисгозой \У/огд. Честно гово- 
ря, мне тогда не приходилось делать что-либо подобное, и я даже не знал, что отве- 
чать. Но недавно мне пришлось это делать самому в своей программе, поэтому я был 
вынужден ' разобраться, как работать с \ог4. Оказалось, что существует несколько 
вариантов, но я опишу тот, который мне понравился, и я сам использую его. 

Итак, допустим, что у вас есть шаблон какого-то документа, например, заявле- 
ния на отпуск. В этот шаблон`необходимо только подставлять текущую дату и фа- 
’милию (например, брать фамилию сотрудника из базы данных) и выводить на эк- 
ран. После этого пользователь может как-то обработать документ или просто 
переслать по электронной почте. 

Создайте новый документ в программе М$ У/ог4 и напишите какой-нибудь 
текст документа. В конце поставьте следующие три строки: 


ФИО: 
Дата: 
Подпись: 


Подпись вывести из БД проблематично, а вот с фамилией и датой проблем ни- 
каких. Но для этого нужно сделать еще одно подготовительное действие. Нам при- 
дется программно позиционировать курсор в ту позицию, куда должен выводиться 
текст; и если в таблице Ехсе] для этого использовались пронумерованные ячейки, 
имеющие жесткую позицию, то здесь этого нет, и один лишний пробел в тексте 
может создать серьезные проблемы с позиционированием. 

Чтобы программно установить курсор именно в ту позицию, в которую нужно 
выводить тест, можно использовать закладки. Например, фамилия должна печа- 
таться после текста "ФИО". Установите в эту точку курсор и выберите меню 
Вставка | Закладка. Конечно же, это нужно делать в \/ог4а. Перед вами откроется 
окно управления закладками. Введите имя новой закладки в поле наверху окна, на- 
пример, ЕО, и нажмите кнопку Добавить. ` 

Таким же образом ‘добавьте закладку с именем Рае после текста "Дата:" в тек- 
сте документа. Сохраняем документ в файле с именем РосТетр!ае. дос и перехо- 
дим к программированию. 

Создайте новый проект и поместите на форму одну кнопку, по нажатии которой 
нужно написать следующий код: 

уаг 

‚ МогЯАрр, Яос:\Уах1апе; 

Беач1п 

сху 
МогаАрр: = СгеаЕео1е0ОЪ]есек ( 'Мога.Арр11са®1оп'); 
Чос : =МогЯАрр .Чаосимепе$ .Ореп ( 
ЕхЕгасеЕ11еРаЕВ (Арр11саЕ1оп.Ехемате) + 'ГосТетр1абе.Яос'!); 
МогдАрр . АсЕ1уероситепе .ЗауеАз (_ 
ЕхегасеЕ11ераен (Арр11саЕ1оп.Ехемаме) +'РосТетр1аЕе1.4ос'); 
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ИогаАрр .\/13151е:=Егие; 
`Могадрр. $е1есЕ1оп.СоТо(-1, ипАзз1апеЯа, ипА$$1апеЯ, 'ЕТО'); 
МогаАрр .5е1есЕ1оп .ТуреТехе ('Фленов Михаил'); 


‚ МогаАрр.5е1есЕ1оп.СоТо(-1, ипАз51апеЯ, опАз51апеа, 'Рабе'); 
МогаАрр . бе1есе1оп .ТуреТехе (Еогпа(ПакеТлле ('аааааа', Расе)); 
ехсер+е | 

епа; 


епа; 


Начало кода такое же, как и при работе с Ехсе|, а именно — создание нового 
ОГЕ-объекта, только для работы с У/ог4. После этого загружаем документ из шаб- 
лона ОосТетр!ае.4ос. Для этого используется метод доситмепез$ .Ореп. 

Теперь мы будем изменять текст шаблона, но чтобы пользователь случайно не 
сохранил изменения в шаблон, можно поступить двумя способами: 


С установить на файл флаг только для чтения и тогда У/ога не даст сохранить из- 
менения в файл шаблона, а попросит ввести новое имя; 


О можно тут же сохранить файл под новым именем, чтобы изменения сохранялись 
в него, а изначальный шаблон останется нетронутым. 


В данном примере используется второй метод, и чтобы сохранить текущий до- 
кумент под новым именем, используется метод АСЕ1еросимепе .бауеАз. В качестве 
параметра этому методу нужно передать новое имя файла. 

После этого делаем документ видимым, выполняя следующую строку: 

МогаАрр .\1$151е:=Етхие; | 


Теперь мы готовы к выводу информации в шаблон. Для этого нужно перейти в точ- 
ку, где должен печататься текст, а потом напечатать его. Чтобы перейти на закладку, 
используем метод 5е1есЕ1оп .боТо, а чтобы напечатать текст — $е1есЕ1оп.Туретехе. 

Вот и все, этого достаточно для решения большинства задач, по крайней мере 
мне никогда и ничего больше не было нужно. 


ПРИМЕЧАНИЕ. На компакт-диске, прилагаемом к книге, в папке \Примеры\Глава 15\ 
ога вы можете увидеть пример этой программы. 


© 


15.3. Отчетность в Ошск Вером$ 


Теперь познакомимся с мощным средством создания отчетов, которое входит 
в поставку Ое]р№1, — генератор отчетов ОшсК Верог5. Он не является самым быст- 
рым, и в сети Интернет можно найти множество более быстрых, как платных, так 
и бесплатных, генераторов отчетов. Но ОшсК Керог($ очень мощный, к тому же он 
установлен в Реры и готов к работе. Именно поэтому мы будем рассматривать 
именно его. | 

Все компоненты Ошск Верой находятся на вкладке ОВерогЕ палитры компо- 
нентов. В Реры 6 23 компонента, позволяющие создать довольно сложные по сво- 
ей структуре документы, готовые к печати. 
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Для начала давайте посмотрим на головной компонент ОшсКкК Кером$ — тои1скВер. 
Этот компонент — основа любого отчета. Он представляет собой холст листа бу- 
дущего отчета. Попробуйте дважды щелкнуть мышью по значку этого компонента 
в палитре компонентов, и он автоматически будет перенесен на форму. Вам надо 
выровнять края компонента по форме, и вы увидите готовый белый лист, на кото- 
ром можно будет размещать ваш документ. По краям листа находятся синие пунк- 
тирные линии, которые показывают границы документа. 

Давайте посмотрим на объектный инспектор и разберемся с полями отчета. 


СО вапаз — здесь вы можете указать, что должен иметь будущий документ. А он 
может содержать целый ряд инструкций, касающихся его оформления: 


® НазСо1итпНеа4ег — заголовки колонок. Если ваш отчет будет содержать 
таблицу, то она должна иметь шапку, где будут определены названия коло- 
нок. Вот именно эту шапку создают в этой части документа. Так что если вам . 
нужна будет таблица, то этому свойству нужно будет присвоить егие; 


® Назрега:1 — если в отчете есть таблица, то вид строк формируется в этом 
разделе; | 

»® НазРадероокег — в этом разделе создается нижний колонтитул; 

»® НазРадеНеаег — здесь создается заголовок документа; 


® Назбиштагу — содержимое этого раздела печатается один раз в конце отчета 
(на последней странице); 


е® НазТ1Е1е — в этом разделе делается заголовок отчета. 


ПРИМЕЧАНИЕ. Попробуйте создать новый проект и установить на форму один ком- 
понент Оц1сКВер. Теперь включите какие-нибудь разделы и посмотрите на результат. 
На форме должны появиться области, очерченные пунктирной линией. Внизу области 
должно быть написано ее назначение. Так вы легко сможете отличить их друг друга. 
Любую область можно выделить и растянуть или уменьшить (рис. 15.5). 


Расазее — здесь указывается таблица, из которой отчет будет брать данные. 
копЕ — шрифт, который будет использоваться по умолчанию. 
ггаше — параметры рамки. | | 


Оооо 


ОрЕ1оп$ — здесь вам доступны три параметра: 


® Е1хзсРрадеНеааег равно Егие — заголовок печатается только на первой стра- 
нице отчета; 


® ГазСРадеРоосег равно Егае — нижний колонтитул печатается только на по- 
следней странице отчета, 


® Сопрге551оп установлено в егое — отчет будет сохраняться в сжатом виде. 


О Раче — здесь определяются все необходимые опции для контроля над бумагой 
отчета. Вы можете установить ее размеры, отступы и ориентацию. 


О рг1пеегбеее1па$ — настройки принтера. С принтером мы уже работали, да 
и настройки практически не требуют пояснения. | 


С верог%еТ1Е1е — заголовок печатаемого документа. 
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Рис. 15.6. Окно настроек отчета 
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О зномркгоагезз — если этот параметр равен ехиае, то во время печати вам будет 
доступен индикатор хода выполнения печати. | 

О зпартобк1а — определяет, нужно ли выравнивать компоненты по установлен- 
ной сетке. 

О 7оом — масштаб отображения данных. 

Если дважды щелкнуть по компоненту оз1сквВер, то перед вами откроется окно, 
в котором представлены все эти настройки в очень удобном виде. Они достаточно 
понятны, и с ними легко можно разобраться самостоятельно (рис. 15.6). 

Пока теории хватит, давайте посмотрим, как же действует отчетность. Откройте 
телефонный справочник, созданный в предыдущей главе. Добавьте на панель кноп- 
ку печати, а обработчик события 0пс11ск мы напишем чуть позже. 

Сейчас будем создавать форму отчета. 

Создайте новую форму (назовем ее керогегоги) и сохраните в модуле 
КерогЕРогтОп1е. Сразу же подключите к этому модулю модуль данных (РакаМоди1е), 
где у нас хранятся компоненты доступа к таблицам базы данных. 

Установите на форму компонент оч1скВер. Выделите этот компонент и в объ- 
ектном инспекторе включите параметры назТ1Е1е и Назрека11 свойства Вапд$з. 

Теперь нужно в этих секциях расположить компоненты, которые будут отобра- 
жать нужную нам информацию. На вкладке Огерогё палитры компонентов досту- 
пен ряд компонентов, которые.можно располагать в этих разделах. 

О овгаье1 — надпись. Этот компонент похож на стандартный тЬаъе1 и просто. 
отображает нужные данные. 

П ововтехЕ — данные. Этот компонент тоже похож на ТЬаЪе1, только он предна- 
значен для отображения значения какого-либо поля из базы данных. Тип поля 
БД должен быть совместим с текстом, т. е. может быть целым числом, строкой, 
датой, но не может быть картинкой или бинарными данными. 

С овзузраса — системная информация. Это опять копия тьаЪет, Только с возмож- 
ностью отображать системную информацию: дату, время, номер страницы, но- 
мер строки в таблице, общее количество страниц ит. д. 

О овмемо — набор строк. Этот компонент похож на тмемо и способен отображать 
Мешо данные из базы данных. 

О овзъаре — компонент для создания обрамлений. Он чем-то похож на стандарт- 
НЫЙ Т5заре. 

О овтиаде — картинка. Компонент, похожий на ттпасде. 

Теперь примемся за оформление отчета. Выделите область заголовка (такте) 
и увеличьте ее размер примерно в два раза. В правый верхний угол области (именно 
области т1Е1е, а не компонента оц1сккер) поместите один компонент овзузрака. 
Выделите его и в свойстве раса выберите значение ахзрасеТ1ще. Теперь этот ком- 
понент будет отображать в правом, верхнем углу дату распечатки документа. 


СОВЕТ. Рекомендуется всегда это делать, чтобы вы сразу видели, какая версия до- 
кумента была распечатана последней. 


В центр области поместите компонент овгаъе1, увеличьте шрифт в свойстве гопе 
и напишите в свойстве сарЕ1оп текст "Распечатка строки из базы Телефонов". 
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Слева области можете установить картинку овтмаде, чтобы убедиться, что работа 


с ней ничем не отличается от работы с компонентом ттмаде. 
Результаты работы вы можете увидеть на рис. 15.7. 


'}- ВероРогл 


{Оае/те) 


Рис. 15.7. Вид заголовка нашего отчета 


Теперь переходим к области рега11. Здесь давайте выстроим в строку пять 
компонентов ОвГаье1 и дадим им заголовки: "Фамилия", "Имя", "е-тай", 
"Город", "Дата рождения". Под ними поставьте пять компонентов овровТехе. 
У всех установите свойство ракабеЕ В РакаМо@и1е1.ВоокТаЪ1е, а в свойстве 
РакаЕ1е1а укажите соответствующие г поля. В результате должно получиться что- 
то похожее на рис. 15.8. 


та Веро Рог 


Г. я 
Фамилия 
ь = 


Г. я 
Фамилия 
ь и] 


Рис. 15.8. Вид блока Рега11 
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Теперь переходим в главный модуль и По нажатии кнопки печати напишем сле- 
дующий код: | 

ргосеацге ТМалпРотм. Ру1пЕВа 6 опС11ск (бепаег: ТОБ)есЕ); 

Бед1п | 

Веро’гЕРога.Оц1скККер1 .Ргеху1е\мМо@а1 ; 

епа; 

В этом коде вызывается метод РгеулемМоЯа]1 компонента оц1скККер. Этот метод 
модально показывает окно предварительного просмотра созданного нами докумен- 
та. Попробуйте запустить программу, выделить какую-нибудь строку и нажать 


кнопку печати. Перед вами откроется окно предварительного просмотра, как на 
рис. 15.9. 


#Р РЕМЕ Ргеме 


12.12.2003 18:23:20 


Распечатка строки из базы Телефонов 


Фамилия Город Дата рождения: 


Иванов Ростов-на-Дону 12 Декабрь 2002 г. 


Фамилия Город Дата рождения: 


Петров Питер 30 Январь 2312 г. 


Фамилия Город Дата рождения: 


Сидоров _ Москва 22 Март 2002 г. 


Фамилия Имя е-тай Город Дата рождения: 


Смирнов Андрей апдгеу@тан.пи Ростов-на-Дону 10 Октябрь 1992 г. 


пела мт маори вкл обода кол Гозллдлкя плота и Алле лад ллаадяллжщлл ААА чья аа рат дани лу ожил о ви пллжллхолл пложчатА 


ТТ Фаете т 


Рис. 15.9. Окно предварительного просмотра 


В этом окне достаточно нажать кнопку печати, и документ будет распечатан на 
принтере. 


ПРИМЕЧАНИЕ. На компакт-диске, прилагаемом к книге, в папке \Примеры\Глава 15\ 
ОшскВер вы можете увидеть пример этой программы. 
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15.4. Печать таблиц с помощью Ошск Вером$ 


Как видите, создание отчетности с помощью ОшсКк Кероп$ — задача не сложная. 
За каких-то 10 минут мы создали красивый и удобный отчет, который легко распеча- 
тать. В нем мы подготавливали к печати одну запись из таблицы. Но что делать, если 
нужно распечатать все записи базы данных? Неужели нужно для каждой строки ста- 
вить отдельные компоненты? Конечно нет, все делается очень просто. 

Откройте пример из прошлой части. Сейчас мы его скорректируем. 

Откройте модуль вВерохгЕГРоги, где находятся компоненты отчетности. Выделите 
Оц1сКкВер1 И В СвОЙСТве ВапЯз установите гие у параметра назСо1иппнеадек. 
На форме появится новый блок Со1ищп Неадех, который можно использовать для. 
создания заголовков таблиц. 

Теперь, удерживая клавишу <Си]>, обведите все компоненты овгаъе1 в блоке 
Рега11Вапа1. Выберите из меню Е@Й пункт $, чтобы вырезать компоненты и пере- 
дать их в буфер обмена. Теперь выделите блок со1иппНеадехВапа1 и выберите из 
меню Е@ пункт Рае, чтобы вставить вырезанные компоненты из буфера обмена 
в блок Со1итпНеадехВапа1. | 

_ Снова выделяем компонент оц1скВер1 и в свойстве ракабее указываем таблицу 
РасаМо@\11е1 .ВооКкТаЪ1е. Если сделать это, то компонент оз1сквВер1 автоматически 
будет перебирать все записи из этой таблицы и использовать их в компонентах, 
которые стоят в блоке река11Вапа1. Как уже говорилось, этот блок предназначен 
для создания строк таблиц, так что теперь вы можете увидеть это на практике. 


&" Рени Ртеме 


12.12.2003 18. 24.37 


Фамилия . Город Дата рождения: 


Иванов Ростов-на-Дону 12 Декабрь 2002 г. 
Питер 30 Январь 2312 г. 
Москва 22 Март 2002 г 


апдгеу@тай.пл Ростов-на-Дону 10 Октябрь 1992 г. 


Рис. 15.10. Окно предварительного просмотра 
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Запустите программу и нажмите кнопку печати. Перед вами должно открыться 
окно, показанное на рис. 15.10. Как видите, блок заголовка и со1аппнеадехгВапа1 
распечатались только по одному разу, а блок река11Вапа1 был напечатан для каж- 
дой строки таблицы. Блок заголовков колонок будет печататься по одному разу 
вверху каждой страницы, а после него будут идти строки таблиц. 

В принципе, на этом можно было бы закончить разговор, но мы же создаем таб- 
лицу, а для этого нужно нарисовать сетку. Вот тут можно заметить единственный 

недостаток отчетности с помощью ОшсК Вером$ — каждую ячейку придется рисо- 
вать отдельно с помощью компонентов овзЪаре. 


ВНИМАНИЕ. На компакт-диске, прилагаемом к книге, имеется программа, которая 
формирует рамку. С ней вы можете тренироваться в оформлении таблиц. 


ПРИМЕЧАНИЕ. На компакт-диске, прилагаемом к книге, в папке \Примеры\Глава 15\ 
ОшскВер1 вы можете увидеть примеры программ, рассмотренные в этом разделе. 


15.5. Печать связанных таблиц 


У нас уже получился достаточно хороший отчет, но теперь еще более усложним 
задачу. В телефонном справочнике используется связанная таблица, и хотелось бы, 
чтобы в выходном документе печатались все телефоны, принадлежащие людям. 
Можно снова написать ЗОГ.-запрос, который будет создавать сводную таблицу из 
двух, и потом использовать этот запрос для отчета вместо таблиц, но это не выход. 

Поместите на форму отчета еще один компонент — овЗиЪоеса11 с вкладки 
ОКерог(. Этот компонент предназначен для перебора данных, относящихся 
‘к подчиненным таблицам. 

Установите у него следующие свойства: 


О расабее — здесь установите ракаМоди1е1.Те1ерпопТаЪ1е, чтобы связать блок 
с таблицей Телефоны, которая у нас является подчиненной к основному спра- 
вочнику; 


С] мазекех — здесь нужно указать главный компонент с основными данными (вы- 
берите в этом СВОЙСТВе Оц1сКВер1). 


Теперь поместите на этот блок компонент овгаье1, чтобы сделать надпись 
"Телефон". Справа от него поместите компонент овровтехе. У него установите свой- 
СТВО Расабек В РасаМо@и1е1 .Те1ернопТаЪ1е, а СВОЙСТВО РакаЕ1е1а в "Телефон". 

Теперь можете запускать программу. Нажмите кнопку печати, и если вы ввели 
в свою базу данных хоть какие-нибудь телефоны, у вас должно получиться нечто 
похожее на показанное на рис. 15. 1]. 


ПРИМЕЧАНИЕ. На компакт-диске, прилагаемом к книге, в папке \Примеры\Глава 15\ 
ОускВер2 вы можете увидеть пример этой программы. 
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„Г РипЕ Ргеуюм 


О: к сн Ва 


12.12.2003 18:26:18 


Распечатка строки из базы Телефонов 


Фамилия Имя Город Дата рождения: 
Иванов Ростов-на-Дону 12 Декабрь 2002 г. 
Телефон: 2555555 Мобильник Да 


Телефон: 4003535 Мобильник Нет 


Петров Питер 30 Январь 2312 г. 


Телефон: 2454545 Мобильник Нет 


Телефон: 9802456550 Мобильник Нет - 


Сидоров , Москва 22 Март 2002 г 


Телефон. 02 Мобильник Нет 
Смирнов Андрей апдгеу@тан ги Ростов-на-Дону 10 Октябрь 1992 г. 


. Тапефлы: КА обла пе ыы м. 
мия и алиса уе мило ет ити кое т поимки еще поели. иен идиот 
у И А трет утят 7У: 


и ртиГ 


Рис. 15.11. Окно предварительного просмотра 


„ 


15.6. Дополнительные возможности 


Здесь будут рассмотрены некоторые возможности, которые можно добавить 
в свои отчеты. Мы рассмотрим некоторые компоненты, которые не только укра- 
шают любой отчет, но и делают его более функциональным и удобным в использо- 
вании. | 

Первый компонент — окЕХргх. Этот компонент очень удобен для создания вы- 
числяемых полей именно для отчета. Вычисления будут происходить автоматиче- 
ски и практически не влияют на скорость работы самой программы. 

У компонента есть свойство ехргезз{оп. Если дважды щелкнуть по нему кноп- 
кой мыши, то перед вами откроется окно, в котором можно создавать достаточно 
сложные расчеты. На рис. 15.12 вы можете увидеть это окно. Если нажать на кноп- 
ку ОЭжаБа$е На, то перед вами откроется окно, в котором можно выбрать таблицу 
(таблица должна находиться на этой же форме) и поле, которое должно участво- 
вать в расчете. 

Если нажать на кнопку РипсНоп, то вы увидите большой список доступных 
функций. Под кнопкой УамаШе спрятаны переменные, которые могут также по- 
мочь в расчетах. | 

Все это рассматривать нет смысла, потому что здесь возможностей очень много 
и по работе с ОшсК Верог5 можно писать отдельную книгу. 
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Теперь посмотрим на компонент овзузРака. Мы уже использовали его и в свой- 
стве Раса ставили параметр агзрасет1те, чтобы можно было видеть дату и время 
распечатки документа. Однако тут есть еще несколько полезных параметров: 
агзРаеке — дата распечатки; | 


агзрефа1]1СоипЕ — количество строк в таблице; 
акзрека11Мо — номер строки в таблице; 
агзРачематЬег — текущий номер страницы, 
агзКерогеТ1Е1е — заголовок отчета; 


оо,о80оо 


агзТ1те — время распечатки отчета. 


Теперь рассмотрим, как можно еще больше упростить создание отчета. В Рер 
есть мастер, который может облегчить создание отчетов. Для его вызова выберите 
из главного меню Ее пункт №ем и затем пункт О®ег. В появившемся окне перей- 
дите на вкладку Ви$теб$ и выберите пункт ОшсККерогЕ У\12аг4 (рис. 15.13). 


| Ме ег$ 


Мен" | ‘дамех И "ма ы Теерьб. | ` Роше | ров 1 дес И 
_ ‚пиамуеь | \/еббегисее _ Вузиезз. | \МеБбпар | Ме оси” | 


Екргез$1оп Маг 12 


_ Етегехргеззюл: | Пыт ЕЕ г. :. В ОааБазе ОВ \\\еь — Песчоп Сибе ИЗВНЕ Ш — ТееСвай 
| —— = т -] Рот \МЯга9 — Аррисац... Затре “аи \И гад 


[пе а Сигзох |=. оо ин т т. 


1 ‚ранабазе бе |. 


Рис. 15.12. Создание отчетов Рис. 15.13. Мастер создания отчетов 


В принципе, мастер достаточно прост, но при использовании таблиц АРО он 
абсолютно не подходит. Если вы будете работать со старыми базами типа ОВЕ или 
Рагадох (06 этом мы поговорим в следующей главе), то этот мастер принесет свои 
плоды, но при работе с АРО он практически бесполезен. 

Пока что нам больше подходят шаблоны, которые есть в том же окне создания 
новой формы, но на вкладке Гогта. Здесь три шаблона (имя оц1сккерог®), содер- 
жащие все необходимое для создания отчета, а также хорошо документирован- 
ные поля. 
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Работа с О ВЕ, Рагадох, ХМЕ 
и клиент-серверными базами данных 


Некоторые программисты любят старые таблицы Рагадох и ОВЕ, а некоторые 
уже перешли на новый и перспективный формат — ХМЕ. Про эти форматы нельзя 
забывать, поэтому они и рассматриваются в этой книге. 

Если вы думаете, что в жизни хватит одного только Ассез$$, то сильно ошибае- 
тесь. Допустим, вы пришли на новую работу, где люди уже работают со старым 
форматом ОВЕ. Из-за вас никто не будет менять уже устоявшихся традиций и при- 
дется смириться с консерватизмом, точнее сказать, с устаревшими форматами баз 
данных. Даже если вы и будете работать со своим любимым форматом, то от кон- 
вертирования данных вам никуда не уйти. 

Конечно же, можно попытаться убедить начальство в том, что ОВЕ и Рагадох не 
надежны и у них регулярно рушатся индексы: Можно убедить и в том, что ХМЕ 
еще не на столько гибок и отстает в возможностях от полноценных БД, но на это 
нужно время, поэтому какой-то промежуток времени вам придется работать со ста- 
рыми форматами. А если не удастся убедить, то будете использовать нелюбимые 
технологии до тех пор, пока не поменяете работу. 

Формат файлов ХМГ, даже может не стать полноценным заменителем старых 
таблиц ОВР и Рагадох и на данный момент используется в основном для обмена 
данными. | 

В любом случае не стоит расслабляться. Приступайте к изучению этой главы, 
потому что она достаточно важна. Тем более что работа с другими форматами дан- 
ных очень похожа на работу с АО и весь материал вы усвоите очень легко. 

‚ Кроме этого, мы рассмотрим достаточно интересный и полезный материал — 
клиент-серверные базы данных. Здесь, кроме необходимой теории, будут показаны 
примеры построения БД для реальных приложений. 


16.1. Создание таблицы Рагадох 


Рагадох и РВЕ — это таблицы, а не базы данных. Если в одной базе Ассе$$ мог- 
ло храниться несколько таблиц, то у Рагадох и ОВЕ в одном файле хранится только 
одна. К тому же индексы хранятся отдельно от таблицы, что причиняет определен- 
ные неудобства. 

Несмотря на недостатки, когда-то на этих таблицах я строил налоговую и пен- 
сионную отчетность достаточно крупного предприятия, на котором работало более 
40 000 сотрудников. Можете представить количество записей в таблицах и как это 
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крутилось на компьютерах 1990-х годов. Сейчас это звучит смешно, но тогда сер- 
вером был РепНит 100 Мгц с 64-я мегабайтами на борту. Да, такие машины когда- 
то были серверами. 


Создание и работа с таблицами Рагадох и ОВЕ абсолютно одинаковы, поэтому 


мы будем все рассматривать на примере Рагадох. 


Для создания первой базы данных вам понадобится запустить отдельную про- 


грамму Раабазе ОПезКор, которая входит в поставку с Реры. После запуска вы- 
полните следующие действия: 


|. 
2. 
3. 


Выберите меню ЕЦе | №ем | ТаЫе. 
В появившемся окне выберите из списка — Рагадох 7. 
Нажмите кнопку ОК. 


СгеаЕе Рагадох у. 7 ТаЫе: и ипаеЧ ) 


ев очаг: 


‚Е тщега пе пате ир {0 25 Срагасиеиз 1079. 


Рис. 16.1. Окно 

редактирования 
полей таблицы 

Рагадох 


Перед вами откроется окно, показанное на рис. 16.1. Можно сказать, что первая 


база данных готова. Теперь вы должны заполнить ее поля. ‘Однако сначала рас- 
смотрим появившийся в окне диалог. 


О 


О 


Номер по порядку — Раабазе ОезкКюр генерирует его автоматически, и изме- 
нять вы его не можете. 


Неа Мате — имя поля. Здесь вы можете называть свои поля как угодно, но 
только английскими буквами, и нельзя использовать пробелы. Так что, в отли- 
чие от Ассез$, здесь могут быть проблемы с нормальным именованием полей 
и придется текст колонок настраивать в Рер. 


Туре — тип поля. Щелкните в этой колонке правой кнопкой мыши, и перед ва- 
ми появится меню со всеми допустимыми типами, вам необходимо только вы- 
брать нужный. 


$17е — размер. Это размер поля. Не у всех типов полей можно менять размер. 
У большинства он задан жестко. Размер в основном меняется у строковых типов 
(А1рва), бинарных (Ъ1пагу) и др. 
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О Кеу — ключ. Если.вы дважды щелкните по этой колонке, то текущее поле ста- 
нет ключевым. Это значит, что по умолчанию по нему будет отсортирована вся 
таблица. Ключевыми могут быть только первые поля, т. е. второе поле сможет 
быть ключевым только вместе с первым. Без ключевого поля невозможно до- 
бавлять новые записи в таблицу. Точно так же, как и в Ассе$$, создание ключа 
обязательно. 


В качестве примера возьмем классический пример — прием заказов. Самое 
главное, это правильно представить себе и создать структуру базы данных. 
В нашем случае пусть будет вестись учет по следующим полям: 


С ФИО Покупатель; 

О Адрес; 

О Дата заказа товара; 

О Наименование заказанного товара; 
СО Количество заказанного товара. 

Теперь нужно продумать структуру БД. Если создать все поля в одной таблице, 
то будет не совсем рационально. Это так, потому что если один и тот же покупа- 
тель возьмет два товара, то у: обеих строк базы первое и второе поля будут содер- 
жать одинаковые данные. Будет лучше, если мы вынесем первые два поля в от- 
дельную таблицу и потом будем использовать две связанные таблицы. 

Итак, пусть наша база данных будет состоять из двух таблиц. В первой будут 
следующие поля (после тире стоит тип поля, а в скобках размер): 
О Ключ 1 — аасо1псгкемепе (ключевое); 

О ФИО Покупатель — а1рьа (размер 50); 

О Адрес — а1ръа (размер 50). 

Во второй соответственно: 

С Ключ 1 — асцео1пскемепе (ключевое); 

С Ключ 2 — тоседехг: | 

О Дата заказанного товара — дасе; 

О Наименование заказанного товара — а1рва (размер 20); 
ОС Количество заказанного товара — тпседех. 


Ключ 1 — это уникальное ключевое поле в обеих таблицах, поэтому поставьте 
им значок ключевого. Ключ 2 во второй таблице будет связан с полем Ключ 1 из 
первой. 

Создайте эти таблицы. Первую назовем таз{.4Ъ, а вторую сВИЗ.45. 


ВНИМАНИЕ. Запомните, что имена полей должны быть написаны английскими буквами. 


После того как создадите вторую таблицу, вы должны сделать Ключ 2 во второй 
таблице индексным, чтобы можно было их связать с помощью этого поля. Для этого 
нужно открыть таблицу сВИ@.4Ъ и из меню ТаШе выбрать пункт Везёгисшкге. Перед 
вами откроется окно, которое вы видели при создании полей таблицы. Теперь в этом 
окне будем вносить изменения, а именно — добавлять дополнительный индекс. 
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В ниспадающем списке Таые рго-_ ЕТ ООО 
регйе$ выберите Зесопдагу ш@ехе$ (до- | Ее _ 


полнительные индексы) и нажмите кноп- 


ку Бейпе (определить). Выберите свой 
второй ключ и переместите его в список 
[п4дехед Пе 4$ (индексированные поля). 
Для этого надо нажать кнопку с изобра- 
женной стрелкой вправо (рис. 16.2). Мо- 
жете использовать кнопку ОК. 

После этого у вас запросят имя индек- 
са. Введите, например, пьь и снова на- 
жмите ОК. Затем сохраните таблицу. 
Индексы готовы, теперь перейдем к по- 
следнему этапу подготовки БД. 

Запустите программу ОГ, Ехр]огег из 
меню Пуск | Программы | ВоНапд Оеры. 
Его главное окно вы можете увидеть на 
рис. 16.3. Здесь создаются псевдонимы 


И т. _ пдекед без: за 


_родек обои 7 


Рю Пень ^^” | 
„М. Мамамед с Г Оезсетта 1 


пк”? ”]^ Сатеё “|. 


Рис. 16.2. Создание вторичных индексов 


(АПаз) к разным пакам с таблицами. 


Эти псевдонимы сохраняются в реестре, и потом все программы при запуске смо- 
гут по этим псевдонимам найти папку таблицы и прочитать необходимые настрой- 
ки, которые надо использовать при доступе к данным. 


57 501 Енр!огег — и | о | | [- [503] 


ОБесе Гуснопагу ЕЕ -Мем Орбопя „Неро 


луком ск лек 
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Г А! РакаБазе Двазез 


д тучами о лллнил: 


3 


И: 

ов ОВОЕМОЗ 

+ безиО 
ВЕ оса! 


“5 База данных Мб А и" 
Файлы ЗВАЗЕ о. 


> Ф ллпны Регр| “||. - а 


и и 
:6 Кет5 п БабаБазез. 


—— Рис. 16.3. Окно 
о ЗО Ехрогег 


В принципе, можно обращаться к таблицам и без псевдонимов, но в этом случае 
путь придется жестко прописывать в программе. В этом случае лучше хранить таб- 
лицы и исполняемый файл в одной и той же папке. 

Чтобы ‚создать новое имя, нужно из меню Одес выбрать пункт М№еу. Перед вами 
откроется окно, в котором поле Эайабазе амуег пате должно быть ЭТАМОАВКТ. 
Теперь нажмите кнопку ОК. Это создаст новый АНаз (имя). Переименуйте его 


В ба1е51. 


В правой половине окна щелкните по строке РАТН. Перед вами откроется окно вы- 
бора папки. Выберите ту, где находятся созданные нами таблицы, и нажмите кнопку 
ОК. Для сохранения того, что вы создали, выберите из меню ОБесй пункт Арруу. 
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Вот теперь таблицы готовы, имена созданы и можно запускать Веры, чтобы 
написать первую программу, которая будет работать с таблицами Рагадох. Напо- 
минаю, что таблицы ОВЕ создаются точно так же и работать с ними можно теми 
же методами. 

Работа с Рагадох и ОВЕ происходит через библиотеку ВПЕ, и для этого сущест- 
вует отдельная одноименная вкладка, на которой расположены компоненты для 
доступа к данным через ВПЕ. Так как доступ идет через библиотеку, то значит, 
должны быть ОГ. -файлы, в которых реализованы функции работы с данными. Эти 
файлы не входят в стандартную поставку \Ут4до\$, и их можно установить или 
вместе с инсталлятором Веры, или с помощью отдельной программы установки 
ВЕ. Если вы будете создавать программу установки с помощью программы ш$%аЙ 
эте!4, достаточно указать, что необходимо включить в установку библиотеку ВПЕ, 
и соответствующие файлы будут установлены вместе с исполняемым файлом на 
целевую систему. 

Переходим к реальному примеру. Создайте новый проект. Поместите на него из 
вкладки Ваёа Ассе$$ два компонента расабоигсе И с вкладки ВОЕ два компонента 
ТТаБ1е палитры компонентов. Для первого расабоигсе установите свойство 
Расабек В ТаБ1е1, ау второго в таЪ1е2. Теперь у ТаЪь1е1 измените следующие свой- 
ства (желательно в такой последовательности): 


О расафаземаме — выставьте 5а1ез1 (это АПа$, который мы создали в ЗОГ, 
Ехр/]огег). 


О] таь1емаме — выставьте в таз.46. Если вы все правильно сделали, то имя этой 
базы будет в ниспадающем списке данной строки. 


С Асе1уе — выставьте в егае, чтобы активизировать таблицу. 


То же самое ` проделайте и с 
Таф1е2, ТОЛЬКО В Таб1еМаме ука- 
жите сВ|9.3Ъ. После того как вы 
все это сделаете, из палитры 
компонент ПБасаСопЕго1$ пПо- 
ставьте на форму два компонента 
рВСг1а. В свойстве расабоцгсе 
у ‘одного из них выставьте 
РаЕа5очгсе1, а у другого 
Расабоигсе2. Постарайтесь рас- 
положить компоненты, как это 
показано на рис. 16.4. 

Уже можно запустить про- 
грамму и убедиться в ее работо- 
способности. Но все еще не 
очень красиво, ведь таблицы не 
связаны, и никому не нужно ви- 
деть ключи, да и подписи на анг- 
лийском. Выделите ТаЪ1е2, здесь у вас должна находиться таблица сВИ9.4Ъ. 
В свойстве мазкегбоцгсе выставьте ракабоцгсе1. После этого дважды щелкните 
в поле МафегЕ 18$. Перед вами откроется окно, показанное на рис. 16.5. В верхнем 


чёт покупателей 


Рис. 16.4. Расположение компонентов на форме 
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списке Ауа|ае т4ехез выберите имя, 
которое вы задали, когда индексировали 
Кеу2, в данном случае это ВИВ. Теперь 
выделите Кеу2 в левом окне и Кеу1 
в правом и нажмите кнопку А99. Так вы 
добавили связь, которая будет использо- 
ваться между таблицами. Нажимайте ОК |! 
и снова установите в свойстве Асе1уе || 


этой таблицы — екие, потому ‘что при 
наведении связи таблица ‹ автоматически 
закрылась. 


Теперь дважды щелкните по компо- 
ненту таЪ1е2. Перед вами откроется окно | 
редактора свойств полей. С подобным Рис. 16.5. Окно связывания таблиц 
окном мы работали, когда писали приме- 
ры с помощью АРО. В этом окне щелк- . ` 
ните правой кнопкой мыши, и в появившемся меню выберите пункт меню АЗ@4 АЙ 
Е1е14$. После этого все поля таблицы будут добавлены в это окно. В свойствах 
Кеу1 и Кеу2 установите свойство \15151е в Ёа1зе, чтобы спрятать индексы. 
`В свойстве поля Вайа установите р1+зр1ауРогтае в аааааа, а ЕЯ1ЕМазк в 99/99/9999. 
_У всех полей свойство р1зр1аугаъе1 отвечает за имя, отображающееся в компо- 
нентах, поэтому напишите здесь у всех нормальные русские имена. 

После того как закончите работу с первой таблицей, проделайте подобные опе- 
рации со второй. Нужно будет также спрятать ключевые поля и написать нормаль- 
ные подписи к полям. 

Ваше первое приложение, работающее с базой данных Рагадох, готово. Как ви- 
дите, работа с такими базами практически не отличается от работы с АО. Единст- 
венное отличие — используются другие компоненты, а именно вкладка ВОЕ. 
Большинство свойств компонента ТТаЪ1е похожи на свойства компонента 
ТАРОТаЪ1е. У них‘есть все необходимые свойства, такие как Е1хзЕ, Мехе, Рге\, Газк, 
Еа1 Е, Розе и многие другие. | 
_ Для создания запросов к таблицам Рагадох и ОВЕ нужно использовать компо- 
нент оцеку с вкладки ВБЕ. У него также есть свойство ЗОГ, в котором надо писать 
5ОГ-запрос. Но так как таблицы Рагадох и ОВЕ — это таблицы, а не базы данных, 
то не надо указывать никаких строк подключения. Достаточно только ввести за- 
прос (имя таблицы вы укажете в запросе в поле Ехом) и выполнить его, сделав 
СВОЙСТВО АСЕ1уе равным Егце. 

Используя таблицы Рагадох, можно также создавать поисковые и вычисляемые 
поля, и здесь особых отличий от АОО нет. Все это связано с тем, что в обоих ком- 
понентах использована одна и та же основа. 


ПРИМЕЧАНИЕ. На компакт-диске, прилагаемом к книге, в папке \Примеры\Глава 16\ 
Рагадох вы можете увидеть пример этой программы. 


В примере мы не указывали псевдонимы (АЙа$) таблиц. Это не обязательно, но 
принято для удобства. Если не указывать у таблиц в свойстве ракаЪазеМаше ника- 
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кого псевдонима, то поиск таблицы будет происходить в текущей папке, где и про- 
граммный файл. Можно также указывать полный путь в свойстве таЪ1емМаме, НО Я 
бы не рекомендовал делать это, ведь такого же пути может и не быть на компьюте- 
ре пользователя. 


16.2. Русификация таблиц Рагадох и ОВЕ 


Для работы с таблицами Рагадох и ОВЕ мы используем компоненты с вкладки 
ВОБЕ. Это не просто название вкладки, это — целый набор динамических библио- 
тек и программная надстройка, через которую происходит работа с таблицами. Эта 
надстройка устанавливается вместе с Оеры, ее также можно найти на компакт- 
диске отдельным установочным файлом. 

По умолчанию ВЛЕ работает с таблицами в кодировке, не поддерживающей 
русский язык. Для русификации нужно запустить программу ВОЕ Аатпиятаог. 
Ее главное окно похоже на ОГ, Адтиизгаюг. Перейдите в этом окне на вкладку 
СопйригаНоп (рис. 16.6) и откройте в указанной древовидной иерархии ветвь 
СопйригаНоп, Омуег$, Майуе. Здесь выберите пункт Рагадох, и в правой полови- 
не окна вы увидите настройки доступа к таблицам Рагадох. 
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Рис. 16.6. Обновленная форма программы 


Здесь нужно изменить параметр ГАМСОЕГУЕК — драйвер языка. По умолча- 
нию здесь стоит азей, при котором русские буквы превращаются непонятно во что. 
Выберите у этого параметра в ниспадающем списке Рдох — АМТ СугИИс. Теперь 
щелкните кнопкой мыши в окне слева (в структуре настроек) по пункту Рагадох 
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и выберите в появившемся меню пункт Арру, чтобы сохранить настройки. После 
этого появится окно с подтверждением о сохранении данных. Затем предупрежде- 
ние о том, что для получения нужного эффекта необходимо перезапустить все про- 
граммы, работающие с ВПЕ. 

Теперь выберите в структуре настроек пункт ЭВАЪЕ иу него в настройках вы- 
берите драйвер языка ВАЗЕ ВОЗ ср866. Сохраните эти настройки. 

Теперь ваши таблицы будут правильно отображать русские буквы, и вы сможе- 
те работать с ними на родном и понятном языке. 


16.3. Быстрый поиск 


Поиск одного поля с помощью 5ОГ-запроса или фильтра — просто глупая за- 
тея. Этот поиск будет проходить достаточно долго. Но есть способ лучше. Точнее 
сказать, поиск по ключевым полям. Этот поиск происходит практически момен- 
тально, даже при больших базах данных. Недостатком здесь является отсутствие 
шаблонов и невозможность использовать привязанную таблицу. 

Быстрый поиск мы не рассматривали в главе про АОО, потому что это особен- 
ность Рагадох- и ОВЕ-таблиц, точнее сказать драйвера ВПЕ. В связи с этим рас- 
смотрим это сейчас. 

За счет чего достигается большая скорость поиска? Все очень просто — за счет 
индексации. Так быстро искать можно только по индексированным полям. 

Для дальнейшей работы нам понадобятся все те же таблицы из рассмотренного 
выше примера. 

В качестве основы возьмите только одну таблицу — таз.4Ъ. Как я уже говорил, 
для быстрого поиска нужно, чтобы поле было проиндексировано, поэтому добавьте 
еще один вторичный индекс для поля ЕТО (там хранится фамилия). Теперь у ком- 
понента ТтТаЪ1е, к которому привязана эта таблица (таь1.е1), свойство 
ТпаехЕ1е19Мапе, измените его на ето. Все, таблица готова к использованию. 

Теперь давайте поместим на форму строку ввода. Она будет использоваться для 
ввода данных, которые надо искать, а также кнопку, по нажатии которой будет за- 
пускаться поиск. На рис. 16.7 показана обновленная форма программы. 

Создадим обработчик события о0пс11ск для кнопки и напишем там следующий код: 

ргоседиге ТГотт1 .Вие6оп1С11сК (5епаег: ТОБдесЕ); 

Беад1п 

`®ТаЬ1е1 .бееКеу; 

Таб1е1ЕТО.Аз5ехи1па : =Р1п9ЕЯ1® .Техе; 
Таб1е1 .СоЕокКеу; 
епа; 


Здесь все очень просто. Первая строка говорит, что сейчас мы будем устанавли- 
вать ключ. Вторая строка устанавливает его. Заметьте, что это происходит как изме- 
нение содержимого поля, но поле не меняется, потому что мы вызвали перед этим 
сееКеу. Наконец, последняя строка говорит, что надо найти установленный ключ. 

Все время`мы создавали одиночные вторичные ключи (состоящие из одного по- 
ля), но вы можете с помощью программы ОааБазе ОезКюр создавать ключи, со- 
стоящие из любого количества полей. Для этого в РаёаБазе ОезКюр в ниспадающем 
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списке ТаЫе ргорегйе$ нужно выбрать Зесопдагу ш4ехе$ и нажать кнопку Эейпе. 
Теперь выберите любое поле и переместите его в список ш4ехе4 йе 4$, затем дру- 
гое поле и снова переместите его в список ш4ехед йе 9$ и т. д. 

Если у вас установлен ключ 
из нескольких полей, то вы 
должны между вызовами 5ееКеу 
И сосоКеу установить все ключи. 
Иначе результат может быть 
с ошибкой. 

Есть еще одна процедура, с ко- 
торой вы должны познакомить- 
СЯ, — соЕоМеагез+. ЁСЛИ СокоКеу 
не находит нужного ключа, то 
генерируется ошибка. сокомеакезе 
тоже производит поиск ключе- 
вого поля, но если поле не най- 
дено, то ошибка не генерирует- 


ся, а идет поиск ближайшего |: я Рив | —_ 


похожего ключа. 


Рис. 16.7. Обновленная форма программы 
ПРИМЕЧАНИЕ. На компакт- 
диске, прилагаемом к книге, 
в папке \Примеры\Глава 16\ 
РГазртЧ вы можете увидеть 
пример этой программы. 


16.4. Создание псевдонимов 


В первом примере работы с таблицами Рагадох мы рассмотрели, как с помощью 
ЗОГ, Ехрюгег можно создавать псевдонимы. Но что делать, если в вашей програм- 
ме используются псевдонимы, а на компьютере пользователя их нет? Напрашива- 
ется ответ — создать их. Теперь представьте себе, что пользователь живет в другом. 
городе и абсолютно ничего не понимает в компьютере. В этом случае вы не сможе- 
те объяснить ему процесс создания псевдонимов по телефону, а из этой ситуации 
нужно найти выход. А выход простой — создать псевдонимы программно. Пускай 
ваша программа следит за наличием на компьютере пользователя псевдонимов. 

Давайте создадим маленькую программу, которая будет создавать какой-нибудь 
произвольный псевдоним для таблиц. Запустите Ое!ры и создайте новый проект. 

Установите на форму компонент т5езз1оп с вкладки ВОЕ. Если вы работаете 
с базой данных, то этот объект всегда создается автоматически без вашего ведома. 
В нем хранится низкоуровневая информация о ВПЕ, драйверах и многом другом. 
Если вы хотите изменить какие-то значения, указанные в этом объекте по умолча- 
нию, то вам необходимо: 


О поставить этот компонент на форму; 
О указать любое имя в его свойстве $езз1опМане; 
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О всем компонентам ттаЪ1е.и ТОцегу, для которых будут действовать установлен- 
ные вами значения, в поле 5ез51опМаще нужно указать имя объекта-т5езз1оп. 


Таким образом вы сами создаете сессию. 

Для нашего примера достаточно первых двух действий, 
потому что у нас не будет компонентов ттаБ1е или тоцегу. | Дототи 
Посмотрите на рис. 16.8 и сконструируйте форму, подобную |: я 
той, которая показана на этом рисунке. На форме ‚всего |:;—= 
лишь две кнопки, один компонент ть1зЕВох и один компо- |: — Побить нее |: 
нент' тбезз1оп. Вы можете расположить их по-другому, [рее 
главное, чтобы они присутствовали, и вам удобно было 
с ними работать. 

Создайте обработчик события оп5ном для главной формы 
и напишите в нем следующий код: | 

ргоседите ТГоги1 .ГоттабВом (бепаег: ТОБ)ес®); 


и объвить стандартный _ до . 


уатг 


Рис. 16.8. Форма 


ЗЕх:Т5ех1195; будущей программы 


Бед1п 
ЗЕг:=Т196:110911$6.Сгеаее; 
5$е3$1о0п1.СебА11аМамез (56г); 
Т.1$ЕВох1 .Теет$. Азот (365); 
Ех. гтее; 

епа; 


Здесь мы получаем список всех доступных в системе псевдонимов и вставляем 
этот список в компонент тг1зЕВох. Разберем код построчно. 

Сначала объявляется переменная $Ех типа т5Ех1 паз. 

Функция СееА11азМацщез Компонента Т5езз1оп возвращает все доступные систе- 
ме псевдонимы. В качестве параметра передается указатель на объект типа 
ТбЕг1п9з, куда запишется весь список. Оператор т15зЕВох1.тЕешз.Азз19п (5%) 
копирует список в элементы Т.15ЕВох1. Последняя строка кода освобождает пере- 
менную 5ег. | 

Теперь создадим НОВЫЙ псевдоним стандартного типа. К этому типу относятся 
таблицы Рагадох и ОВЕ. Мы создаем псевдоним по нажатии первой кнопки. Соот- 

ветствующая процедура будет выглядеть следующим образом: 
| рхоседиге ТЕотт1 .ВаЕЕоп1С11ск($еп@ехг: ТОБзесе); 
\хах 
зЕ’:Тбеу1паз; 
Бед1п 
5е5$10п1.АЯа5сапЧахаА11а$з ('\УКОп11пе','с:\', 'Рага@ох'); 
Ех: =Тбег1паТ1$6.Сгеаее; 
5$е5$10п1.СеёА11а$Мамез (56г); ы 
Т,1$ЕВох1 .Т6ем$ .Аз$1от (56г); 
осу.Егее; 
еп; 


Создание происходит с помощью функции АаазеапаакаА11аз компонента 
Т5езз1оп. В качестве первого параметра вы должны указать имя нового псевдонима. 
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Второй — путь к базам данных, которые будут связаны с псевдонимом. Третий — 
драйвер, который будет использоваться по умолчанию. 

После добавления мы снова получаем уже обновленный список доступных 
псевдонимов и копируем его в компонент ть: Вох. 

Теперь создадим псевдоним нестандартного типа. Для примера будет использо- 
ваться псевдоним базы данных /[тетразе. Эти БД в книге рассматриваться не будут, 
но для примера мы рассмотрим, как создаются такие псевдонимы. Пусть он будет 
создаваться по нажатии второй кнопки (Добавить Пиегфазе). В обработчике собы- 
ТИЯ 0пС11ск пишем код листинга 16.1. 


ргоселге ТГоут1 .Виббоп2С11сК (бепаех: ТОБЗесе); 
уах 
ТГ: Т56г119Т1$6; 
Беа1п | 
Г := Т56г1191Т15$6.Сгеаее; 
Еху 
ут ЕВ Г ао 
Бед1п 
‚ АЗА('ЗЕВУЕВ МАМЕ=ТВ_ЗЕКБУЕК: /РАТН/РАТАВАЗЕ.СОВ'); 
Аа ('ОЗЕВ МАМЕ=МУМАМЕ'); 
епа; 
5е5$10101.АЯЧЯА11аз ('МемТВ', 'ТпбегВазе 4.х Пг1уег Бу У151аеп',1,); 
Е1па11у 
Т.Егее; 
епа; 


епа; 


Процедура Ада9А11аз компонента т5езз1оп создает псевдоним нестандартного 
типа. Первый параметр — имя псевдонима. Второй — имя драйвера. Третий 
параметр — указатель на Тзег1потззе, в котором хранятся дополнительные 
настройки. Дополнительные параметры хранятся в виде строк. Например, 
'ЗЕВУЕБ. МАМЕ= ТВ_ЗЕВУЕВ: /РАТН/РАТАВАЗЕ.СРВ'’. В этой строке указывается имя 
параметра и после знака "равно" его значение. Параметры могут отличаться в зави- 
симости от драйвера. Чтобы узнать, какие параметры доступны, можно создать 
пробный псевдоним в $ОГ, Ехр|огег и посмотреть, какие там присутствуют пара- 
метры. | 


ВНИМАНИЕ. Имя драйвера у вас может отличаться. Чтобы увидеть все доступные 
драйверы, нужно войти в ВОЕ Адтт!гаюг. Там на вкладе СопйЙдигайот выбираете 
Опуег$. В разделах МаН\уе и ООВС есть все имена драйверов. 


ПРИМЕЧАНИЕ. На компакт-диске, прилагаемом к книге, в папке \Примерыь\Глава 16\ 
Апаз вы можете увидеть пример этой программы. 
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16.5. Работа с ХМЕ-таблицами 


Когда мы работаем с базами данных Ассез$, то используем библиотеку АОО. 
Для доступа к таблицам Рагадох или ОВЕ нужна библиотека ВРЕ. Для ХМГ- 
таблиц нужен всего один файл, который достаточно зарегистрировать в системе. 
Из-за такой простоты установки, мы не сможем здесь достигнуть гибкости других 
БД. Зато получаем простоту, скорость и универсальность ХМЕ. 

Самое главное — это то, что программа сможет работать вообще без ОИ - 
файлов. Для этого достаточно подключить модуль пидазИЬ.аси к вашему проекту. 


ВНИМАНИЕ. Для того чтобы можно было работать с ХМЕ, понадобится файл 
тюа$.а!. Чаще всего он находится в системной папке \\тдомз$. Для ОС \МИтадомз 
95 / 98 / МЕ это — \ммпдомз\зу{ет, а для МТ / 2000 / ХР это — \МИпМТ\узчет32. 
Если у вас этого файла нет, то можете взять его с компакт-диска, который прилага- 
ется к этой книге в папке \Ч!\та$. Там же находится файл гед$\г3З2.ехе, который 
может произвести регистрацию этого ОЦ--файла. Для регистрации нужно выполнить 
команду гедзуг32.ехе с параметром птЧа$.аЙ. Например, поместите эти файлы 
в папку с:\мипдомиз\зу${ет (тгедз\уг32.ехе уже может находиться там) и нажмите кноп- 
ку Пуск. Затем выберите пункт Выполнить и напишите строку кода: 
с: \и1паом$ \ зузсем\ геаз\уг32.ехе с: \м1пЯомс \ зузсем\т1Яаз.Я11. После это-. 
го нажмите ОК, и вы должны увидеть сообщение об успешной регистрации. 


Создавать ХМГ-таблицу мы будем прямо в Веры. Для этого создайте новый 
проект и сразу же добавьте к нему модуль данных. Теперь бросьте в модуль данных 
два компонента: расабоигсе И С11епЕРафа5ее1 с вкладки Вайа Ассе$$. Сразу же ука- 
жите у компонента ракабоихгсе В СВОЙСТВе Раказее компонент с11епЕРахабее, чтобы 
связать их. 

Теперь выделите компонент с11епЕРаказее. Дважды щелкните по свойству 
г1е1АреЕз в объектном инспекторе, чтобы открыть окно определения полей. В этом 
окне можно создавать объявления новых полей. Для этого щелкните правой кноп- 
кой мыши и выберите пункт А@4, чтобы создать новое поле. Выделите в окне 
строку нового поля и посмотрите в объектный инспектор. Тут имеется три инте- 
ресных свойства: 

С расатТуре — тип поля; 
С] маме — имя; 
С 51хе — размер. 

Первое поле будет ключевым, поэтому выберите тип поля ЕЕАЧЕОТис И ИМЯ 
Кеу1. Остальное не меняем. Теперь создайте еще одно поле типа ЕЕ5Ех1па, с име- 
нем НО. Размер поля оставим по умолчанию 20. Для примера этого хватит, хотя вы 
можете создать еще несколько полей. 

Теперь щелкните правой кнопкой мыши по компоненту с11епЕРакабее И в ПОЯВИВ- 
шемся меню выберите пункт Сгемже Райа$е{. Еще раз щелкните правой кнопкой мыши 
по этому же компоненту, и перед вами откроется меню, в котором уже намного больше 
пунктов. Выберите пункт Зауе ю МуВазе Хпй ТаЫе, и перед вами откроется стан- 
дартное окно сохранения файла. Введите имя ехар| и нажмите кнопку Сохранить. 

Все, таблица готова. Теперь можно с ней работать абсолютно так же, как 
и с АРО- или ВОЕ-таблицами. Дважды щелкните по компоненту с11епЕраказек, 
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чтобы открыть редактор полей. Здесь добавьте все поля и напишите для них заго- 
ловки на русском языке. Кстати, ключевое поле можно спрятать. 

Теперь установите на главную форму программы сетку рвсхг1а и свяжите ее 
с нашей таблицей. Программу можно запустить и попробовать с ней работать. 

Здесь слёдует сделать одно замечание. Таблицы ХМГ, по умолчанию растут дос- 
таточно быстро. Это связано с тем, что в них сохраняется журнал изменений. С од- 
ной стороны, постоянный рост файлов очень быстро поглощает пространство на 
диске, а с другой — благодаря этому журналу вы можете в любой момент отменить 
последние действия. Для этого нужно вызвать метод упаоГгазЕСвапае компонента 
С11епЕРакабее. У этого метода есть один параметр — булево значение. Если он 
равен егие, то текущий курсор "перебежит" на строку, изменения которой были 
отменены, иначе курсор останется на месте. 

Чтобы очистить журнал изменений, вызовите метод мегдеСвапдегоч, а если хо- 
тите, чтобы журнал вообще не велся, то присвойте свойству годСпапдез значение 
Еа1зе. 

Вот и все, что надо было сказать про ХМГ-таблицы. В остальном работа с ними 
ничем не отличается от работы с другими базами данных. Все те же свойства и те 
же методы. 


ПРИМЕЧАНИЕ. На компакт-диске, прилагаемом к книге, в папке \Примерь\Глава 16\ХМЕ 
вы можете увидеть пример этой программы. 


16.6. Теория клиент-серверных баз данных 


Когда с вашей базой данных работает только один пользователь, то тут практи- 
чески не возникает проблем. Проблемы начинают возникать, когда нужно, чтобы 
к данным по сети получило доступ множество пользователей. Суть возникающих 
проблем можно определить в виде нескольких замечаний. 


С Рагадох и ОВЕ ненадежны. Эти форматы очень старые и не рассчитаны на сеть. 
При одновременном обращении нескольких компьютеров к одной таблице, 
в ней очень часто рушатся индексы. 


ПРИМЕЧАНИЕ. В свое время ругали локальные версии программы 1С. Они работали 
с ОВЕ-таблицами, и если использовать передачу их по сети, то индексы рушились, чуть 
ли не каждый день. Чаще всего встроенная утилита восстановления помогала, а иногда 
приходилось запускать Вааразе ОезКор, удалять индексы и создавать их заново. 


Г] Ассез$ — это база данных, которая может хранить множество таблиц и содер- 
жит достаточно возможностей для предотвращения разрушения. В принципе, ее 
уже можно использовать в сети, достаточно только при подключении указать, 
что таблица расположена на другом компьютере. Но тут возникает другая про- 
блема — изменения, введенные одним пользователем, не будут видны другим. 
Для этого случая два выхода: 

» перезапускать программу; 
е регулярно переактивировать таблицу (свойство АсЕ1уе устанавливать в Еа!зе, 
а потом в гие). 


16 Зак. 1273 
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ПРИМЕЧАНИЕ. Когда таблица маленькая, клиентов мало и соединение с сервером 
быстрое, то это еще сносно, но при большой БД переподключение может занять мно- 
го времени и работать с программой будет невозможно. 


Вот тут на помощь приходят клиент-серверные базы данных. Что это значит? 

Сервер — это программа, которая отвечает за хранение данных и обработку 5ОГ- 
запросов пользователей. Сервер может располагаться как удаленно, так и на`одном 

_ компьютере с клиентом. Клиент — это любая программа, подключающаяся к сер- 
веру для получения доступа к данным. 

Если до этого нам нужен был только файл базы данных и драйвер доступа, то 
теперь для работы приложения нужны драйвер и программа сервера. Как сервер 
хранит данные, нас уже не волнует, главное, чтобы мы могли получить к нему дос- 
туп, а размещение файлов — это уже не наша задача. 

Сервер заботится о целостности данных, предоставляет разделяемый доступ 
к данным (изменения одного пользователя будут видны всем после последующего 
считывания данных), позволяет создать безопасную систему и ограничивать права 
пользователя на доступ к данным на уровне сервера. 

При построении клиент-серверной программы выделяют три уровня: 


1. Сервер — на этом уровне хранятся данные. Здесь может располагаться логика 
(код, который надлежащим образом обрабатывает или формирует данные), про- 
цедуры и функции. 

2. Бизнес-логика (бизнес правила) — здесь расположена логика программы, про- 
цедуры, функции для управления записями. Логика может находиться на серве- 
ре в виде хранимых (встроенных) процедур, на отдельном компьютере (в от- 
дельной программе) или прямо в вашей программе. В первых двух случаях 
клиент только отображает данные и отсылает команды, а они выполняются или 
на уровне бизнес-логики или на уровне сервера. 


3. Клиент — отображение данных. Здесь может располагаться логика, процедуры 

и функции. 

Где же размещать логику приложения? Если у вас в сети с базой данных работа- 
ет множество клиентов, то для этого можно использовать сервер или отдельное 
приложение. В этом случае логика централизована и при изменении каких-либо 
правил вам не надо обновлять программное обеспечение на всех клиентах. Доста- 
точно обновить сервер или единственное приложение. о 

Клиент отправляет серверу 5ОГ-запросы, а тот возвращает данные, соответст- 
вующие критерию выбора. Это очень сильно уменьшает трафик, потому что нам не 
приходится перекачивать всю таблицу по сети. В сетевой модели каждый пользо- 
ватель получает копию БД с сервера и загружает сеть излишней передачей данных. 

Несмотря на изначальную ориентацию на запросы, в Реры вы также можете 
использовать компоненты ТТаЪ1е И ТАРОТаЪ1е, потому что они могут работать 
с данными через запросы. Если ваша таблица на сервере не-слишком большая, то 
никто не запрещает вам использовать то, что вы больше предпочитаете. 


СОВЕТ. Если таблицы большие, то лучше использовать ТОцегу ИЛИ ТАПРОСциеху, 
чтобы уменьшить количество данных, передаваемых клиенту, и получать только не- 
обходимое. 
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16.7. Пример работы с З@Е Зегуег 


На компакт-диске, прилагаемом к книге, в папке \Документация\ ОГ, Зегуег вы 
можете найти начальную информацию по установке ЗОГ, $егуег 2000, а также по 
созданию, изменению и удалению баз данных. Если вы ни разу не работали с этим 
сервером БД, то советую ознакомиться с этими документами. Сейчас мы погово- 
рим о том, как работать с сервером. 

Отдельный пример описывать не имеет смысла, потому что для подключения 
к базе данных и таблицам нужно использовать те же компоненты АРО, только вы- 
брать драйвер для подключения к ЭОГ, 5егуег (рис. 16.9). 

После выбора драйвера и нажатия кнопки №ехё, вы переходите на вкладку настрой- 
ки подключения (рис. 16.10). Здесь в первой строке нужно указать имя экземпляра 
ЗОГ, Зегуег. Если он установлен на этом же компьютере, это поле можно оставить пус- 
тым. Тогда программа подключится к экземпляру по умолчанию локального сервера. 
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Рис. 16.9. Окно подключения, _ Рис. 16.10. Окно настройки 
выбор драйв@ра подключения 


Чуть ниже идет выбор метода аутентификации (метод, по которому будут про- 
веряться права доступа к серверу). У вас возможны два варианта: 
О 95$е Ушдом$ МТ шергае@ зесигИу (использовать безопасность, интегриро- 
ванную в \/1140\5 МТ) — в этом случае будет использоваться локальное имя 
и пароль, под которым вы вошли в \/1п40\5; | 
О 0$е а $ресйс озег пате ап раз$уог@ (использовать указанные имя и па- 
роль) — в этом случае вам надо указать имя пользователя и пароль. 
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И последнее, что вам надо сделать, это указать базу данных, к которой вы хоти- 
те подключиться. Если вы указали предыдущие параметры правильно, то в ниспа- 
дающем списке будут перечислены все доступные на указанном сервере базы. Вы- 
берите необходимую и можете нажимать кнопку ОК. 

Для подключения к М$ $ОГ, $егуег вам надо иметь необходимые права. Чтобы 
дать определенному пользователю такие права, можно запустить ЗОГ, Зегуег Ещег- 
ре Мапагег. Это программная оснастка, которая позволяет управлять сервером. 
Ее главное окно можно увидеть на рис. 16.11. 

Слева в дереве структуры нужно выбрать пункты Соп$@е Кооё Мсгозой 
БОГ 5егуег, Имя сервера, ЗесигИу, Г.о21т5. Здесь перечислены все пользователи, 
которые имеют право доступа к серверу. На рис. 16.11 вы можете увидеть, что име- 
ется два пользователя с такими правами: Администратор и за. Вторая учетная за- 
пись создается автоматически при установке и на реальной базе данных ее необхо- 
димо удалить, потому что у нее права администратора и любой хакер может 
подобрать под нее пароль. Для тестирования запись можно оставить, но хотя бы 
нужно поменять пароль, потому что по умолчанию он пустой, и это сильно снижа- 
ет безопасность системы. 

Чтобы добавить нового пользователя, нужно щелкнуть правой кнопкой в центре 
окна и выбрать в ниспадающем меню пункт №е\у О$ег. Перед вами откроется окно 
настройки пользователя (рис. 16.12), в котором надо указать имя, права доступа 
и базу ‘данных. Данный метод будет работать, если у вас разрешена смешанная ав- 
торизация. Если разрешена авторизация только встроенная в ОС \Ут4до\з, то вы не 
можете создавать пользователей сервера БД, можно только делегировать права 
доступа пользователям, которые созданы в ОС. 
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Рис. 16.11. М$ ЗОЕ $егмег Ещегризе Мападег 
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Более подробную информацию о 
настройке и работе с ОГ. Зегуег 
смотрите в специализированной ли- 
тературе. Это выходит за рамки дан- 
ной книги, потому что програм- 


55 егчег 09 пРгорегцез - - Мет 


бозвол - и СНЫ 


мист — не администратор, и вам '{ > едина 
необходимо знать только начальные Со бота <. 
сведения, но знание основ админи- |— ва | __ есшйувосвыя: 


стрирования лишним не будет. а бело 


Теперь, когда произведена на- 
стройка подключения, можете об- 
ращаться к таблицам сервера так же, 
как это делали с Ассез$. Никаких 
отличий нет, потому что надстройка 
АОО скрывает сетевое происхожде- 
ние базы, и вы даже не ощутите раз- 
ницы от месторасположения сервера 
(на локальном компьютере или на 
удаленном). 

Учтите несколько советов, кото- Рис. 16.12. Окно добавления пользователя. 
рые вам помогут при написании про- 
грамм для работы с 5ОГ-сервером. 


:. = =. . 
: ‚<= | <беваь => т 


0 Для связи с поисковыми полями не используйте таробчеку. Лучше, когда поиск 
поискового поля происходит по тАРОТаь1е. В этом случае запросы наоборот по- 
низят производительность. 


С Стратегия отображения данных должна быть следующая. Выбор данных проис- 
ходит с помощью запроса и ТАРООчеку. Если внешний вид данных надо улуч- 
шить и использовать поисковые поля, то для хранения справочника таких полей 
используйте таблицы. 


Вообще, для программирования клиент-серверных приложений очень важно хо- 
рошо разобраться с языком ЗОГ, потому что он может повысить скорость работы 
вашего приложения в несколько раз. Остальная оптимизация работы приложения 
зависит от ее специфики. 

Теперь рассмотрим маленький пример работы с сервером. Создайте новое при- 
ложение и поместите на форму два компонента трасабоигсе И ТАРООцеку для 
отправки запросов на сервер. У раказоигсе в свойстве раказек укажите наш ком- 
понент АРООцегу1. Теперь дважды щелкните по свойству СоппесЕ1оп5Ек1па у ком- 
понента запросов и установите соединение с сервером. В качестве базы данных бу- 
дем использовать Моппулпа, которая устанавливается по умолчанию и использует- 
ся для тестирования или обучения. 

Теперь дважды щелкните по свойству ЗОГ, и введите следующий запрос: 

ЗЕГЕСТ * 

ЕКОМ Сизбомег$ 

МНЕВЕ СопрапуМаме ГТКЕ :сп 
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В первой строке запроса мы запрашиваем все колонки. Во второй строке указываем 
секцию Евом, чтобы показать, откуда надо получить данные. В данном случае нас инте- 
ресует таблица сизЕомегз. В последней строке указывается условие. В данном случае 
поле СотрапуМаме должно соответствовать значению :сп. Что это за значение? Любое 
слово, начинающееся с двоеточия, воспринимается как переменная. Теперь мы в своей 
программе должны только назначить ей значение, и можно выполнять запрос. 

Когда вы работаете с серверами баз данных, настоятельно рекомендуется исполь- 
зовать переменные для указания изменяющихся значений. Для понимания причины 
этого нужно знать, как сервер выполняет запрос. Это происходит примерно так (уч- 
тите, что разные серверы делают это по-разному, но принцип везде одинаков): 


О разбор запроса; 

О оптимизация и генерирование плана выполнения; 
О выполнение и возврат результата; 

@ план выполнения помещается в кеш. | 


При выполнении этого же запроса второй раз сервер пропускает разбор И ОПТИ- 
мизацию и сразу выполняет запрос по определенному плану, который был поме- 
щен в кеш. Поэтому в любом случае второе выполнение будет быстрее. 

Посмотрите на следующие два запроса: 

ЗЕГБЕСТ * ЕКОМ Сазботег$ 

МНЕВЕ СопрапуМате ГТКЕ ‘АвтоВАЗ’ 


ЗЕБЕСТ * ЕКОМ Сч5сомег5 
УНЕКЕ СопрапуМате ГТКЕ ‘ВимБильДан'’ 


На первый взгляд запросы одинаковые и различаются только значением поиска. 
Но сервер об этом не знает и поэтому будет дважды выполнять разбор и оптимиза- 
цию. Чтобы он этого не делал, используйте параметры. 
Дважды щелкните по свойству Рагащекегз компонента дробцеку, и перед вами от- 
кроется окно настройки параметров. В этом окне будет только один с именем сп. Как 
видите, Оеры автоматически определил имя параметра, проанализировав наш запрос. 
Выделите этот параметр и в объектном инспекторе у свойства \а1ие укажите % (знак 
процента). Если вы прочитали описание языка запросов ЗОГ, на компакт-диске, прила- 
гаемом к книге, то вы должны уже понимать смысл этого знака. Он указывает на то, 
что могут использоваться любые символы в любом количестве. В данном случае, если 
выполнить запрос со значением по умолчанию, то мы получим все строки. 
Вернемся к нашему примеру. Сделайте главную форму, как показано на рис. 16.13. 
Здесь у нас строка для ввода названия компании, которую надо найти, и кнопка, по 
нажатии которой будет происходить поиск. 
Теперь создайте обработчик события опс11ск для кнопки поиска и напишите 
в нем следующий код: 
ргоседаге ТГогт1 .Ваееоп1С11скК (бепаег: ТОБзес®); 
Ъеа1п 
АПГООцегу1 .АсЕ1уе : =ЁЕа15е; 

`АБООцегу1 .Рагащеекетз .РагатВуМате (‘'сп').Уа]1ле: =беаусрЕЯ1е .Техе+'%'; 
АРООцегу1.АсЕ1хе:=егце; 

епа; 
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Рис. 16.13. Форма 
будущей программы 


Здесь мы закрываем запрос (на случай, если он был открыт ранее), потом меня- 
ем значение параметра и снова открываем, чтобы выполнить. Попробуйте теперь 
запустить пример и набрать в строке поиска А%. Нажмите кнопку поиска, и вы 
должны будете увидеть все компании, названия которых начинаются на букву "А". 
Всю эту информацию, которую вы увидите, можно изменять, редактировать и уда- 
лять точно так же, как мы это делали и раньше. 


ПРИМЕЧАНИЕ. На компакт-диске, прилагаемом к книге, в папке \Примерь\Глава 16\ 
ЗОЕ Зегуег вы можете увидеть пример этой программы. 


16.8. Многоуровневые приложения 
для баз данных 


Все программы, которые были рассмотрены в этой главе, использовали одно- 
или двухуровневую логику. Когда говорят об одном уровне, то это означает, что 
данные, логика работы с ними и программа для доступа к ним находятся на одном 
компьютере (локальные таблицы). В двухуровневом представлении разделяют базу 
данных как отдельную единицу, а программу для работы с ними как другую. 
В этом случае говорят о клиент-серверной архитектуре. Логика доступа к данным 
может быть реализована как на сервере, так и на клиенте, а может разделяться ме- 
жду двумя уровнями. 

Многоуровневая система подразумевает три отдельных уровня. 

1. База данных. Здесь хранятся данные, и если позволяет сервер БД, то и логика 
доступа в виде программ просмотра данных (у1е\), процедур и функций. 

2. Логика приложения. Это сервер приложений, где располагается вся логика дос- 
тупа к данным и их обработка. Фирма ВоПап4 называет этот уровень — бизнес- 
логика. 
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3. Представление данных. На этом уровне располагается программа, через кото- 
рую конечный пользователь просматривает данные из базы и изменяет их. 


Рассмотрим простейший и самый распространенный пример трехуровневой ар- 
хитектуры. Допустим, что у вас есть база данных, и вы хотите, чтобы пользователи 
могли получить к ней доступ через Интернет. Классическое решение будет таким 
(рассмотрим уровни в обратном порядке): 


Клиент использует браузер, например, Пиегпе Ехр]огег. С помощью него он по- 
сылает запросы серверу, а затем получает обратно данные. Это классический 
уровень представления, потому что на клиенте (в браузере) не будет никакой 
логики, только отображение данных. 


Так как сервер базы данных не может получать запросы от клиента, это должна 
сделать наша программа, которая будет работать на \!еБ-сервере. Она будет по- 
лучать запросы от клиента, в зависимости от потребностей запрашивать данные 
у сервера баз данных и после этого возвращать их клиенту. Именно в этой 
программе располагается логика того, как получить данные и как их вернуть. 
На клиенте они только просматриваются, и в браузер никто не будет встраивать 
дополнительные модули для реализации этой логики. Это будет классическим 
уровнем логики приложений... — 


Сервер баз данных получает запросы от уровня логики приложений и возвраща- 
ет результат. Это уже уровень базы данных. 


В чистом виде такой архитектуры не существует. Хоть какая-то логика прило- 
жений встраивается как на уровень представления, так и на уровень БД. Поэтому 
в настоящее время доминирует смешанная модель. 

Все уровни могут находиться как на одном компьютере, так и на разных. На это 
ограничений нет, и тут вы должны действовать по ситуации. Если позволяет сервер 
базы данных (не сильно загружен и есть возможность) установить логику прило- 
жений, то в этом случае часто экономят и хранят оба уровня на одном сервере. 
Но это не всегда дает очевидное преимущество из-за больших объемов исполняе- 
мых программ. 


ЗАМЕЧАНИЕ. В одной крупной фирме программисты написали программу ведения 
склада в виде двух уровней "клиент-сервер". Сложность заключалась в том, что фир- 
ма большая и программа развивалась достаточно большими темпами. Через некото- 
рое время исполняемый файл был размером 50 Мбайт. Вдумайтесь в эту цифру. 
В этом файле была реализована вся логика работы с БД и представления. Каждую 
неделю выходила новая версия файла и его распространяли по всем компьютерам. 
Администраторам приходилось в срочном порядке менять на сотнях компьютерах 
один и тот же файл. А теперь представьте себе, что у фирмы есть несколько офисов. 
Такая удаленность усложняла обновление, потому что приходится перекачивать по 
Интернету большой файл, чтобы все филиалы работали в единой программе. Это 
еще не самое страшное. Теперь представьте ситуацию, когда утром приходит менед- 
жер и замечает, что в обновленной версии не работает необходимая ему функция. 
Чтобы не встала работа в фирме, программисты должны в срочном порядке исправ- 
лять ошибку и снова устанавливать обновление на сотнях компьютеров. 


Эта проблема решается достаточно просто, если использовать многоуровневую 
архитектуру. Нужно отделить логику от представления, чтобы не приходилось об- 
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новлять каждый раз абсолютно все компьютеры. Достаточно обновить сервер при- 
ложений, и работа возобновится в кратчайшие сроки. 

Если же вы не полюбите многоуровневые системы, то могу посоветовать напи- 
сать небольшую программу, которую будет запускать пользователь, а она будет 
делать следующее: 


С проверять на сервере обновления, и если они есть, то загружать их; 


С после загрузки изменений на локальный компьютер запускать исполняемый 
файл с локального диска. | 


Таким образом, изменив исполняемый файл, нужно поместить его на сервер 
и попросить всех пользователей перезапустить свою программу. В этот момент она 
заберет с сервера все изменения и запустит новую версию. 

Но вернемся к многоуровневым системам, ведь они дают преимущества не 
только в обновлении, но и в масштабировании. Саму логику можно разделить по 
нескольким серверам. Логику складского учета расположить в одном сервере при- 
ложений, а логику бухгалтерского учета на другом. Это немного усложнит тести- 
рование, но размер файлов будет меньше и удобнее в разработке, а нагрузка на 
сервера будет распределенной. 

Когда вы выбираете самую простую модель при разработке программы, то вы 
усложняете себе жизнь во время сопровождения и развития. 


16.8.1. Реализация сервера бизнес-логики 


‚® Уровень данных нам реализовывать не придется. Тут уже работает большое ко- 
личество фирм, и они реализовали достаточно много серверов баз данных. Нам же 
остается использовать преимущества этих разработок. 

Для реализации остальных уровней фирма Войап4 предоставила очень удобную 
технологию М/ДА5 (М4 е-иег Олзил6ще4 АррйсаНоп Зегуег$, средства разработки 
приложений среднего уровня). Эта технология упрощает создание уровня логики 
и доступа к ней из уровня представления. 

Создайте -новое приложение 
в Веры. Главное окно нас не особо | _ 
интересует, поэтому его оформлять вепобе и Уго 
не будем. Теперь создадим модуль Г НЕНЕК 
ВКетое Паа Модше (удаленный 
модуль данных). Для этого нужно 
выбрать ЕйЙе | Мем | ОФег и в поя- 
вившемся окне выбора типа созда- 
ваемого модуля выбрать Кетое 
аа Модще на вкладке Мш@@ег. 
Перед вами откроется окно, пока- Рис. 16.14. Окно настроек 
занное на рис. 16.14. удаленного модуля данных 

В первом поле Со Ца$$ Мате вы | 
должны ввести имя класса. Оно мо- 
жет быть любым, например, мувом. 


| | ‚Сон Мате: в. 


480 | Глава 16 


В поле ш%апсш? вы можете указать одно из следующих значений. 


О Мш@ре т%апсе — все клиенты подключаются к одному экземпляру сервера. 
Это значит, что доступ будет последовательный, и если один клиент т работает 
с сервером, то остальные ждут его освобождения. 


О Зшёе шуапсе — для каждого клиента заводится собственный экземпляр серве- 
ра. Таким образом обеспечивается параллельный доступ, но расходуется слиш- 
ком много ресурсов сервера, если с программой будет работать слишком много 
пользователей. 


СО Шегпа! — такой сервер не может быть использован из внешних приложений. 
Модель потоков (Тигеадтг Мо4е]) также может принимать ряд значений. 


О пе (одиночная) — такой сервер может выполнять одновременно только один 
запрос. Если у вас программа однопользовательская или вы уверены, что обра- 
щения пользователей будут достаточно короткими, то можно воспользоваться 
этим методом, потому что тут не надо заботиться о разделении. В каждый мо- 
мент времени с программой работает только один пользователь. Но если один 
пользователь начал создавать какой-то отчет, который будет' формироваться не- 
сколько часов, то остальные будут ждать все это время. 


О Арагытепе (разделяемая) — это значение используется по умолчанию и вместе 
с Мшаре ш$апсе максимально эффективно. Все клиенты используют один эк- 
земпляр сервера, но при этом не будут мешать друг другу, потому что каждый бу- 
дет использовать собственный поток. Такая модель гарантирует, что данные из 
модуля Ветое Раа Модше будут находиться в целостности и сохранности, пото- 
му что ни один клиент не сможет воздействовать на переменные другого. Безо- 
пасность остальных переменных (глобальные или из других модулей) вы должны 
обеспечивать сами с помощью методов синхронизации. О потоках мы будем го- 
ворить позже. Такая модель рекомендуется при доступе к данным через ВПЕ. 


СО Егее (свободная) — в этом случае клиент может передавать серверу несколько 
запросов, но безопасность данных модуля и глобальных переменных обеспечи- 
ваете уже вы. Эту модель лучше использовать с компонентами АРО. 


С Во (смешанная) — обладает теми же преимуществами, что и модель Егее, но 
при этом обеспечивается автоматическая сериализация обратных вызовов. 


°С Ме а! (нейтральная) — несколько клиентов могут обращаться к разным пото- 
кам в одно и то же время, а технология СОМ гарантирует, что конфликтов не 
будет. Эту модель нельзя использовать с объектами, которые имеют пользова- 
тельский интерфейс. Она также доступна только при использовании СОМ +, 
иначе модель автоматически переводится в Арагетепё. 


Выберите параметры, которые вас больше устраивают, и нажмите ОК. В при- 
мере будут использоваться компоненты АРО’' для доступа к ЗОГ, Зегуег, поэтому 
надо выбрать Мшир!е пфапсе в сочетании с потоками Егее.. 

Теперь в вашем проекте появилось еще два модуля. Первый имеет имя, начи- 
нающееся с имени проекта, и в конце добавлен префикс _НЬ. Его генерирует Реры, 
и мы в нем ничего изменять не будем. Пускай все остается как есть. Для понимания 
его содержимого нам необходимы знания СОМ, а это пока лишнее. 


го 
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Второй файл будет пока без имени, и вы можете его сохранить под любым име- 
нем, которое вас устраивает. В файле хранится удаленный модуль (наподобие 
Даа Модше, который уже использовали) с именем, которое вы указали в мастере. 

В нем. вы можете уже увидеть одну процедуру (см. листинг 16.2). Она’очень 
важна, потому что вызывается каждый раз, когда нужно зарегистрировать или от- 
менить регистрацию сервера в системе. Для примера вы можете оставить все как 
есть, но вы должны знать, что процедуру можно использовать для обеспечения 
безопасности доступа к серверу. Мы эту тему не будем рассматривать подробно, _ 
потому что она выходит за рамки книги. 


с1а$5 ргоседбите ТТезЕВОМ .Ораабевкед1зегу (Кед1зкехг: Воо1еап; соп5е С1аззтТр, Рхо- 
ато: з6г1па); 
Бед1п 
1Е Ведтзеехг степ 
Беч1п | 
1прег1$еа Ордабекеа1зегу (Кедлскек, С1аззтр, РуоаТО); 
ЕпаБ1ебоскееТтгапзрог® (С1аз$тТр); | | 
ЕпаБ1 емеьткапзроге (С1аззэтр); 
епЯ е15е 
Беа1п 
р4заБЛебоскеетгапзроге (С1азэтр); 
21з5а51емебТгапзрог® (С1аз$1Т0); 
1прехг1ееа Ордасевеч15е гу (Кед15еег, С1аззТр0, РгосдТо); 
епа; 


ева; 


Давайте поместим в модуль три компонента: 
АРОСоппесе1оп, АШБОбиеху И  РабабееРгоу1Яег |МАРАТОХ 
(с вкладки Вай Ассе$$). Вид формы вы можете || м. 
увидеть на рис. 16.15. С первыми двумя компонен- - 
тами вы уже знакомы, и они не должны вызывать 
проблем. А вот третий — новый. 

Раньше, чтобы отобразить данные, мы использо- ТезАОбиеу 
вали компонент Ракабоигсе. Он привязывался 
к запросу или таблице и был как бы промежуточ- 
ным звеном между данными и компонентами для Рис. 16.15. Внешний вид 
отображения и редактирования. В данном случае удаленного модуля данных 
у нас компоненты будут располагаться в другой 
программе, и здесь промежуточным звеном как раз 
и будет выступать трасазееРрхо\у14ех, который соединяет данные между клиентом 
и сервером бизнес-логики. Укажите в свойстве расабее этого компонента компо- 
нент нашего запроса. 
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Единственное, что мы еще изменим, — это свойство везо1уеТорака5ее. Если 
у него установлено значение ское, то все изменения будут кешироваться в наборе 
данных раказек, иначе изменения будут проходить напрямую в сервере. 

Теперь настройте компонент АрОСоппесЕ1оп так, чтобы он указывал на какую-то 
базу данных. Здесь настроено соединение с сервером М$ ЗОГ. БД Моиб\иша. 
В компоненте адроочегу укажите ваше соединение в свойстве соппесе1оп, а в каче- 
стве запроса (свойство зот,) укажите следующий код: 

ЗЕБЕСТ * 

РЕКОМ Сизботмег$ 


Сделайте запрос активным, и’ можно компилировать проект. Запустите прило- 
жение, чтобы сервер зарегистрировался в системе. После этого его можно закрыть. 
Вообще-то для регистрации можно указать при запуске в командной строке пара- 
метр /хедзегуех, В этом случае произойдет только регистрация, а приложение не 
запустится. Чтобы удалить из системы регистрационную информацию при старте, 
укажите параметр /ппгедзегуег. 


ПРИМЕЧАНИЕ. На компакт-диске, прилагаемом к книге, в папке \Примеры\Глава 16\ 
Маа$\АОМ вы можете увидеть пример этой программы. 


16.8.2. Клиент для бизнес-логики 


Для соединения с сервером нам понадобится пустое приложение. Первое, что . 
необходимо, — это определить, как мы будем соединяться с бизнес-логикой. 
На вкладке Эайа %пар есть компоненты, которые рассмотрены ниже. 


О. ОСОМСоппесНоп — используется технология ОСОМ, которая обеспечивает 
основные методы для аутентификации. Очень хорошо подходит для случая, ко- 
гда доступ происходит внутри одного домена. Если в качестве клиента будет 
выступать компьютер с ОС У/тдо\$ 95, то придется устанавливать на него 
ОСОМО5, остальные версии УМ т4о\5$ могут работать без дополнительных уста- 
новок программ. Если между клиентом и сервером стоит брандмауэр (про- 
граммный или аппаратный комплекс защиты сети), то настройка будет доста- 
точно сложной, потому что используется несколько портов. 


О $осКеСоппесНо0п — здесь работа через брандмауэр упрощается, потому что 
будет использоваться только один порт. Для обеспечения соединения использу- 
ется У/шф$осК 2-й версии, поэтому пользователи ОС \У/тдо\$ Эх должны уста- 
новить соответствующее обновление. На сервере также необходимо запустить 
программу ЗсКЕЗгу, которая есть в папке \Вт той папки, где установлен сервер. 


Есть еще несколько возможностей, но мы их рассматривать не будем. Для 
корректной работы большинства компонентов необходима настройка протокола 
ГСРЛР. _ , 

Для примера воспользуемся соединением по ОСОМ, поэтому установите на 
форму соответствующий компонент. Первое, что необходимо указать у сервера, — 
имя компьютера, на котором зарегистрирована программа с нашей бизнес-логикой. 
Пусть в нашем примере все находится на одном компьютере с адресом 127.0.0.1. 
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Теперь щелкните по ниспадающему списку в свойстве Зегуег Мате. Если компью- 
тер был указан верно и сервер зарегистрирован, то вы должны увидеть в списке имя 
программы с бизнес-логикой. Имя будет состоять из двух частей — имя проекта плюс 
имя модуля (Ветое Рава Модше). В нашем случае это ВОМ$атр!еРгозес.Те ОМ. 
Если все указано верно, то в свойстве ЗегуегС и должен появиться уникальный 
номер сервера. 

Теперь поместим на форму два компонента с11еперакабее с вкладки ОЭжа 
Ассе5$. Этот компонент используется для связи с компонентом траказбеЕРкго\1аех, кОТО- 
рый использовался при написании бизнес-логики сервера. Этот компонент будет 
связываться с таблицей и предоставлять нам данные с сервера. На клиенте работа 
С11епЕрасазек будет схожа с компонентами таблиц или запросов. 

Установите следующие свойства у обоих компонентов с11еперасазек: 


С Кетое$егуег — здесь нужно указать наше соединение (компонент 
РСОМСоппес® 1011). | 


О Ргоу4егМате — здесь в ниспадающем списке вы можете выбрать имя компо- 
нента расабекРгоу1Чег с сервера, данные которого нужны. Для обоих компо- 
нентов указываем единственного провайдера (например, тезЕракаЗееРгоу14ег). 


Теперь для каждого компонента с11епЕракабеё нужно установить „по 
Раказоигсе, чтобы мы могли для отображения и редактирования данных использо- 
вать компоненты ВоЙапд. У каждого из них укажите в свойстве расазее своего 
клиента. | 

Для отображения информации будем использовать компонент рвсг1а. Поставь- 
те два экземпляра и свяжите их с компонентами рака5очгсе. На форме (рис. 16.16) 
нам еще понадобится 6 кнопок с названиями: 


С) Подключиться; О Восстановить строку; 
О Просмотреть изменения; О Точка сохранения; 
О Отмена действия; С Сохранить. -. 


Для события опс11ск кнопки Подключиться пишем следующий код: 
ргоседиге ТРоги1 .СоппесеВаееопСс11ск (бепаег: ТОБ)ес®); 

Беч1п 

ОСОМСоппесе1оп1 .СоппесееЯ: =Егие; 

С11епЕРака$еЕ1.Асе1уе: =6гае; 

С]11еп(ДРабабее2.Асе1уе: =6хое; 

епа; 


Сначала мы делаем активным ОСОМ-соединение, а потом активируем клиент- 
ские наборы данных. Уже сейчас вы можете запустить приложение и посмотреть, 
что произойдет после подключения. Если вы сделаете это, то заметите, что даже 
если сервер не был запущен, он запускается автоматически. 

Для события опс11ск кнопки Просмотреть изменения пишем следующий код: 

ргоседиге ТЕРотт1 .У1емСсВападезВкпС11ск (бепаег: ТОБЗес®); 

Беач1п 

С]1епРабабеЕ2 .Раба: =С11епЕДабабее1 .Пе1{а; 
ера; 
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Рис. 16.16. Форма будущей программы 
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Рис. 16.17. Пример работы программы 
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Всю работу с таблицей мы будем производить в первом наборе данных (С11еп%- 
Рафа5ее1). Все изменения, которые вы делаете в данных, автоматически регистри- 
руются в свойстве ре1‹а в виде набора данных с теми же полями. Чтобы просмот- 
реть изменения, нужно любому другому набору присвоить значение этого свойства 
В СВОЙСТВО Рака. | 

Запустите программу, подключитесь к набору данных и попробуйте произвести 
несколько изменений. Теперь нажмите кнопку просмотра, и вы увидите во второй 
сетке овсг1а все, что делали (рис. 16.17). 

Когда вы отредактировали какую-то строку, то в наборе данных ре1+Еа Появятся 
две записи. Первая содержит все данные, которые были до изменения, а во второй 
заполнены новыми значениями те колонки, которые были изменены. На рис. 16.17 
это первые две строки в нижней сетке. Изменилось название компании на АвтоВАЗ. 

Третья строка сгенерирована. Когда удаляете строку, то в набор данных ре1+а 
попадает удаляемая строка с данными до удаления. Таким образом, вы можете 
просмотреть все данные, которые были в уничтоженной строке. 

Почему можно видеть изменения? Да потому, что они реально происходят не 
в базе, а в наборе данных. Пока что физически в базе данных ничего не происхо- 
дит. Вы легко можете отменять действия, и только когда редактирование будет за- 
кончено, принять все изменения. | 

Теперь добавим возможность отмены последнего действия. 

Для события о0пс11ск соответствующей кнопки пишем код: 

ргоседиге ТЕРогт1 .Сапсе1Ас®1опВиевопС11ск (5епаег: ТОБ)ес®); 

Ъед1п | 

С11епЕРакабеЕ1 .ОпаоГазеСВапае (Е хае); 
епа; 


Здесь вызывается метод опдогтазЕСвапае и указывается один только параметр. 
Если передаваемый параметр равен +хие, то курсор должен переместиться на стро- 
ку, в которой были отменены изменения. Иначе курсор остается неподвижным. 


СОВЕТ. Желательно указывать значение Егце, чтобы всегда было видно, где и что 
происходит. 


_ Для события опс11ск кнопки Восстановить строку запишем следующий код: 
ргосеаиге ТГРоги1 .Везбогег1пеВае®опС11ск (бепаег: ТОБесЕ); 

Беач1п 

С11епПабабее1 .Ве\лехгЕВесога; 

епа; ` 


Здесь вызывается метод веуегеВесога, отменяющий все изменения, которые 
были сделаны над текущей строкой. | 
Теперь добавим точку сохранения. Она позволяет добиться логики, которую нам 
дают транзакции. Для события опс11ск соответствующей кнопки запишем: 
ргоседиге ТРоги1 .бауерозпЕВиеЕопС11ск (Зеп4ег: ТОБЗес®); 
Беа1п 
С11епРакабеЕ1 .бауеРо1п(; 


ева; 
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ВНИМАНИЕ. Метод опдогазЕСВапае портит значение точки сохранения. 


По нажатии кнопки Сохранить все внесенные нами изменения будут сохра- 
няться в базе данных. Для этого мы должны выполнить следующий код: 
ргоседиге ТЕГогт1 .Арр1уАраакезВаеопС11скК (бепаег: ТОБЗес®); 
Бед1п | | | 
С11епсРабабее2 .Арр1уОрдаеез (0); 
епа; 


Здесь вызывается метод Арр1у0рдаеез, которому в качестве параметра переда- 
ется количество ошибок, которые нужно игнорировать при сохранении. Такие 
ошибки часто возникают, когда с сервером работают несколько пользователей. Тут 
могут быть разногласия, например, один пользователь удалил строку, а другой пы- 
тается ее изменить. В большинстве случаев нужно ставить количество игнорируе- 
мых ошибок в 0. 


ПРИМЕЧАНИЕ. На компакт-диске, прилагаемом к книге, в папке \Примеры\Глава 16\ 
Мааз\СПеп!Е вы можете увидеть пример этой программы. | 


Язык Оерф предоставляет нам еще много возможностей по управлению 
МША$-приложениями, но ‘описывать их все не имеет смысла. При хорошем зна- 
нии технического английского языка вы без труда сможете ' разобраться с осталь- 
ными методами и свойствами. Если вам нужна более подробная информация, 
то вам надо обратиться к специализированной литературе по программированию 
БД в Реары, потому что эта тема обширна, а основная задача книги — научить вас 
программировать и мыслить так, чтобы вы могли развиваться дальше. 


Глава 17 


Потоки 


Операционная система У/тдо\з$ является многозадачной. Это значит, что она 
может выполнять несколько задач одновременно. Почему именно задач, а не про- 
грамм? Да потому, что одна программа может состоять из нескольких независимых 
блоков кода, которые тоже могут выполняться одновременно. Каждый такой блок 
называется потоком. 

Когда вы запускаете новое приложение, то для него автоматически создается 
главный поток, в котором и будет выполняться код программы. Но это не значит, 
что вы ограничены этим потоком. В любой момент вы можете создать дополни- 
тельные потоки, которые будут выполняться параллельно главному. 

Таким образом можно добиться многозадачности внутри самой программы. Это 
очень удобно, когда в вашей программе должны выполняться какие-то долгие рас- 
четы. Допустим, что у вас складская программа, которая должна сформировать 
большой и сложной отчет. Время формирования будет около часа, и ваша про- 
грамма будет заниматься только формированием. Но как же тогда работать со 
складом? Тут тесть два выхода. 


1. Создать отдельное приложение для формирования отчета и запускать его парал- 
лельно основной программе. 


2. Разделить основную программу на два потока, которые будут выполняться па- 
раллельно. 


Для компьютера все равно, какой из этих вариантов вы выберете. Многие про- 
граммисты все делают в одном модуле, а для формирования отчета используют от- 
дельный поток. Таким образом, и программа будет работать, и склад будет полу- 
чать оперативные данные. Кроме этого, программа будет обрабатывать данные 
в отдельном потоке. 


17.1. Теория потоков 


Часто в этой книге приводятся примеры на основе таких программ, как УМога 
и Ехсе], и сейчас рассмотрим пример, основанный на работе этих программ. Когда 
вы запускаете УМог4 и набираете текст, то встроенный модуль проверки орфогра- 
фии автоматически следит за тем, что вы пишете, и подправляет орфографиче- 
ские ошибки. Теперь представьте логику проверки. После нажатия кнопки нужно 
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отобразить на экране нужную букву, затем проверить ближайшие слова на измене- . 
ния и правильность их написания. После проверки слов — проверять все предло- 
жение на наличие пропущенных запятых или других знаков препинания. Русский 
язык достаточно сложный, поэтому алгоритм проверки грамматики достаточно 
сложный и далеко не мгновенный. | 

На словах алгоритм описывается достаточно просто. Но попробуйте предста- 
вить себе ту большую работу, которую надо проделать после каждого нажатия 
кнопки. Если бы алгоритм проверки орфографии действительно действовал бы так, 
то буквы появлялись бы на экране не чаще одной в пару секунд. 

К счастью, проверка орфографии работает как отдельный процесс. Вы спокойно 
набираете текст, а проверка идет в отдельном потоке, не мешая вам работать с тек- 
стом. При этом практически незаметны задержки, и нет никаких неудобств. 

Когда вы пишете новую программу, то не надо пытаться установить все функ- 
ции в отдельные потоки. Каждый поток накладывает на программу дополнитель- 
ную сложность и неустойчивость, да и отлаживать потоки намного сложнее. Тут 
необходимо следовать принципу необходимой достаточности — делать потоки 
только там, где это необходимо, и столько, сколько будет достаточно для полно- 
ценной работы. 

Какой код нужно помещать в отдельный поток? Вот некоторые примеры. _ 


С Если какие-то функции должны выполняться параллельно основному процессу, 
то тут деваться некуда и нужно помещать их в отдельный поток. 


С Если какие-то расчеты идут достаточно долго, то многие считают, что их тоже 
нужно помещать в поток. Просто когда идут такие расчеты, программа блоки- 
руется и невозможно нажать кнопку Отмена или что-нибудь подобное. Это 
неправильное утверждение. Поток тут абсолютно не обязателен, потому что 
можно обойтись и без него. Достаточно внутри. расчетов поставить вызов 
Арр11сае1оп.РгосезМеззадез, И в этом месте выполнение расчетов будет пре- 
рываться на некоторое время, а программа будет обслуживать другие сообще- 
ния, пришедшие от пользователя. Таким образом, получится простой эффект 
многозадачности без использования потока. Нет, поток можно использовать, 
просто это не обязательно. 


СО Код критичен к времени выполнения. Допустим, что ваша программа должна 
принимать какие-то данные по СОМ-порту. Как только в порт Поступили данные, 
они должны быть моментально обработаны с минимальной задержкой. Обработку 
таких ситуаций желательно выносить в отдельный поток, потому что если в мо- 
мент поступления данных программа занята большими расчетами, то данные мо- 
гут оказаться, в лучшем случае, необработанными, в худшем — потерянными. 


Истинную многозадачность можно получить только на многопроцессорных сис- 
темах, где каждый процессор выполняет свою задачу. В домашних компьютерах 
в основном ставится только один процессор. Чтобы создать многозадачность, на 
таких процессорах используют псевдомногозадачность. В этом виде один процес- 
_.сор выполняет сразу несколько задач благодаря быстрым переключениям между 
_ ними. Например, процессор может выполнять сразу десять задач, при этом каждой 
из них выделять по 10 миллисекунд своего рабочего времени. В этом случае про- 
цессор будет через определенные промежутки времени переключаться между зада- 
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чами, и у пользователя будет создаваться иллюзия того, что они выполняются од- 
новременно. Но это общий вид псевдомногозадачности, реально она реализована 
более сложным образом. 

В настоящее время начинают завоевывать рынок многоядерные процессоры, где 
один процессор состоит из нескольких ядер, каждое из которых может выполнять 
отдельную задачу одновременно. "Железо" — это хорошо, но все преимущества 
многозадачности на нескольких ядрах можно будет ощутить только тогда, когда 
программы и ОС будут использовать новые возможности этого "железа". 

В 32-разрядных версиях Уш4до\/$ используется вытесняющая многозадачность 
(до этого была согласованная). В такой среде ОС разделяет процессорное время 
между разными приложениями и потоками на основе вытеснения. Разделение про- 
исходит в основном благодаря приоритету потока. У каждого потока есть приори- 
тет, по которому определяется его важность. Чем выше приоритет, тем больше 
процессорного времени ему выделяется. Потоки с одинаковым приоритетом будут 
получать одинаковое количество процессорного времени. 

У дополнительных потоков приоритет выставляется такой же, как и у главного 
потока программы, но вы его можете увеличить или уменьшить. Чем выше при- 
оритет потока, тем больше на него отводится процессорного времени. 

Допустим, что‘ваша программа должна принимать какие-то данные по СОМ- 
порту и сразу же их обрабатывать. Для этого создаем новый поток и в нем реализу- 
ем код получения и обработки данных. Теперь достаточно поднять приоритет по- 
тока, чтобы на него при необходимости выделялось больше процессорного време- 
ни, и задача решена. Теперь, как только поступают на СОМ-порт новые данные, 
поток сразу же обработает их, потому что с более высоким приоритетом он полу- 
чит больше процессорного времени. 


17.2. Простейший поток 


Давайте попробуем написать простейший поток и в процессе создания познакомим- 
ся с его возможностями. На практике этот материал усваивается лучше, поэтому не бу- 
дем больше тратить время на лишние разговоры и посмотрим на потоки в действии. 

Создайте новый проект. Установите на форму компонент твзсьЕа1е из палитры 
\УУт32 и один компонент тгаЪе1. Еще понадобится несколько кнопок — одна для 
запуска потока, другая для остановки. Посмотрите на рис. 17.1, где показана форма 
будущей программы. У вас должно получиться нечто похожее. 

Теперь создадим модуль для потока. Для этого выберите пункт меню ЕЙ? | 
№ т | ОФег для открытия окна создания нового модуля. Найдите в этом окне на 
вкладке Меу пункт Тгеа@ ОБесе. Выделите его и нажмите кнопку ОК. 
В результате появится окно, показанное на рис. 17.2. В этом окне нужно указать 
имя создаваемого потока. Назовем поток — ТСоиптЮБ]. Теперь нажмите кнопку 
ОК, и Оеры создаст модуль-заготовку для нашего будущего потока. 

Сохраните весь проект — главную форму под именем Мат, поток под именем 
МуТИгеа4. | | | 


Теперь посмотрим на код созданного модуля потока. Этот код показан в лис- 
тинге 17.1. 
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Рис. 17.1. Главная форма Рис. 17.2. Задание имени потока 
нашей программы 


11116 МуТргеаа; 


1псеу’Ёасе 
цзез С1аззез; 


Суре 
ТСочпЕОЮ) = с1аз$ (ТТргеаа) 
рг1уаке 
{ Ре1луаЕе аес1ахаЕ1опз } 
ргосессеа 
ргоседиге Ехесике; оуегг1ае; 


епа; 
1пр1етепсае1оп 
{ ТбочпЕоьз } 


рхгоседите ТСоцпЕОБЬ).Ехесиее; 
Бед1п 

{ Р1асе Ебгеа@ соае Теге } 

{ Поместите код потока здесь } 
епа; 


ева. 
У класса потока есть только один метод Ехесцее. В любых потоках эта процеду- 


ра обязательно должна быть переопределена, и в ней должен быть написан собст- 
венный код. Это связано с тем, что в объекте ттьгеаа эта процедура объявлена как 
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абстрактная (аъзегасе) — пустая. Это значит, что процедуре дали имя, выделили 
место в памяти, но ее код должен быть написан классами-потомками, т. е. нами. 

Метод Ехесчлее и есть заготовка для кода потока. То, что мы напишем здесь, бу- 
дет выполняться параллельно основной задаче. Давайте напишем здесь код, приве- 
денный в листинге 17.2. 


Феи 


рхгоседаге ТСоипЕОБ} .Ехесиее; 
Беалп | 
1паех: =1; 
//Запускаем бесконечный счетчик 
у111е 1паех>0 ао 
Бед1п 
_ бупсВгоп1 те (ОрдабеГаЪье1); 
Тпс (10аех); 
1Е 1паех>100000 ЕБеп 


1раех:=0; 


//Если поток остановлен, то выйти. 
_1Е сеум1раееа ЕБеп ех1(; 
епа; 


епа; х, 


Переменную 1пдех мы объявим как 1пеедег в разделе рх1уаЕе объекта потока. 
Там же мы объявим процедуру ордакегаЪе1. Эта процедура выглядит так: 
ргосеаиге ТСбоцпЕ ОБ] .ОрЯабеГаЬе]1; 
Беа1п 
ЕКогп1 .Габе11.СарЕ1оп : =ТпТобех (Тп4ех); 
епа; 


И последнее, что мы сделаем, — подключим главную форму в раздел изез, по- 
тому что обращение к ней происходит в коде выше (Еохи1 .ГаЪе11.СарЕ1оп) для 
обновления текста компонента гаЪе11. 

В методе ехесике запускается цикл мн11е, который будет выполняться, пока пе- 
ременная 1п4ех больше нуля. Внутри цикла мы вызываем метод зупсьгоп1=е 
(о нем чуть позже) и увеличиваем переменную :пдех. Если эта переменная становит- 
ся больше 100 000, то в 1паех присваивается 0 и расчет прекращается. Таким обра- 
зом, цикл будет бесконечно выполнять увеличение переменной шдех от 0 до 100 000. 

Последней идет проверка следующего характера, если СВОЙСТВО кехи1паееа 
равно сгие, то выйти из процедуры. Когда мы выйдем, работа потока закончится, 
потому что закончится код процедуры ехесиее. Свойство кегт1пакеа станет рав- 
НЫМ Егое тогда, когда будет вызван метод техи1паее потока. 

Теперь о магической функции 5упсьгоп1=2е. В качестве параметра ей передается 
процедура ордаекегаЪе1, которая производит вывод в главную форму. Для чего 
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нужно вставлять процедуру вывода на экран в 5упсвхоп1=е? Библиотека УСТ, име- 
ет один недостаток — она не защищена от потоков. Все пользовательские компо- 
ненты разрабатывались так, что к ним может получить доступ только один поток. 
Если главная форма и поток попробуют одновременно вывести что-нибудь в одну 
и ту же область экрана или компонент, то данные могут быть разрушенными и про- 
грамма может "рухнуть". Поэтому весь вывод на форму нужно выделять в отдель- 
ную процедуру и вызывать эту процедуру с помощью зупевгоп12е. 

Если процедура вызвана в методе зупсьгоп1 2е, то к компонентам окна получает 
доступ только объект, вызвавший метод 5упсьхгоп12е. Этот процесс незаметен для 
пользователя. | 

Таким образом, если вам нужно вывести какие-то данные из потока на экран 


’ главного окна, то делайте это в отдельной процедуре и вызывайте ее с помощью 


метода 5упсвгоп1=2е. Как этот метод решает проблему? Дело в том, что процедура, 
вызванная внутри Зупсьгоп1=2е, будет работать не в отдельном потоке, а в контек- 
сте основного потока программы. Вот тут кроется очень серьезная проблема — ес- 
ли основной поток в данный момент заблокирован, то вызов метода не сможет 
быть завершен. Очень хороший пример на эту тему описан в моей книге [5]. Лучше 
примера я сейчас просто и придумать не могу, а повторяться нет смысла, хотя 
в разо. 17.5 мы увидим неплохой пример. 

Поток готов. Возвращаемся к главной форме. В раздел изез (самый первый, ко- 
торый идет после 1пеехгЕасе) добавим модуль потока мутргеаа. Почему имённо 
в этот раздел, а не в тот, что расположен ниже? Это связано с тем, что в разделе 
рг1уаЕе нам нужно объявить переменную, имеющую тип нашего объекта. Если 
добавить имя модуля во второй раздел изез, то он должен находиться ниже той 
части кода, где нам нужно написать объявление. Именно поэтому добавлять мо- 
дДуль МуТЬгеаа нужно в первый раздел пзез. 

В разделе рх1хахе объявим переменную со типа ТСоипе0Ъ1 (объект потока). 

По нажатии кнопки Запустить напишем такой код: 

рхоседёиге ТЕоги1 .Виееоп1С11сК (5епдехг: ТОБЗес®); 

ред1п —_ 

со: =ТСоипЕ ОБ] .Сгеаее (Ехоае); 
со.Кезипе; 
со.Рг1ог1 у: =ЕрЬомег; 

епа; 


В первой строке кода мы создаем поток со. В качестве параметра может быть 
Ехие ИЛИ Ёа1зе. Ёсли ГЕа]1зе, ТО ПОТОК сразу начинает выполнение, иначе поток со3- 
дается, но не запускается. Если поток создан не запущенным, то для запуска нужно 
использовать метод Кезоме, ЧТо И Происходит во второй строке. 

В третьей строке` мы устанавливаем приоритет потока поменьше, чтобы он не 
мешал работе основному потоку и выполнялся в фоновом режиме. Если установить 
приоритет повыше, то основной поток начнет притормаживаться, потому что у них 
будут одинаковые приоритеты. 

Для события опс11ск кнопки Остановить напишем следующий код: 

ргоседцге ТЕогт1 .Ваббоп1С11ск (5епаег: ТОБдес*); 

Бед1п 
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со.Тенапаее; | 

ева; | 

Здесь происходит остановка выполнения потока с помощью вызова метода 
Теги1паее объекта потока. После вызова этого метода свойство кехт1пасеа станет 
равным Ехие и выполнение процедуры ехесиее заканчивается. 

Попробуйте запустить эту программу и поток (нажатием кнопки Запустить), 
и набирать текст в в1съЕа1е. Текст будет набираться без проблем, и в это время 
в компоненте тгаъе1 будет работать счетчик. Если бы вы запустили счетчик без 
отдельного потока, то не смогли бы набирать текст в в1съЕатЕ, Потому что все ре- 
сурсы программы (основного потока) уходили бы на работу счетчика. 


ПРИМЕЧАНИЕ. На компакт-диске, прилагаемом к книге, в папке \Примеры\Глава 17\ 
ТИгеад1 вы можете увидеть пример этой программы. 


17.3. Дополнительные возможности потоков 


Теперь рассмотрим еще некоторые свойства и методы объекта потока, а также 
сделаем несколько замечаний, касающихся работы с ним. В принципе, у объекта не 
так уж и много свойств и методов. Большую их часть мы уже рассмотрели, но все 
же здесь необходимо упомянуть еще несколько методов и свойств объекта ттьгеаа, 
которые помогут вам при написании реальных приложений. 

Метод 5азрепа — приостанавливает поток. Для вызова просто напишите со. $изрепа. 
Чтобы возобновить работу с этой же точки, нужно вызвать кезиме. 

Метод рРх1ох1еу устанавливает приоритет потока. Например, Ре ог1 у: = 
Ерта1е; 

Рассмотрим 1 возможные приоритеты: 


Ерта1е — поток будет работать, только когда процессор простаивает без работы; 
ЕрЬомезЕ — самый слабый приоритет; 

ЕрЬомег — слабый приоритет; 

ЕрМогта1 — нормальный; 

ЕрН1апег — высокий; 

ЕрНн1арезе — самый высокий; 


ооооооо 


ЕрТ1меСг1Е1са1 — критичный (не советую использовать, потому что может 
"грохнуть" систему). | | 
СВОЙСТВО бизрепаеа — если этот параметр сгие, то поток находится в паузе. 
СВОЙСТВО Теги1пафеа — если егие, то поток должен быть остановлен, иначе 
поток должен продолжать работу. 
_ Метод техиапаее — остановить выполнение потока. == | 

Свойство ЕгееОпТегт1паее — если равно егие, то по завершении выполнения 
процедуры кхесиЕе поток самоуничтожится. 


СОВЕТ. Использовать этот параметр, чтобы быть уверенным, что поток корректно 
удалился из памяти. 
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Давайте посмотрим, как будет выглядеть метод кхесиее из предыдущего приме- 
ра с использованием свойства гхеебпТехи1па‹е: 
ргоседаге ТСоцпеОЬ) .Ехесаее; 
Беч1п 
ЕгеебпТеги1паее : =Ехгае; 
1паех:=1; 
//Запускаем бесконечный счетчик 
уй11]1е 1паех>0 ао 
Бед1п | 
Зупсргоп12е (ОраасеГаье!1); 
Тпс (10паех); 
1Е 1паех>100000 ЕВеп 
1паех:=0; 


//Если поток остановлен, то выйти. 
1ЁЕ. сеуп1пасеая ЕЪеп ех1е; 
епа; 
епа; 


В принципе, информации, которая изложена в этой главе, вам будет достаточно 
для написания собственных потоков. Здесь следует помнить, что у объекта ттьгеаа 
есть еще несколько свойств и методов, но они не так важны и ими программисты 
редко пользуются. Поэтому не будем тратить время на описание оставшихся воз- 
можностей, а лучше рассмотрим несколько советов. 


СОВЕТ. Объекты потоков создаются как полноценные объекты. В основной програм- 
ме мы создаем в памяти отдельный экземпляр потока и потом работаем с ним. 
Вы можете создавать по несколько экземпляров одного потока, и они будут работать 
одновременно, абсолютно не мешая друг другу. Представим пример программы, ко- 
пирующей файлы. Вы можете создать поток, который будет копировать файлы из од- 
ного места в другое. В основной программе можно создать два экземпляра таких по- 
токов и каждому из них определить копирование разных файлов в разные места. Оба 
потока будут копировать свои файлы, абсолютно не мешая друг другу. 


17.4. Подробней о синхронизации _ 


В предыдущем примере использовалась процедура ораакегаъе1, в которой на 
главную форму выводится значение переменной 1пдех. Если бы мы программиро- 
вали главное окно, то вполне логичным было бы создать переменную 1паех ло- 
кальной для процедуры Ехесисе, а ее значение передавать в ОрдакеьаЪе1 в качестве 
параметра. В потоках с этим проблема. Чтобы передать какие-то значения в про- 
цедуру, которая должна вызываться методом 5$упсьгоп12е, нужно пользоваться пе- 
ременными объекта. 


СОВЕТ. Нежелательно пробовать передавать параметры в процедуры, которые вы- 
зываются методом Зупсвгоп12те. 
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Но использование синхронизации — не единственный способ обновления пара-. 
метров окна. Мы можем использовать для этого событийную модель УМ т4о\5. Ка- 
ждый раз, когда надо обновить содержимое текста, мы можем посылать окну со- 
общение 5епаМеззаде с указанием значения, которое надо установить. Главное 
окно будет получать это сообщение, и компонент сам изменит заголовок. В этом 
случае мы не обращаемся к главному окну из потока, а только отправляем сообще- 
ние, поэтому никаких проблем не будет. 

Итак, функция 5епаМеззаде имеет следующие параметры: 
указатель на окно (компонент), которому нужно послать сообщение; 

тип сообщения; 

первый параметр; 

второй параметр. 

Судя по функции, нам нужен компонент, у которого есть свойство напате. 
В предыдущем примере был тгаъе1, у которого нет такого свойства, значит, он нам 
не подходит. Замените этот компонент на тЕа1е. Теперь перейдем в поток. Тут 
в разделе ззез нужно добавить два модуля: м1паомз (здесь объявлена сама функ- 
ЦИЯ) И меззадез (здесь находятся все типы сообщений У/тдо\°). 

Теперь удалите из потока процедуру ордакегаЪе1. Больше она не нужна, потому 
что мы не будем использовать метод зупсьгоп1=е. Ну и, наконец, подкорректируем 
метод Ехесцее: | 

ргоседиие ТСоипеОЬ) .Ехесоее; 

Бед1п 


Оооо 


1паех:=1; 
у11е 1паех>0 ао 
Беа1п 
ЗепаМеззачде (Роги1.ЕЯ1е1.Нап41е, ИМ_СЕТТЕХТ, 0, 
| Тпеедег (РСЪаг (ТпеТо$Ех (1п4ех)))); 
Тпс (1паех); 
1Е 1паех>100000 Епеп 
1паех:=0; 
1ЁЕ сеуп1пасеЯ ЕЦеп ех1е; 
епа; 
епа; 


Как видите, теперь вместо метода зупсьхоп12е генерируется событие на обнов- 
ление компонента та: е. В качестве второго параметра мы указываем тип сообще- 
НИЯ УМ_ЗЕТТЕХТ — обновить информацию. Третий параметр равен нулю. В по- 
следнем параметре нужно указать значение, которое нужно установить. Вот тут 
есть небольшая сложность. У нас значение представлено в виде целого числа, но 
нужно превратить его в РСваг. Для этого сначала конвертируем переменную 1паех 
в строку (тпЕТобех), потом приводим ее к типу РСТаг и тут же указываем размер 
Тпседех. Сложно? Зато не надо ничего синхронизировать. 

Метод с сообщениями хорош, но может быть использован далеко не ‚ всегда, по- 
этому синхронизация более универсальна. 


ПРИМЕЧАНИЕ. На компакт-диске, прилагаемом к книге, в папке \Примеры\Глава 17\ 
ТргеаЧ2 вы можете увидеть пример этой программы. 
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17.5. Объект события Еуе!Е 


Представим себе ситуацию, когда основной поток должен заморозиться в ожи- 
дании, пока дочерний поток не выполнит определенное действие. Такое бывает 
необходимо, когда дальнейшее выполнение основного потока не имеет смысла без 
результата расчета в дочернем. Как можно реализовать такой пример? | 

Первый вариант, который может прийти в голову (если вы не знаете о событии 
куепе, имя которого можно увидеть в заголовке раздела): 


С создать в основном потоке булеву переменную и установить ей значение га1$е; 


О запустить дочерний поток, который в момент завершения определенных дейст- 
вий изменит значение цеременной на ехие; 


С в основном потоке в цикле проверять значение переменной Состояния 
в ожидании значения Ехгое. | . 


В принципе, такой вариант вполне будет рабочим, но слишком сильно и бес- 
смысленно будет расходовать ресурсы процессора. Намного эффективнее исполь- 
зование объекта события, которые мы и рассмотрим. | 

На самом деле, событие еуепе, которое мы будем рассматривать, можно назвать 
объектом с серьезной натяжкой, и лично у меня язык поворачивается с трудом, 
а руки еле печатают на клавиатуре слово "объект". А все потому, что не хочется, 
чтобы вы запутались в терминах. Данное событие не является объектом в том по- 
нимании, в котором мы привыкли с точки зрения объектно-ориентированного про- 
граммирования. Это просто какой-то объект в памяти, который может изменять 
свое состояние. 

Итак, давайте будем писать пример и одновременно знакомиться с его теорией. 
А чтобы не выдумывать велосипед, улучшим пример, который мы рассматривали 
в разд. 17.4. Откройте этот пример и модуль дочернего потока МуТВгеа4.ра$. Здесь 
в описании класса потока нужно добавить переменную, в которой и будет хранить- 
ся объект события, и сделать это лучше в разделе риь11с: 

руь11с | 

еуепе: ТНапа]1е; 


По идее, у вас такого раздела не должно быть. Если так, то добавьте его сами, 
а тип у события должен быть Тнапа1е. Помимо этого, нужно добавить объявление 
конструктора: | 
сопзегасбог Сгеаее(); 


Ну а реализация конструктора будет выглядеть следующим образом: 
соп5Егасбог ТСоипЕОБ) .Сгеаее; 
Ъеа1п | | 
еуепЕ := СгеасеЕуепе (п11, Сгае, ЁЕа15е, ''); 
ВезееЕхеп* (е\уепе); | 
епа; 


В первой строке мы создаем новый объект события. Для этого используется 
Утпдо\мз; АР]-функция сгеасеЕуепе, которая имеет следующий вид: 
Еипсе1оп СгеаееЕхепе ( 
1рЕуепеАссу1рикез: Р5есиу16уАееу1раеесз; 
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БМапоа1Кезес, 
Ъ11161а]б6афе: ВооГ; 
]1рМапе: РСраг 
): ТНапа1е; $6@Яса11; 


Рассмотрим параметры функции: 


О 1ркуепеАЕЕх1БиЕез — указатель на структуру 5$есиг1еуАЕЕх1Расез, которая оп- 
ределяет, может ли объект события наследоваться дочерними процессами. Если 
в этом параметре указать нулевой указатель, то наследование будет невозможно, 


С ъмапиа1Кезек — определяет способ сброса состояния события. Если здесь ука- 
зать егие, то для сброса состояния нужно использовать функцию везекЕуепк, 
иначе состояние будет автоматически сбрасываться после вызова функции ожи- 
дания (например, ма: ЕРог5$1п91е0Ъ3ес®); 

О ъ101Е1а155аке — начальное состояние события. Если здесь указать Еа1зе, ТО 
событие считается сброшенным, а если кгае — то установленным, как будто 
событие уже сработало; 


С 1рмаме — имя события. Можно создавать и неименованные события, и именно 
такие используются чаще всего. Имена нужны тогда, когда требуется наследо- 
вание события в дочерних процессах. 


В качестве результата функция возвращает новый объект-событие. 

В данном примере мы создаем событие с ручным сбросом состояния и по умол- 
чанию в сброшенном виде. Но несмотря на это, во второй строке событие сбрасы- 
вается вручную с помощью функции квезекЕтуепе. Функция достаточно проста, ей 
нужно только передать в качестве параметра объект события, состояние которого 
нужно сбросить. | 

| Теперь перейдем к коду в основном модуле, где создается новый поток. После 
создания потока и запуска его на выполнение добавляем следующую строку: 

Иа1еЕРог51п91е0Ъ3есе (со.еуепе, ТМЕТМТТЕ); 


Здесь вызывается функция Иа1ЕЕох51п91е0Ъ3есе, которая ждет наступления со- 
бытия. При этом выполнение потока, внутри которого была вызвана функция, бло- 
кируется, пока указанное событие не сработает. В качестве первого параметра 
нужно указать переменную события, а в качестве второго параметра — сколько 
времени в миллисекундах нужно ждать. 

Если за указанное время событие не наступило, то функция вернет значение 
МАТТ_ТТМЕООТ. Но если в качестве второго параметра указано тметмттЕ, функция 
будет ждать события бесконечно. 

Теперь после запуска потока мы запускаем ожидание наступления события, 
и основной поток приложения заморозится. А что если сейчас запустить приложе- 
ние? Ни в коем случае не делайте этого! Дело в том, что основной поток заморажи- 
вается, а при попытке синхронизации из дочернего потока произойдет зависание. 
Мы уже говорили, что код синхронизации будет выполняться в контексте основно- 
го потока, а т. к. он заморожен, то программа заблокируется. 

Чтобы решить проблему, нужно изменить основную функцию потока следую- 
щим образом: 

ргоседиге ТСоипеоь. Ехесисе; 

Беач1п 


\ 
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1паех: =1; 
у121]е 1паех>0 ао 
Бед1п 
Тпс (104ех); 
// Если счетчик равен 20 000, то установить событие 
1Ё 1паех=200000 Епеп 
ЗесЕхепе (еуепЕ); 


// Если счетчик более 20 000, то синхронизировать вывод 
1Е 1паех>200000 ЕЪеп 
ЗепаМеззаче (Гоут1 .ЕЯ1{1.НапЯ1е, ИМ_ЗЕТТЕХТ, 0, 

Тпеедег (РСВаг (ТпЕТобех (1паех)))); 


1Ё сеум1пабеа ЕВеп ех1е; 
епа; 
ета; 


В этом варианте мы в цикле увеличиваем значение переменной :паех. Когда она 
станет равной 20 000, вызываем функцию 5екЕуепе, которая устанавливает собы- 
тие. В этот момент функция ожидания иа1ЕЕРог$1п91е0Ъ3ес+, которую мы вызвали 
в основном потоке, завершит свое выполнение и блокировка исчезнет. 

Обратите также внимание, что функцию 5епдМеззаде для обновления текста на 
главной форме мы вызываем только тогда, когда счетчик более 20 000, т. е. когда 
можно быть уверенным, что блокировка в основном потоке исчезнет и не произой- 
дет зависания. 

Вот теперь можно запускать программу и поток. Обратите внимание, что счет- 
чик будет отображаться на форме не с нуля, ас 20 000. До этого момента поток не 
обновляет форму, а сама форма заблокирована в ожидании. Так как нет обновления 
на экране, то расчет до 20 000 произойдет мгновенно, а вот дальше уже поползет 
из-за задержек с синхронизацией и затрат на прорисовку после каждого изменения 
счетчика. | | 

Как видите, блокирование выполнения очень удобно, но опасно, поэтому поль- 
зоваться этим методом нужно максимально аккуратно. 


ПРИМЕЧАНИЕ. На компакт-диске, прилагаемом к книге, в папке \Примеры\Г лава 17\ 
Е\уег{ вы можете увидеть пример этой программы. 


События — очень удобный механизм дождаться, когда поток закончит выпол- 
нять какие-то действия, например, прочитает данные с устройства или выполнит 
сложный расчет. События очень часто используются и совместно с \Мшдо\$ АР|- 
функциями. Да, некоторые функции операционной системы, которые выполняются 
очень долго, могут иметь асинхронные аналоги, т. е. выполняющиеся в отдельном 
потоке. 

А что если нужно проследить сразу за несколькими событиями? Я очень часто 
работаю с сетевыми программами, и поэтому на ум приходит пример ожидания 
данных с двух сетевых интерфейсов. Допустим, вы запустили два потока, каждый 
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из которых ожидает данные из сети, но с разных сетевых карт. Как запустить ожи- 
дание — функцию ма1ЕРог51п91е0Ъ3есЕ? Какое из событий указать и как указать 
сразу два события? | 

Все очень просто, есть еще одна функция — мазЕРоЕМи! е1р1е053есез, которая 
позволяет ожидать изменения нескольких событий. Функция получает в качестве 
параметров четыре значения: | 


О количество событий, которые нужно ожидать; 
С указатель на массив из идентификаторов событий; 


С нужно ли ждать все события. Если в этом параметре указать сгие, то функция 
вернет управление только тогда, когда все события из массива просигнализиру- 
ют. Если здесь указать Еа1зе, То функция вернет управление, если изменится 
состояние хотя бы одного из событий; 


С время ожидания. 


А как определить, какое из событий сработало? Если в качестве третьего пара- 
метра было указано истинное значение, то, конечно же, сработали все события. Ну 
а если была ложь, то определить нужное событие достаточно просто. Если резуль- 
тат работы функции равен константе матт_овоЕСТ_0, то сработало первое событие 
в списке. Если результат равен этой же константе, но на единицу больше, то срабо- 
тало второе событие ит. д. 

Полноценный пример мы писать не ‚будем, но потенциально возможную функ- 
цию рассмотрим: 


уаг 


ВапЯ1ез: аггау [0..2] оЕЁ ТНапр@а]1е; 


`оЬ): @мога; 

Беа1п 

Папа1ез [0] := событие 1; 
папа1ез[1] := событие 2; 
Вапа1ез[2]:= событие 3; 


оБа := Мат ЕРохМи11р1е063есе$ (3, @РапЯ1ез, ЁЕа1зе, ТМЕТМТТЕ}; 
сазе оЪ] оЕЁ . - 
МАТТ ОВДЕСТ_О0: 

Сработало событие 1 
МАТТ_ОВОЕСТ_0+1: 

Сработало событие 2 
МАТТ_ ОВУЕСТ 0+2: 

Сработало событие 3 
МАТТ ЕАТЬЕО: 

Ошибка; 

епа; 


ета; 
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17.6. Критические секции 


Допустим, что в вашей программе есть класс для потока с именем тьгеаа1. Имя 
банальное, но это сейчас не важно, главное, что этот класс реализует работу 
с СОМ-портом. Теперь представим, что необходимо создать 10 объектов данного 
класса, и все они должны работать одновременно. Проблема в том, что с СОМ- 
портом в один и тот же момент времени может работать только одно приложение, 
а одновременный доступ на чтение и запись даже из одного приложения может за- 
вершиться проблемой. 

Как сделать так, чтобы все десять потоков вызывали функцию чтения данных по 
очереди и никогда не делали этого одновременно? Первый вариант, который при- 
ходит в голову, — использовать синхронизацию. Но ведь в этом случае функция 
чтения данных будет выполняться ‘в контексте основного потока приложения 
и блокировать его, что не всегда хорошо. Нужно, чтобы потоки сами могли разби- 
раться с такими проблемами, не привлекая к решению проблемы основной поток, 
и такой метод есть — кфитические секции. 

Мы рассмотрели проблему на примере СОМ-портов, но такие же проблемы 
встречаются при работе с множеством других типов оборудования и в некоторых 
случаях даже при работе с файловой системой. 

Кратко рассмотрим функции, которые пригодятся нам при работе с критиче- 
скими секциями: 


О тп161а112хеСг161са15есЕ1оп — критическую секцию сначала нужно создать, 
И для этого используется данная функция; 


О ЕпеехСх1Е1са15есЕ1оп — После вызова этой функции начинается код критиче- 
ской секции. Этот код может одновременно выполняться одним и только одним 
потоком данного класса в один и тот же момент времени; 


С] геауеСсх1Е1са15есЕ1оп — функция завершения критической секции; 
С ре1ебеСх1е1са15есе1оп — уничтожение критической секции. 


В качестве параметра все функции получают структуру типа 
ТЕТЬСк161са15есе1оп. ФУНКЦИЯ Тп1Е1а112еСг1Е1са15есЕ1оп  инициализирует 
структуру, ре1екеСх1Е1са15есе1оп освобождает, а остальные используют для кон- 
троля доступа. Информация из этой структуры будет использоваться ОС для син- 
хронизации доступа к критической секции со стороны потоков данного класса. 

Теперь напишем небольшой пример, а точнее, улучшим уже написанный 
в разд. 17.5. Для этого нужно сначала объявить переменную типа твттсх1Е1са15есе1оп. 
Вот тут вопрос на засыпку — где и почему именно там нужно объявить эту пере- 
менную? Попробуйте сейчас остановиться, подумать и найти правильное решение. 

Надеюсь, что вы определили положение объявления правильно — переменная 
должна быть объявлена глобально или в стороннем классе. Почему? Да потому что 
если вы объявите переменную в качестве члена класса, то у каждого потока будет 
своя переменная и своя критическая секция, и все они смогут выполняться одно- 
временно. 

Если вы объявите структуру в стороннем классе, то необходимо убедиться, что 
этот класс будет существовать всегда, когда приложение запущено и когда рабо- 
тают потоки. Отличное место — это класс главной формы приложения. 
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Но мне кажется, что удобнее будет объявлять структуру твтЬСх1Е1са15есЕ1оп 
глобально в модуле описания класса, в разделе 1пр1етепеае1оп ИЛИ 1п6егЁасе (ес- 
ли нужно, чтобы структура была доступна: в других модулях). 

Как теперь произвести инициализацию переменной? Внутри конструктора пото- 
ка? Тогда структура будет инициализироваться при создании каждого экземпляра 
класса, а это нам не нужно. Отличным решением будет секция инициализации 
11161а112а61оп. С ней мы пока еще не работали, а сейчас познакомимся сразу на 
примере. | 

По умолчанию секции 1п1Е1а112аЕ1оп нет в модуле. Чтобы ее создать, доста- 
точно в конце модуля (Но до епа с точкой) написать это слово, и весь код после не- 
го и до объявления следующей секции или конца модуля будет вызываться при 
первом обращении к модулю. Данный блок является как бы конструктором для мо- 
дуля. Когда приложение первый раз обращается к модулю, то автоматически вызы- 
вается код из блока 1п1Е1а11хаЕ1оп. При последующих обращениях этот код уже 
вызываться не будет. 

А теперь подумаем, где можно уничтожить структуру критической секции. Для 
этого лучше использовать блок финализации #1па11хаЕ1оп, КОТОрый обязательно 
должен идти после блока инициализации и до конца модуля. 

Итак, наш модуль будет иметь вид, как показано в листинге 17.3. 


11116 МуТргеаа; 


1псе’Ёасе 


// здесь идет описание класса 


}пр1етепеае1оп 


// здесь методы, реализующие класс 


11161а117аЕ1оп 
// код инициализации, а нашем случае вызов только одной функции 
// инициализации критической секции 


1Т011а112еСг1е1са1бесе1оп (С$); 


'Е1па112хаЕ1оп 
// код завершения, а нашем случае вызов только одной функции 
// освобождения критической секции 


релекеСк1Е1са1зесе+оп(С5); 


епа. 
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Теперь давайте поместим вызов функции обновления поля ввода на главной 
форме в критическую секцию. Найдите в методе кхесисе потока отправку сообще- 
ния полю ввода и оформите код следующим образом: 

1ЁЕ 1паех>200000 Ереп 

реад1п 
ЕпеегСг161са1$есе1оп (С$); 
ЗепаМеззаче (Коут1 .Еа1е1.НапЯ1е, ММ_5ЕТТЕХТ, 
0, Тоседехг (РСВах (ТпЕТобЕх (1п4ех)))); 
ТеауеСу1Е1са15есе1оп (С$); 


епа; 


Перед вызовом функции  5епаМеззае мы  вызываем функцию 
ЕпекегСх11са15есЕ1от, чтобы начать критическую секцию, а после вызываем 
ГеауеСх1Е1са15есЕ1оп для завершения. | 

В данном случае в секции выполняется только одна функция, но это не обяза- 
тельно. Их может быть сколько угодно, но я рекомендую вам делать их как можно 
меньше, чтобы они выполнялись как можно быстрее. Если один поток начал вы- 
полнение критической секции, то все остальные при необходимости выполнить 
этот же код будут замораживаться. 


ПРИМЕЧАНИЕ. На компакт-диске, прилагаемом к книге, в папке \Примеры\Глава 17\ 
Стса! вы можете увидеть пример этой программы. 
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Динамически компонуемые 
библиотеки 


Вы уже, наверное, много раз слышали выражение "динамически подключаемые 
библиотеки". Пора познакомиться с ними поближе. В этой главе будет дана вся не- 
обходимая информация о них для того, чтобы вы понимали их устройство и могли 
писать собственные библиотеки. Здесь вам предстоит подробно познакомиться 
с библиотеками ПГТ, (Рупатес ГлпК Глбгагу, динамически подключаемые библио- 
теки), изучить все их преимущества и недостатки. Здесь мы также напишем и раз-. 
берем несколько примеров с целью приобретения вами практического опыта в про- 
граммировании. | 


18.1. Что такое О - 


Программисты всех стран уже более 30 лет борются с проблемой многоразового 
использования написанного кода. Так уж повелось, что 30—50 % кода в простых 
офисных приложениях схожи между собой или решают одни и те же задачи. 

Ни один уважающий себя программист не захочет всякий раз заново писать один 
и тот же код. Как хорошо, когда можно многократно использовать уже написанный 
и отлаженный фрагмент программы. Путей решения данной задачи несколько. Да- 
вайте рассмотрим основные из решений, а также возникающие при этом проблемы. 

Не забывайте, что’ динамические библиотеки были изобретены очень давно и 
поэтому более современные решения типа СОМ-объектов мы рассматривать сейчас 
не будем. 


18.1.1. Решение № 1 


Самым первым решением этой задачи стало использование модульного программи- 
рования. Вы пишете определенную часть программы, оформляете ее в виде модуля, а 
потом просто используете этот модуль в своих программах. Все прекрасно и удобно, а 
главное, что все довольны. Теперь не надо каждый раз изобретать велосипед. Просто 
добавили к своей программе определенный модуль и без проблем используйте когда-то. 
написанный вами или кем-то другим программный код. Именно так мы очень часто 
поступаем, подключая какие-то возможности к своим программам. 

Казалось, что это самое простое и эффективное решение. Все было прекрасно, | 
пока не появилась многозадачность. Вот тут программисты и простые пользовате- 
ли заметили, что эффективность программ стала снижаться: 


17 Зак. 1273 
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18.1.2. Проблема № 1 


Давайте представим ситуацию, когда один программист написал прекрасный 
модуль размером в 1 Мбайт. Другой решил воспользоваться его (модуля) возмож- 
ностями и подключил к своей программе. Модуль и программа слились в одно це- 
лое. Вроде бы все нормально. Но программа и модуль слились. Это значит, что 
размер результирующей программы увеличился на размер модуля, т. е. на 1 Мбайт. 

А теперь представьте, что третий программист написал утилиту с использовани- 
ем того же модуля. Его программа тоже увеличилась на 1 Мбайт. Получается, что 
на диске два пользователя хранят две программы, в которых по 1 Мбайт одного 
и того же кода. Естественно, такое положение дел никому не нужно. 


ПРИМЕЧАНИЕ. Конечно же, на счет модуля в 1 Мбайт здесь немного преувеличено. 
В те времена даже модуль размером в 100 Кбайт тяжело было найти. Но надо учиты- 
вать, что и диски тогда были не очень большими по своей емкости. Самым хорошим 
винчестером считался диск емкостью 20 Мбайт. Это вам не нынешние десятки Гбайт 
на одной пластине. | 


18.1.3. Проблема № 2 


Пока существовали однозадачные операционные системы, проблема с излишней 
тратой дискового пространства была единственной. Но как только задумались о мно- 
гозадачности и в мыслях Билла Гейтса появились идеи создать \/т4до\5, сразу воз- 
никла другая проблема. 

Представьте себе ситуацию, когда вы запускаете одновременно две программы, 
которые имеют одинаковые фрагменты кода. При старте любой код грузится 
в оперативную память и только потом выполняется. Таким образом получается, что 
обе программы загрузят в память один и тот же код. Вот это уже абсолютно Нико- 
му не нужно. — 

Это только в последнее время память подешевела в несколько раз, и теперь 
лишние 100 Кбайт погоды не сделают. В 1990-е годы я плясал от счастья, когда 
установил в свой системный блок 32 Мбайта оперативной памяти, в то время как 
мои друзья радовались восьми. 


ПРИМЕЧАНИЕ. Оперативная память во все времена была и остается самым дорого- 
стоящим и дефицитным ресурсом вычислительной системы, и если каждый будет от- 
носиться к этому ресурсу расточительно, то никаких затрат не хватит. 


Раньше память стоила достаточно дорого и программисты боролись за каждый 
байт. Но если вы думаете, что, установив в свой компьютер 500 Мбайт оператив- 
ной памяти, решите проблему, то вы крупно ошибаетесь. 

Хотя память и дешевая, программы от этого меньше не станут. Если посмотреть 
на запросы той же \Мтдо\из ХР, то сразу понятно, что 500 Мбайт — это только ка- 
пля в море. Самая простая ОС У/тдо\м5 ХР Ноте Ед!юоп отнимет от них около 
256 Мбайт, а \УМшдо\з У1т$а под. системные нужды просит почти гигабайт, иначе 
работает очень медленно. Если учесть, что средненький компьютер поставляется 
с 2-мя гигабайтами памяти, то о нормальной работе 3ЗР$ Мах, Ре]рЫ одновременно 
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можно практически забыть. Они всю память отберут, как термиты, за пять секунд. 
Я использую 3 гигабайта на рабочем ноутбуке, чтобы нормально работать в среде 
разработки, РВоюзвор, ЗОГ, зегуег Мапазетепе ЗиЧю0, которые кушают память 
с большим удовольствием. 


18.1.4. Решение № 2 


И вот тут было найдено вполне солидное решение. Не стыковать модули с основ- 
ной программой, а сохранять их в отдельный файл и пусть любая программа загру- 
жает его по мере надобности. Так появились библиотеки ОГ... Эти библиотеки под- 
ключаются к программе динамически. В них можно хранить исполняемый код в виде 
процедур или функций, ресурсы программы, графику или даже видеоролики. 

Теперь программа не увеличивалась на размер модуля при компиляции, а про- 
сто загружала код из О -файла в память, а затем использовала его. Если одна 
программа уже загрузила ОГ, тд следующая не будет делать этого. Она восполь- 
зуется уже загруженной версией. Таким образом, экономится не только диск, но 
и оперативная память, которой, как и денег, много не бывает. 

Сейчас ПГТ, — это не ‘просто динамически подгружаемая библиотека. Вы, на- 
верное, уже не раз слышали про компоненты АсйуеХ. Библиотеки в чистом виде не 
поддерживают объекты. Хотя особо одаренные программисты умудряются вста- 
вить в них достаточно сложные объекты. АсйуеХ. можно назвать объектными биб- 
_ лиотеками. Хотя они выполнены по технологии СОМ, смысл остается прежний — 
динамическое разделение кода. 

АспуеХ также могут быть выполнены в виде ОСХ или РИ - «файлов, Да оно 
и понятно, файлы АсйуеХ используются сейчас достаточно активно и занимают 
места в несколько раз больше, чем самая большая ОГГ.-библиотека. Таким обра- 
зом, с целью экономии места на диске‘и в памяти вычислительной системы, необ- 
ходимо преобразовать АспуеХ в динамически подгружаемую библиотеку. Хотя это 
будет уже не та ОГ, но все же работает она по тем же принципам. 

У динамических библиотек есть единственный недостаток — на их загрузку 
тратится лишнее время. Если бы код, находящийся в О, был бы скомпонован 
с программой, то он грузился бы намного быстрее. Зато если библиотека уже за- 
гружена другой программой, то она появляется намного быстрей. 


ПРИМЕЧАНИЕ. Не верите? Отложите сейчас книгу. и возьмите в руки секундомер. Те- 
перь запустите \\ог4 или Ехсе|. Засеките, сколько времени будет проходить загрузка. 
Теперь закройте эту программу и запустите ее снова. Она появится на экране практи-. 
чески моментально. Это потому, что после выхода из программы ОШ-файл не выгру- 
жается из памяти. Это происходит только тогда, когда операционной системе не хва- 
тает памяти и ни одна из программ не использует в данный момент эту библиотеку. 
А теперь представьте себе, что такое М/ог4. Представили? Это и текстовый редактор, 

° и проверка орфографии, и построитель диаграмм, и редактор формул и много еще 
других программных возможностей. Что было бы, если все это определить в одном 

‚ файле? Нет, вы это не можете представить. Это был бы один исполняемый файл 
размером в 30—50 Мбайт. 


При использовании динамических библиотек в исполняемом файле находится 
только самое основное, а дополнительные возможности подгружаются по мере 
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надобности из ОГГ.-файлов. Например, когда стартует \Мога, то загружается только 
модуль текстового редактора. Когда вы выбрали редактор формул или объект 
\!ог4Аге, то \!ог4 подгружает из ОГ.Т.-файла код выбранного объекта и выполняет 
его. Таким образом, суммарная скорость загрузки уменьшается, причем очень зна- 
чительно. | | 

Еще одно большое преимущество динамических библиотек — при их использо- 
вании код программы разбивается на несколько файлов (зависит от количества 
ОГТ.-файлов). Допустим, что в одной из функций, находящейся в ОГГ-файле, ока- 
зался код с ошибкой. В этом случае не надо обновлять всю программу, а достаточ- 
но передать всем пользователям только этот ОЕТ.-файл, и программа получит не- 
обходимые обновления. 

У динамических библиотек много преимуществ и только три недостатка: 


С Код из ОГТ-файла выполняется в том же участке памяти, что и основная про- 
грамма. Поэтому программа и ОЕ.Г.-код используют один и тот же стек данных, 
что иногда накладывает свои ограничения. Например, ОГ.Г.-код не может хра- 
нить глобальных переменных. Воспринимайте динамические библиотеки просто 
как набор процедур и функций, которые могут хранить только локальные пере- 
менные. | | 


С Изначально динамические библиотеки были процедурными. Хотя сейчас умель- 
цы умудряются использовать их для хранения объектов, но это очень неудобно. 
Несмотря на это, программы АсйуеХ (изначально объектные) могут храниться 
в файлах с расширением ОГ, и выполняют те же задачи, что и классические 
динамические библиотеки. 


О Отсутствует контроль версий. На мой взгляд, это самый серьезный недостаток, 
потому что он приводит к популярной и очень серьезной проблеме ПГТ, Не! (ад 
динамических библиотек). Допустим, что у вас установлена программа А, кото- 
рая использует библиотеку Д последней версии. Вы устанавливаете программу 
Б, которая использует такую же библиотеку, но во время установки программа Б 
без предупреждения обновляет ОГ.Г.-файл на более старую версию и теперь про- 
грамма А работать больше не будет. 


Но все же динамические библиотеки получили широкое распространение и про- 
граммисты используют их повсеместно, когда надо и не надо. Нельзя быть уверен- 
ным, что какой-то код уже больше никогда не понадобится. Всегда нужно рассчи- 
тывать на будущее. _ 

В этой главе мы затронем только классические библиотеки ОГ.Г., а компоненты 
АспуеХ и технологию СОМ оставим на будущее, хотя я и не люблю СОМ и счи- 
таю, что эта технология скоро падет смертью храбрых. 


18.1.5. Из чего сделан ММт4о\м$ 


Большинство думает, что \/т4до\5$ — это все, что находится в папке с:\\у/т49о\5, 
а ее ядро — это \т.сот. В какой-то степени это так, но не совсем. Ядро ОС 
УЛпдо\$ — это простой ОЕ -файл, а если быть конкретным, то это Кете!32.А1. 
При старте операционной системы эта библиотека загружается в память в единст- 
венном экземпляре. Любая программа может обращаться к содержащемуся в ней 
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коду и использовать его в своих целях. В этой библиотеке расположены АР]- 
функции, предназначенные для распределения памяти, и многое другое. Мы эти 
функции не вызываем напрямую, потому что Ое!ры прячет этот сложный процесс о 
от нас, но иногда вам может понадобиться воспользоваться ими. Так что помните, 
если вы выделяете память, то в этот момент используется Кеге]32.А1. 

За вывод графики в \Мт4о\5$ отвечает @©0]32.01Г.1., которая также загружается 
при старте в единственном экземпляре. Все,функции для работы с графикой нахо- 
дятся в этой библиотеке. Есть и еще одна библиотека — Ц5ег32.АП, которая отвеча- 
ет за создание окон и обработку сообщений. Все эти три библиотеки составляют 
ядро ОС УМ т4о\$5. | 

В \119до\$ очень много недостатков, но динамические библиотеки — это доста- 
точно гениальное решение многократно используемого кода. | 

Любой игрок обязан знать про существование ОрепСГ.. Что это такое? Какой-то 
пакет программ? Какой-то ЗОЖ для создания графики? Ничего подобного, это все- 
го лишь две динамические библиотеки ореп?1.А1 (ореп2132.41]) и 21.41 (2132.91). 

Что такое Ртес!Х? Это графическая библиотека, которая состоит из Оиес Огам,, 
РиесИприь ОиесМияс, Впес Рау и т. д. Все это не что иное, как простые динами- 
чески подгружаемые библиотеки. ОшесОга\м — это Одгам.аП, ОпесИприе — это 
РтриЕ.аП, БиесМияс это Этизтс.АП и т. д. Хотя ОнесЕХ это не простые библиоте- 
‘ки — это библиотеки, созданные на основе технологии СОМ (та же технология, 
что и АспуеХ). 

Любые игровые движки (набор функций для облегчения создания игры некото- 
рого жанра с определенными возможностями) выполнены в виде динамически за- 
гружаемых библиотек, потому что их использование очень простое и удобное для 
любого программиста. 

Давайте подведем итог тому, что уже было сказано. 


С Динамические библиотеки практически ничем не отличаются от ЕХЕ-файлов. 
Это такой же скомпилированный код, только он не может запускаться самостоя- 
тельно, потому что в библиотеке нет точки входа (точки, с которой начинает 
свое выполнение любая программа). 


СО В ПИТ-файлах хранятся процедуры, функции и различные ресурсы, которые 
_ можно вызывать из других программ. 


‚С Чаще всего динамические библиотеки имеют расширение АП, но можно устано- 
вить и любое другое или вообще убрать его. 


С) Когда одно приложение загружает библиотеку, то она загружается в глобальную 
память, а потом только проецируется в адресное пространство программы. Это 
значит, что программа будет видеть функции библиотеки как свои собственные, 
хотя они расположены в отдельном адресном пространстве. 


Говоря о библиотеках (ОГ.Г.), мы имели в виду динамические библиотеки. Но 
существуют и статические варианты библиотек. Чем они отличаются? В принципе, 
библиотека одна и та же, поэтому термин статической ПГТ. считается неправиль- 
ным (хотя иногда встречается в статьях). 

Библиотеки ОГ.Т. всегда динамические и создаются они с целью динамической 
загрузки находящихся в них ресурсах. Но, несмотря на это, многие компиляторы 
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позволяют присоединять код ПГТ, статически. В этом случае при компиляции про- 
граммы код или данные, находящиеся в ОГ.Г.-файле, становятся неотъемлемой ча- 
стью исполняемого файла. Программа и библиотека становятся как единое целое. 
Это очень удобно, когда библиотека небольшая или вам необходимо, чтобы про- 
грамма состояла только из одного исполняемого файла. Здесь динамическая за- 
грузка не подходит, и надеяться на существование библиотеки на машине клиента 
нельзя. Такая ситуация может возникнуть, когда вы хотите показать клиенту де- 
монстрационный файл вашей программы и удобно иметь только один исполняе-_ 
мый файл, а не множество библиотек. 


18.2. Простой пример создания О 


Так как библиотека ОГ.Г, — это отдельный файл, то и создается он в Реры как 
отдельный проект. Для создания новой динамической библиотеки нужно выбрать 
меню ЕШе | Мем | Оег. В окне создания нового проекта нужно выбрать в разде- 
ле №м (в Реры 2006 в разделе Верш ргодесве) пункт ОГ, У!17аг4 и нажать 
кнопку ОК. | 

Несмотря на то, что мы выбрали ОЛ, ага (Слово М/1таг4 говорит о том, что 
должен запуститься мастер), будет просто создан пустой проект с одним только 
модулем. Модуль будет содержать следующий текст (без комментариев): 

11Ьгахгу РгодесЕ2; 


изе5 
5у50Е115$, 
С]1аззесз; 


{$В *.гез} 


Бед1п 

епа. 

Если открыть менеджер проектов (меню Улем | Ргодесё Мапагег), то в окне во- 
обще не будет видно ни одного модуля. Это потому, что код, который вы видели 
выше, относится к самой библиотеке. Выберите из меню Ее пункт $ауе АП, и вам 
предложат сохранить только один проект и никаких модулей. Сохраните проект 
под именем ЕизОГГРгоесе. Теперь откройте файл проекта ЕизОГ.Ргоес.арг 
с помощью блокнота, и вы увидите тот же самый код. 

Теперь давайте добавим в нашу библиотеку одну функцию с именем $. 
У этой функции будет два параметра в виде целых чисел, а возвращать она будет 
сумму этих чисел (листинг 18.1). 


11Ьгаху Е1гз0ОЫРго]есе; 


ц5е5 
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5$у$0Е11$, 


С1аз5ез; 


+ 


Ропсе1оп бити (Х,У:ТпЕедехг) :Тпбедехг; 5Е@9Са11; 
Беа1п 
Кезц1е:=Х+У; 


епа; 
ехрогЕ$ эипи; 
{$5 *.гез} 


ред1п 


епа. 


ВНИМАНИЕ. Обратите внимание, что функция объявлена не так, как всегда. В конце 
строки объявления после типа возвращаемого значения стоит ключевое слово 
5Е9Са11. Оно говорит о том, что для вызова процедуры нужно использовать стан- 
‚ дартный тип вызова. 


Ранее говорилось, что все параметры, передаваемые в процедуры и в функции, 
передаются через стек. Если не указать ключевое слово $ЕаСа11, то параметры бу- 
дут передаваться способом, заложенным фирмой Войап4. Этот способ работает 
быстрее, но он не совместим со стандартными правилами \УМтдо\$ АР]- -функций. 


СОВЕТ. Если вы уверены, что к процедуре будут обращаться только программы, 
скомпилированные компиляторами фирмы Вопапа, то можете не ставить это ключе- 
вое слово. Но если библиотека будет выставлена для всеобщего использования или к 
ней будут обращаться программы сторонних разработчиков, то желательно ставить 
$ЕаСа11, иначе у программистов на языках Миа! С++ или других будут проблемы. 
Желательно сделать для себя правилом — всегда ставить 5Е9са11, потому что спо- 
соб Войап4 дает незначительный выигрыш. 


В остальном функция ничем не отличается от тех, которые мы уже описали. 

После описания функции идет новое ключевое слово ехроге5. После этого клю- 
чевого слова должно идти описание процедур, которые должны быть доступны 
внешним программам. Если нашу функцию $ипм не описать в разделе ехрогез, ТО 
мы ее не сможем вызвать из внешней программы. 

Теперь откомпилируйте проект (нажмите клавиши <СИ]>+<Р9> или выберите 
из меню Рго]есй пункт Сошр!е Ее ОТ. .Рго}ес(), чтобы создать нашу динамиче- 
скую библиотеку. 


ВНИМАНИЕ. Можете не пытаться запускать проект, потому что это библиотека, и она 
не может выполняться самостоятельно. Так что единственное, что вы можете уви- 
деть — ошибку, хотя проект будет откомпилирован и библиотека будет создана. 


Теперь напишем программу, которая будет использовать написанную функцию 
из динамической библиотеки. 
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Для этого создайте новый проект простого приложения (ЕЙе | №" | 
АррНсаНоп). На форму установите только одну кнопку и по событию опсС11сК этой 
кнопки напишите следующий код: 

ргоседате ТЕогт1 .Вае6оп1С11ск (бепаех: ТОБЗесе); 

\уаг 

г: пбседег; . 


Бед1п 
° у:=баим (10,34); 

Арр11сае1оп .МеззааеВох (РСБах (ТоЕТо5Ех(у)), 'Результат функции би’); 
епа; 


В первой строке вызывается функция 5им с двумя числовыми ‘параметрами. . 
Результат записывается в переменную г‹. Вторая строка всего лишь выводит окно 
с результатом. | 

Если вы попытаетесь сейчас откомпилировать проект, то у вас ничего не вый- 
дет. Компилятор Ое]р№ скажет, что он не знает такой функции ии. Мы должны 
показать Реры, что это за функция и где ее искать. 

Для начала покажем компилятору, что это за функция. 

Для этого в разделе куре после описания объекта ТЕохи1 (нашей главной фор- 
мы) нужно написать следующую строку: 

Еапсе1оп бити (Х,У:Тпбедехг) : Тпеедех; $5ЕЯаСа11; 


В принципе, это такое же объявление функции, которое определено в библиоте- 
ке, только здесь нет Ьед1п И епа и самого кода процедуры. По этой строке Рерш 
узнает, что где-то существует такая функция 5, у нее есть два параметра, и она 
должна вызываться стандартным вызовом. 

Теперь нужно сказать компилятору; где же искать эту загадочную функцию. 

Для этого после слова 1пр1ешепкае1оп напишите следующий код: 

ЕопсЕ1оп бииш; ехбегпа]1 'Е1уз0ГРгоЗесе.О.' паме 'бали' 


Здесь написано, что есть такая функция 5ити. После точки с запятой стоит клю- 
чевое слово ехеегпа1, которое говорит о том, что функция внешняя, не принадле- 
жит программе. После этого слова указывается имя динамической библиотеки, где 
нужно искать функцию. Далее идет ключевое слово паще, которое означает, что 
функцию надо искать по имени. После этого ключевого слова указывается точное 
ИМЯ функции в библиотеке. — | 

_Вот теперь проект готов и его можно компилировать, запускать и | проверять ре- 
зультат. 


ПРИМЕЧАНИЕ. На компакт-диске, прилагаемом к книге, в папке \Примеры\Г лава 18\ 
ЕиОСЁ вы можете увидеть пример этой программы. 


В нашем примере использовался вызов по имени функции. Когда программе 
нужно выполнить функцию 5ипа, то она просматривает все функции динамической 
библиотеки и ищет функцию с указанным именем. Это очень неэффективно и пе- 
ред первым вызовом будет ощущаться большая задержка. Чтобы хоть немного ус- 
‘корить процесс вызова, можно использовать индексы. Каждой функции в библио- 
теке может быть назначен индекс, и при вызове можно указывать его. 
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Давайте скорректируем наш пример, введя в него индексы. 

Откройте проект динамической библиотеки Еиз ОГ Ргозеси.дрг. Найдите ключе- 
вое СЛОВО ехрогЕ и напишите там такой код: 

‘ехроге$ бит 1паех 10; 


После имени функции стоит ключевое слово 1п4ех и числовой индекс функции. 


Этой функции мы дали десятый индекс (ВЫ можете попробовать другое число, 
НО Надо помнить, ЧТО индексы и имена должны быть уникальными). Вот несколько 
примеров: 

ехрогез 

Рипс1 1паех 10 паше 'Рип', 

Еиопс2 Тпзегк, 

Ропс3 1паех 11, 

Еипс4 1паех 11,//Ошибка, такой индекс уже существует 
Ропс5 паще 'Ооп'!; 

В объявлении последней процедуры явно используется ключевое имя папе, что- 
бы указать экспортной функции новое имя. Теперь внутри библиотеки эта функция 
реализована как Еипс5, Но внешние приложения ДОЛЖНЫ обращаться к ней по име- 
НИ Поп. 

Объявлять можно и так: 

ехрогЕ$ Рапс1 1паех 10 паше 'ЕРип', 

ехрогЕ$ Еипс2 Тпзегф, 

ехроге$ Рапс3 1паех 11, 


Перекомпилируйте проект. Теперь возвращаемся в проект, где мы используем 
функцию. В разделе 1пр1етепеаЕ1оп корректируем описание нашей функции: 
Ропсе1оп би; ехбегпа1 'Е1узОЫ,Ргозесе.0Ш,' 1паех 10; 


Теперь вместо ключевого слова паме стоит СЛОВО 1паех и тот же номер. 
Запустите проект и убедитесь, что он работает корректно. 


ПРИМЕЧАНИЕ. На компакт-диске, прилагаемом к книге, в папке \Примеры\Глава 18\ 
|паехМате вы можете увидеть пример этой программы. 


18.3. Замечания по использованию библиотек 


Когда говорилось, что ОГ. -файлы нельзя запускать, то это было немного пре- 
увеличено. В принципе, библиотеки действительно нельзя запускать, но Реры мо- 
жет сделать это для того, чтобы проще было отлаживать код. Откройте нашу биб- 
лиотеку и выберите из меню Кип пункт Рагатёег$. Перед вами откроется окно, 
показанное на рис. 18.1. 

В строке Но$ АррИсабоп нужно указать имя приложения. которое умеет за- 
гружать библиотеку. Теперь попробуйте запустить проект (клавиша <Е9>). ‚)Запус- 
тится указанная программа, которая использует библиотеку. 

Зачем нужен этот способ? Если вы попытались запустить программу, и она по- 
казала ошибку в коде, где вызывается функция из динамической библиотеки, то 
можно попытаться запустить библиотеку таким образом. Если снова произойдет 
ошибка, то Реры покажет строку с ошибкой. 
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Вип Рагапле(ег$ -х; 


ве р Петю м! 


Рис. 18.1. Окно 
параметров 
запуска программы 


Немного позже мы рассмотрим, как можно отлаживать программы и выполнять 
их по шагам. Тогда вы сможете узнать, что таким образом можно отлаживать и ди- 
намические библиотеки. А именно — они могут выполняться в пошаговом режиме 
(построчно) и вы будете контролировать весь процесс выполнения. 

Пока что о библиотеках сказано достаточно много хорошего, но не сказано са- 
мого главного. Функции и процедуры из динамической библиотеки не могут прямо _ 
_ влиять на ход основной программы. Это значит, что мы не можем получить доступ 
к окнам основной программы, изменить какие-то переменные или еще чего-нибудь. 

Функции библиотеки — как бы изолированы от всего остального, хотя и выпол- 
няются в одном адресном пространстве с основной программой. Они могут исполь- 
зовать только переданные им параметры, а результат работы возвращать в качестве 
результата работы функции. 


ВНИМАНИЕ. Имена библиотек пишите полностью, вместе с расширением. Без рас- 
ширения ОЧ--библиотека (файл) может быть не найдена в \Ипаом$ МТ/2ОСО/ХР, Хотя 
в \Ипдомз$ 98 все будет работать нормально. 


‚ СОВЕТ. Обязательно соблюдайте индексы и параметры процедуры, иначе могут воз- 
никнуть ошибки: Лучше лишний раз проверить, чем потом долго искать опечатку. 


18.4. Хранения формы. 
в динамических библиотеках 


Теперь рассмотрим, как можно хранить в динамических библиотеках целые ок- 
на. Очень удобно, когда редко используемые окна находятся в динамической биб- 
лиотеке. В этом случае основной файл очень сильно разгружается от лишнего кода. 

Еще одно преимущество такого кода — библиотека может использовать для вы- 

вода информации на экран свое окно. Как ‘уже говорилось, из ОГ.Г.-файла нельзя 
получить доступ к переменным и данным основной программы. Это значит, что из 
ОГТ.-файла нельзя ничего вывести в окна основной программы. Но библиотека 
может создать собственное окно и использовать для вывода необходимых данных 
именно его. | 
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Создайте новую ОГ.Г-библиотеку и сохраните ее под именем Рго]есе.ОГ.. Те- 
перь добавим к нашей библиотеке одну экспортную процедуру 5НомАБоце: 
11Югагу РгозесероШу; 


изез 
$у5011$, С1аззез; 


{$В *.ВЕЗ} 
ехрог$ ЗВомМАБочцЕ 1паех 10; 


Беач1п 
епа. 


Здесь мы добавили к коду, созданному мастером, только одну строку: 
ехрогез$ ЗВомАБоцЕ 1паех 10; 


У нас будет только одна процедура 
ЗНомАБоцЕ с индексом 10. Эта процедура будет 
показывать окно О программе. 

Теперь щелкните мышью по ‘пункту меню 
ЕН | №ем Еогт, чтобы создать новую форму. 
Нарисуйте на ней что-нибудь, например, как 
показано на рис. 18.2. 

Переходите в текст модуля. В разделе уахг 
после объявления формы опишите процедуру 
бПомАБРоце: 

уаг 


Рис. 18.2. Окно О программе 


Еог1: ТЕРогп1; 
ргоседиге бПомАБоче (НапЯ1е: ТНапЯ1е) ;ехрогЕ; зЕЯса11; 


Здесь опять присутствует ключ ехроге и добавлен еще зЕ@са11, указывающий 
на обязательность использования стандартного вызова процедуры. 

Теперь напишем саму функцию после ключевого слова 1пр1етепеаЕ1оп и ключа 
{$В *.РЕМ} (листинг 18.2). 


ргоседиге ЗВомАЪОцЕ (Напа1е: ТНапа1е); 
Беа1п 


//Установить указатель на приложение 
Арр11сае1оп.Напа1е := Напа1е; 
_//Создать форму 

Рог1:= ТЕогт1 .Сгеаее (Арр11сае1оп); 
/ /Отобразить 

Рогт1 .бРомМоаа1 ; 

//Очистить 

Еоут1.Етее; 
епа; 


514 , Глава 18 


Эта процедура получает в качестве параметра указатель на главное приложение. 
В первой строке мы устанавливаем этот указатель в свойство Напа1е объекта 
Арр11саЕ1оп. Этот объект хранит настройки всего приложения, и этим присваива- 
нием мы как бы связали оба приложения. А точнее, наша библиотека теперь смо- 
жет использовать глобальный указатель основного приложения. Этот указатель 
нам понадобится при создании модальных окон из библиотеки. 

Во второй строке кода мы создаем окно Тгохи1 .Схеаее (Арр11сае1оп), в резуль- 
тате чего будет возвращен указатель на это окно. Результат мы сохраняем в пере- 
менной Еоги1. Эта переменная объявлена в разделе уаг проекта, хотя можно сде- 
лать это объявление и локально в процедуре, ведь окно используется только внутри 
процедуры $вомАБоце и перед выходом из процедуры, память, используемая объек- 
том, освобождается. 

Следующей строкой мы отображаем созданное нами модальное окно. Как толь- 
ко оно закроется, будет выполнена последняя строка кода этой процедуры, а имен- 
но — окно будет уничтожено из памяти и процедура закончит свое выполнение. 


ВНИМАНИЕ. В процедурах ОЧ--библиотек будьте более внимательны к высвобожде- 
нию памяти. Ошибки в библиотеках переносятся программами более критично, пото- 
му что тут основная программа практически бессильна в исправлении внештатной си- 
туации. _. 


Откомпилируйте библиотеку (<Си1>+<Е9>), и РЕГ -файл готов. Можно закры- 
вать этот проект (ЕЙе | С1озе АП) и создавать новое приложение, из которого мы 
будем вызывать созданную в библиотеке процедуру (ЕПе | Мем АррИсабоп). 

В новом проекте переходим в редактор кода и объявляем функцию зпомАьоце 
(листинг 18.3). | 


ип1е 0012; 
1псегЕасе 


изез “ 
У1паомз, Меззааез, 5у$0Е11$, С1аззез, СгарН1с$, Сопего]$5, 


Рогиз$, ПО1а1оа$, 5ЕаСеу15; 


| ргоседиге ЗПомАБоце (Напа1е: ТНапЯ1е) зЕЯса11; 


Суре 
ТРогти1 = с1а5$ (ТРогт) 
_ ВибЕоп1: ТВисеоп; 
ргоседоге ВаЕЕоп1С11ск($епаехг: ТОБдес®); 
рг1уаее 
{ Ризлуаее аес1агае1оп$ } 


раЮ11с 
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{ РаБ11с аес1агхае1оп$ } 


епа; 


\уах 
Еоуп1: ТЕРоти]1; 


ргосеаигте 5ЗпомАрой®; ех{егпа1 'Ргозесер,.0ОШ.' зпаех 10; 


1пр]1етепеае1оп 


Обратите внимание, что первое описание процедуры написано не в разделе 
Буре, а до него: 
ргосеаиге бПомАро\Е (НапЯ1е: ТНапа1е) $Еаса11; 


Это не является ошибкой, и вы можете выбрать любой из этих способов. Глав- 
ное, чтобы это объявление было в разделе :пеег{асе. Хотя, если вы не будете ис- 
пользовать функцию в разделе 1пеегЕасе, можно ограничиться только вторым (бо- 
лее полным) описанием функции. 


СОВЕТ. Чаще всего внешние процедуры объявляются до раздела ‘тах, чтобы их по- 
том легче было найти. 


Теперь установим на форму кнопку и напишем для ее события опс11ск сле- 
дующий код: 
ргосеацге ТРГогт1 .Вие6оп1С11ск (5епаег: ТОБ)]есЕ); 
Беч1п | 
ЗВомАЪОцЕ (Напа1е); 
епа; | 


Запустите пример и убедитесь в том, что он работает корректно. Как видите 
окно не так уж трудно поместить в библиотеку, и в нем могут быть свои события 
и свои процедуры и функции. К тому же окно может создавать дочерние окна по 
отношению к себе и той же динамической библиотеке. 


ПРИМЕЧАНИЕ. На компакт-диске, прилагаемом к книге, в папке \Примеры\Глава 18\ 
Рогт вы можете увидеть пример этой программы. 


18.5. Немодальные окна 
в динамических библиотеках 


В предыдущем примере мы поместили в библиотеку модальное окно. А что если 
вам понадобится показать немодальное окно? Ведь мы показываем окно и по его 
закрытию должны освободить память. А как узнать, что окно закрыто? Некоторые 
программисты ленятся и просто не освобождают память, выделенную под окно. 
Но это неправильно и просто глупо, потому что показать немодальное окно не на- 
много сложнее. 
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Давайте откроем предыдущий пример и подкорректируем его. Для начала нуж- 
но добавить одну экспортную процедуру ггеельоче с индексом 11. Теперь у нас 
будут экспортироваться две процедуры: 

ехрогЕ$ ЗПомАроце 1паех 10; 

`’ехрогЕ$ РЕгееАроце 1паех 11; 


Теперь переходим в модуль 0п1е1, где у нас находится форма динамической 
библиотеки. Процедуру 5нонАьоце превращаем в функцию, которая будет возвра- 
щать значение типа ГгопдТреЕ. В качестве возвращаемого значения будет идентифи- 
катор окна, по которому мы потом будем его закрывать. 

Еще нужно добавить процедуру ггееАБоце с одним параметром типа ГопатТие. 

Ропсе1оп ЗРомАБоче (Напа]1е: ТНап@1е) :Гопатпе;ехроге; зЕ4са11; 

ргоседиге ЕгееАБоце (ЕохиВеЁ: Гопатие);ехроге:;зЕ9са11; 


_ Как говорилось ранее, динамические библиотеки не могут хранить переменных. 
Именно поэтому после создания окна мы должны вернуть идентификатор основной 
программе, чтобы она сохранила эту переменную. Когда нужно будет закрыть окно, 
мы передадим этот идентификатор библиотеке и она освободит память, выделен- 
ную’ Под ОКНО. 

Теперь посмотрим на реализацию функции ЗВомАБоце: 
РопсЕ1оп бПомАфойе (Напа]е: ТНапа1е) :Гопатое; 
Бед1п 

Арр11саЕ1оп.НапЯ1е := Нап@1е; 

Рогт1:= ТРоги1.Сгеаее (Арр11са®1оп); 

Рогта1. .ЭВом; | 

Везиа1 : =ГопаТпе (Рогм1); 

епа; | 


Здесь все осталось также, за исключением последней строки. Если раньше мы 
освобождали память, то сейчас возвращаем окно Роги\1, приведенное к типу 
Тпеедег. Если бы мы тут вызвали метод ггее, то окно сразу же после появления 
закрылось бы. 

Теперь посмотрим на процедуру РхееАБопк: 

ргосеалге ЕгееАроц® (ГогпКеЁ: ГШопаТпе); 

Беа1п 

1Е РохиквеЕ>0 Етеп 
ТРоги1 (РохиКеЕ).Егее; 
епа; — 


В этой процедуре мы сначала проверяем, если переменная гохиве{ (идентифи- 
катор окна) больше нуля, то окно можно уничтожать, иначе оно могло быть уже 
уничтожено. Во второй строке мы вызываем метод егее нашего окна. Так как пе- 
ременная гохивеЕ — это числовая переменная и у нее нет методов, то мы должны 
перевести ее обратно к объекту тЕохи1 (ЕогшвеЕ). 

Теперь подкорректируем проект, который использует. Е файл. Для начала под-. 
правьте объявления процедур библиотеки. Перед разделом куре напишите следующее: 

РопсЕ1оп ЗПомАБоице (НапЯ1е: ТНап@1е) :ГопаТпе; $6аса11; | 

ргоседиге ЕгееАБоче (ЕогиКеЕ: ГШопаТпе);ехроге; $ЕЯса11 
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В разделе уах пишем следующее: 
ЕипсЕ1оп ЗРомАБоце;ехеегпа1 'РгозесерШ,.0Ш.' 1паех 10; 
ргоседиге ЕхееАБоие;ехеегпа1 'Ргозесе,.0.' 1паех 11; 


Все это уже должно быть знакомо и не должно вызывать вопросов. Теперь 
в разделе рг1уаее объекта главной формы добавляем переменную Е типа гопатие. 

Подготовка закончена. Осталось только вызвать эти процедуры. Добавьте на 
форму еще одну кнопку. По нажатии первой мы будем показывать окно: 

ргоседиге ТЕогт1 .Вабсоп1С11ск (бепаех: ТОБуес®); 

Бед1п 

Е: ЕЗНОМАБочЕ (Напа1е); 
епа; | 


Здесь мы вызываем функцию показа окна и сохраняем результат в переменной. 


По нажатии второй кнопки вызываем процедуру освобождения памяти (событие 
ОпС11скК): 
ргоседиге ТРО .ВАЕЕоп2С11ск(Зепаекг: ТОБзес®); 
Беа1п | 
ЕгееАроце (ЕЁ); 
епа; 


Запустите пример и убедитесь, что все работает корректно. Самое сложное 
здесь — ‘определить, когда пользователь самостоятельно закрыл окно (например, 
кнопкой Закрыть в нашем окне О программе), чтобы мы вызвали процедуру 
ггееАЪЬоце. В качестве решения такой проблемы можно посоветовать следующее. 
При старте приложения надо присваивать переменной г значение 0. В этом случае 
мы будем застрахованы от попадания в нее случайного числа. Перед созданием окна 
следует вызывать ггееАЪоч+. В этом случае сначала будет происходить проверка пе- 
ременной Е на ноль. Если переменная больше 0, то окно уже создавалось, но память 
не освободилась. Вот обновленный код нажатия кнопки показа диалогового окна: 

ргоседиге ТГотут1 .Вис6оп1С11сК (бепдег: ТОБЗес®}; 

Беа1п 

1Е Е>0 Епеп 

ЕгееАБоце (Ё); 

Е: =ЗВомАБоце (Нап@Я1е); 
епа; 


Здесь идет проверка, если Е больше нуля, то надо освободить память от старого 
окна, а потом пытаться создавать новое. 

По событию опс1озе для главной формы тоже не помешает вызвать процедуру: 
освобождения памяти. Если программа закрывается, то окно из библиотеки уж 
точно уже не понадобится, значит, переменную Е можно проверять на 0, и если там 
_ большее значение, то освобождать память. | | 

Если пользователь вызывает окно повторно, то мы уничтожаем его, а потом вы- 
зываем функцию из динамической библиотеки для отображения. При этом окно 
создается заново, что приводит к лишним затратам. Подумайте, может, проще бу- 
дет просто отобразить окно, которое итак уже существует в памяти, и не создавать 
его заново! 


518 | | Глава 18 


На компакт-диске, прилагаемом к книге, находится пример, в котором реализо- 
вано все сказанное и вы можете увидеть этот код своими глазами, а также прове- 
рить его в действии. 


ПРИМЕЧАНИЕ. На компакт-диске, прилагаемом к книге, в папке \Примеры\Глава 18\ 
МоМода! вы можете увидеть пример этой программы. 


18.6. Явная загрузка библиотек 


Предыдущие примеры хороши тем, что они просты, но у них есть одна особен- 
ность — динамическая библиотека загружается автоматически при старте про- 
граммы. В этом просматривается два недостатка. 


ОС Загрузка программы немного теряет в скорости (не сильно, но все же), а функ- 
ции из библиотеки могут вообще не понадобиться за все время выполнения про- 
граммы. 


С Может понадобиться поставлять программу в укороченном варианте без неко- 
торых функций (без каких-либо ОГ. -файлов), но это не получится, потому что 
программа на этапе загрузки будет выдавать ошибку о том, что библиотека не 
найдена. 


От всего этого можно избавиться, если использовать явную загрузку библиотеки 
и в определенный момент. 

Давайте улучшим пример, написанный в предыдущем разделе, и будем исполь- 
зовать явную загрузку библиотеки для вызова функции $ъомАБоце. В принципе, 
если делать явную загрузку, то это нужно делать для всех функций и процедур 
библиотеки, потому что если вы оставите хотя бы одну неявной, то’библиотека все 
равно будет грузиться на этапе старта программы, а явная загрузка будет только 
повторять уже выполненные действия. Для примера мы взяли только одну функ- 
цию, а процедуру попробуйте перевести на явную загрузку самостоятельно. Тем 
более что для этого не надо делать много изменений. 

Итак, загрузите приложение, написанное в предыдущей части главы, которое 
использует динамическую библиотеку. В основном модуле уберите объявление 
функции $вомАЪоце. Теперь в разделе куре напишите объявление нового типа: 

ЗВомА=ЕяпсЕ1оп (НапЯ1е: ТНапа1е) :ГопаТпе; $Е@аса11; 


Здесь мы объявляем новый Тип $помА, который ‘равен функции с параметрами 
функции ЗпомАБоцЕ из динамической: библиотеки. Параметры Должны быть точ- 
ными, как при объявлении, иначе могут возникнуть проблемы. . 

Этого достаточно. Теперь нужно переходить к обработчику события опс11ск 
для первой кнопки, где мы показывали окно. Код, который вы должны здесь напи- 
сать, приведен в листинге 18.4. | 


ргосеацге ТРоги1 .Виебоп1С11сК (бепаег: ТОБ)ес®); 
уах 
рьрнапа1е:ТНнапа1е; 
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‚ за: 5помА; 

Бед1п 

Е Е>0 ЕНеп 
РгееАБоце (ЕЁ); 


ГЫ Напа] е : =БоаЯГ1Ъгагу ( 'Рхозесерит,.0'); 


1Е ОШНара1е=0 сМеп 


ех1Е;//Библиотека не загрузилась 
@за : =СееРгосАЯЯтез (0ГНапЯ1е, '5РомАБоче'); 


1ЁЕ @за=п11 Епеп ^ 


ех1е;//Функция не найдена 


Е: =за (Напа1е); 
Егее!Г.1Югагу (0ГНапа1е); 


ета; 


Здесь объявлены две локальные переменные: 
С] оьгнапа1е — будет хранить указатель на загруженную библиотеку; 
С за — имеет тип $ЪомА, т. е. тип функции из библиотеки. 


В начале кода выполняется уже знакомая проверка переменной +. Если она. 
больше нуля, то окно уже показывалось и нужно освободить память от старого ок- 
на, прежде чем создавать новое. | | 

Дальше вызывается функция гоааг.1югаху. Эта АР[-функция загружает указан- 
ную в качестве параметра динамическую библиотеку в память. Результатом вы- 
полнения являетея указатель на загруженную библиотеку. Этот указатель мы со- 
храняем в переменной рттнапа1е. После этого нужно проверить, если указатель 
ОГТНапа1е равен нулю, то библиотека не загрузилась. | | 

Теперь требуется получить адрес функции 5помАьочеЕ в загруженной памяти, 
чтобы мы могли выполнить ‘функцию. Для этого вызывается функция 
СеЕРгосАЯагез. Функции нужно передать два параметра: 


С указатель на загруженную библиотеку; 
С имя искомой процедуры. 


Результатом будет адрес искомой функции, и мы его сохраняем по адресу пере- 
менной @за. Теперь за указывает на адрес, по которому загружена. процедура 
ЗНомАБЬоцЕ из динамической библиотеки. Единственное, что надо проверить, — 
корректность адреса. Если он равен п11, то процедура не найдена (возможно, что 
это старая версия библиотеки или неправильно указано имя). 

Если все нормально, то мы вызываем функцию через переменную 
=:=за(Напа1е) почти так же, как это делалось раньше. Результат выполнения 
функции сохраняется в переменной Е. 

Последняя строка кода выгружает динамическую библиотеку из памяти — 
ггее!Г1Ъгагу. Точнее сказать, на этом этапе реальной выгрузки не происходит. 
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Функция только сообщает системе о том, что больше библиотека программе не 
требуется. Если эту библиотеку использует другая программа (одну библиотеку 
может использовать одновременно несколько программ), то она останется в памя- 
ти, пока та не сообщит о ненужности загруженного ОГ.Г.-файла. 


ПРИМЕЧАНИЕ. На компакт-диске, прилагаемом к книге, в папке \Примеры\Глава 18\ 
Са!Рипс вы можете увидеть пример этой программы. 


Это только пример, поэтому весь код я собрал в одной процедуре. В реальном 
приложении я бы не рекомендовал освобождать библиотеку сразу после ее выпол- 
нения, чтобы при следующем обращении к данной функции не пришлось снова 
_ загружать библиотеку и искать в ней функцию. 

Переменные для хранения указателя на библиотеку и переменная функции так- 
же не должны быть локальными. Лучше их сделать членами класса окна и по со- 
бытию загрузки программы (ОпСсгеаее ИЛИ Оп5пом формы) обнулять переменные. 
В этом случае работа с библиотекой будет более оптимальной, как показано в сле- 
дующем примере: 

рхгоседиге ТЁРогп1.Ваебоп1С11ск (бепаег: ТОБ)ес®); 

Бед1п 

1Е Е>0 ЕВеп 
ЕгееАрБоце (ЕЁ); 


// проверка указателя функции 
1Е @за=п1] ЕБеп 
Беа1п 
// проверка загруженности библиотеки 
{Е ОГГНапа1е=0 Вер — 
РЫГНапа1е : =Боаа1Ъхгагу ('РкозесЕры,.рыь'); 
@5а: =СееРгхосАаагез$ (0Ы.НапЯ1е, 'ЗВомАрбоие'); 
‘епа; 


Е:=5а (НапЯ1е); 


В этом случае мы сначала проверяем, равен ли указатель на функцию нулю. 
Если нет, то функцию мы уже выполняли и указатель на нее есть, а значит, можно 
выполнять ее сразу. Если же указатель нулевой, то сначала проверяем — является 
ли нулевым указатель на библиотеку. Если нет, то она уже загружалась во время 
поиска других функций и повторная загрузка не требуется. 

Этот код уже намного экономнее и эффективнее. 


18.7. Точка входа 


Вы, наверное, заметили, `что в исходном коде библиотеки есть ъед1п И епа, не 
относящиеся ни к одной из процедур или функций. Код, описанный здесь, выпол- 
няется самым первым при загрузке библиотеки в память. Зачем это нужно? Здесь 
можно было бы инициализировать какие-то переменные, но библиотека не может 
сохранить их. 
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В библиотеках есть одна глобальная переменная, которая существует всегда, 
и ее имя рГт.Рхос. Это не просто переменная, а указатель на процедуру. По умолча- 
нию он равен п:1, но если сюда записать адрес реальной процедуры, то эта про-. 
цедура может отзываться на определенные события, происходящие в библиотеке. 
В процедуре можно регистрировать следующие события: 
ОГ. _РВОСЕ$$_АТТАСН — событие генерируется при загрузке библиотеки; 
РЬТ._РКОСЕ$$_РЕТАСН — событие генерируется при выгрузке библиотеки; 


ОЬЬ_ТНВКЕАО_АТТАСН — событие генерируется при создании нового потока, 


ооо 


РЬГ_ТНВЕАР_ОЕТАСН — событие г енерируется при отключении нового потока. 


Рассмотрим небольшой пример, чтобы вы увидели, как это работает. 
Откройте библиотеку, написанную в предыдущем разделе главы. Теперь до- 
бавьте в нее код, приведенный в листинге 18.5. 


11Ьгагу РгозесеоШ; 


изез 
5$у$0Е11$, 
С1а$зез, 
И1паомс, 
Я1а1о33, 
11161 11 '0п11.раз' {Роут1}; 


{$В *.ВЕЗ} 


ехрогЕз ЗРомАБбоме 1паех 10; 
ехрогЕ$ РЕгхееАБоце 1паех 11; 


ргоседите ОЬЬЕпекуРо1т (ЧмВеазоп : ОМога) ; 

` Редлп 

сазе ЯмВеазоп оЁ- 

РЫГ, РКОСЕЗ$_АТТАСН: бромМеззаче ('Аебасп со ргосезз'); 

РЫ, РВКОСЕ$5_ПОЕТАСН: бВомМеззачае ('ПБебасп со ргосез$'); 

РЫ, ТНВЕАО_АТТАСН : бНомМеззаде ('ТьгеаЯ аекасй Ео ргосез5'); 
ОЫТ, ТНВЕАО_ПЕТАСН: бРомМеззачде ('ТЬгеаЯ аебаср Ео ргосезз'); 
епа; 


ера; 


Бед1п 
ОЬЬРгос : =@Р.ГЕПЕГУРо1те; 
ОЬБЕПЕхгуРо1пе (РОГ, РВОСЕЗ $_АТТАСН); . 


епа. 
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В разделе изез появилось объявление двух новых модулей — м1пдомз и а1а1о9$5. 
Без них наш код не скомпилируется. Чуть дальше появилась процедура 
ОРЬЬЕПЕГуРО: ПЕ С ОДНИМ Параметром, в котором будет передаваться событие, кото- 
рое произошло. Внутри процедуры оператором сазе проверяется тип пришедшего 
сообщения и в зависимости от этого выводится сообщение. | 

Между ъед1п И епа библиотеки переменной ры.Ргос присваивается наша про- 
цедура. После этого вызываем ее и в качестве параметра указываем событие 
ОЬ._РКОСЕ$$_АТТАСН. 


ПРИМЕЧАНИЕ. На компакт-диске, прилагаемом к книге, в папке \Примеры\Глава 18\ 
Еп\ху вы можете увидеть пример этой программы. 


18.8. Вызов из библиотек 
процедур основной программы 


Теперь мы рассмотрим еще один вариант использования ОГ.Г.-библиотек. Мы уже 

‚ многое узнали, и пора увидеть, как можно из библиотеки ОГ, вызывать процеду- 

ры, описанные в основной программе. Это очень мощный способ, позволяющий 

сообщать основной программе о каких-либо событиях, происходящих в библиоте- 
ке, особенно если код библиотечной функции выполняется асинхронно. 

Функции обратного вызова, которые мы будем рассматривать в этом примере, 
используются не, только при работе с ОГТ.-файлами. Этот же метод можно исполь- 
зовать внутри одного приложения (исполняемого файла),.но в различных классах. 
Так, один объект может вызывать функции другого объекта, и подобным методом 
в Оеры работают события. Вы назначаете свою функцию в качестве обработчика, 
а компоненты вызывают эту функцию при возникновении события. 

Создайте новый проект динамической библиотеки. В основном модуле напиши- 
те код, представленный в листинге 18.6. 


11Югагу. ГопсРгодесе; 


изе5 
5у50%115, 


С1аз5ез; 


Суре 
ТСопрРгос= ргоседоге (5%г:РСКВахт) ; $5ЕЯСа11; 


ргоседоге Сотр$ (5Ех:РСВаху; Ргос:ТСотрРгос) ; $5ЕЯСа11; 
Бед1п 


1Е @Ргос<>п11 ЕВеп 
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ТСопрРгос (Рхгос) (5ег); 


еп; 


ехрогЕ$ Сошрб 1паех 10; 


{ЗВ *.гез} 


Беа1п 


епа. 


Первое, что здесь бросается в глаза, — это объявление в разделе куре нового 
типа (тТСопрРхос). Новый тип объявлен как процедура с одним'параметром в виде 
переменной типа РСвах, имеющей стандартный вызов. Объявление этого типа не- 
обходимо, чтобы объяснить динамической библиотеке, какого вида будет процеду- 
ра в основной программе, которую надо будет вызывать. 


ВНИМАНИЕ. Тип РСпах — это указатель на строку, оканчивающуюся нулем (в шест- 
надцатеричной системе — #0). Сама переменная типа РСВагх — только указатель на 
начало строки, а конец строки определяется по наличию значения #0. О конце строки 
нам никогда не придется заботиться, нас больше будет волновать выделенная па- 
мять, потому что под строку типа РСпаг нужно резервировать память. 


После объявления нового типа процедуры идет процедура сопрз$, которая будет 
экспортироваться из модуля. Эту процедуру мы будем вызывать из основной про- 
граммы, а из нее уже будем обращаться к процедуре основной программы. 

В первой строке процедуры проверяется значение переданного параметра рхос. 
В этом параметре мы должны получать адрес той процедуры, которую надо вы- 
звать. Если параметр не равен нулю, то можно сделать вызов. Для вызова напишем 
следующий код:. | 

ТСопрРгос (Ргос) (5х) 


Этим кодом' вызывается процедура, и ей в качестве параметра передается пере- 
менная зех, которую мы сами же получили в качестве входного параметра. 
В принципе, с процедурой все. Остальное вам уже должно быть знакомо. Теперь 
переходим к написанию основного модуля. 
Создайте новое приложение. В разделе суре сразу же объявите следующее: 
Суре й 
ТСопрРтгос= ргосеаоте (56г:РСБаг) ; $ЕЯаСа11; 
ргоседиге Сотрб (5Ех:РСНах; Ргос:ТСотрРгос) ;ехроге; $ЕЯСа11; 


В первой строке мы объявляем тот же процедурный тип, что и в динамической 
библиотеке. Во второй строке объявляется процедура, которую мы экспортируем 
из библиотеки. Объявление должно быть именно в таком порядке. Если вы попы- 
таетесь объявить сначала процедуру из библиотеки, то при компиляции ОерШ вы- 
даст ошибку, потому что в качестве второго параметра в процедуре стоит тип 
ТСопрРгос и сначала его нужно описать, &# потом использовать. 
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Теперь напишем процедуру са11Ехошрьт. Эта процедура будет вызываться из 
динамической библиотеки. Она будет выглядеть так: 
ргосеаиге Са11Екхошо, (5х :РСНаг) ;5%9Са11; 
Беа1п | 
ЗПомМез5аче ('РЬГ вызвала эту процедуру. Параметр равен: '+5%:); 
епа; 


Наша процедура должна соответствовать объявленному типу ТСопрРгос, 
а именно — в типе описано, что это процедура, которая вызывается стандартно 
и имеет один параметр типа Рсвах,. Процедура должна соответствовать всему это- 
му описанию, иначе произойдет ошибка. 

Внутри процедуры вызывается только одна функция $вомМеззаде, которая фор- 
мирует на экране окно сообщения. В качестве единственного параметра в ней нуж- 
но указать текст сообщения. _ | | 

Теперь поместим на форму кнопку и по ее событию опс11ск напишем следую- 
ЩИЙ КОД: 

ргоседиге ТЕопт1 .Вабвоп1С11скК (бепаег: ТОБес®); 

Бед1п 

Соштрб ('Привет', @Са11ЕхошрЬь); 
епа; 


Здесь просто вызывается процедура сотр, которая хранится в динамической. 
библиотеке. Попробуйте запустить приложение и проверить результат работы про- 
граммы. | 


ПРИМЕЧАНИЕ. На компакт-диске, прилагаемом к книге, в папке \Примеры\Глава 18\ 
Са! вы можете увидеть пример этой программы. 


Глава 19 


Разработка 
собственных компонентов 


На протяжении всей книги мы уже использовали достаточно много компонентов 
Ре]рй1. Вы уже убедились, что среда разработки достаточно хорошо продумана 
и имеет очень много инструментов для создания полноценных приложений. Но го- 
товых компонентов никогда не бывает слишком много. Всегда хочется все больше 
и больше. | 


ПРИМЕЧАНИЕ. Зайдите на сайт млм Ллоггу.пе{ и посмотрите раздел \УС(. Тут целое 
множество компонентов, написанных разными программистами-одиночками и ма-. 
ленькими фирмами. Некоторые даже зарабатывают этим деньги. 


Допустим, что вы написали какой-то код, который может пригодиться вам 
в дальнейшем. Можно оформить этот код в виде ОГТ.-файла, но это не всегда воз- 
можно. Например, ОГ.Г.-код не может реализовать часы, которые должны выво- 
диться на главной форме. Можно реализовать класс в виде модуля, но его нельзя 
будет использовать визуально во время разработки. 

Визуальные элементы лучше всего оформлять в виде компонентов, чтобы ими 
проще и удобнее было управлять во время разработки программы в визуальном 
дизайнере. Классы визуальных компонентов лучше делать наследниками от класса 
ТСопЕго1 или одного из его потомков, которые наиболее близко подходят к созда- 
ваемому элементу управления. 

Но даже те классы, которые не будут видны во время работы программы, тоже 
можно сделать в виде компонентов, но не визуальных (сделать их наследниками от 
ТСопропепе). Яркими примерами таких компонентов являются компоненты доступа 
к базам данных: ттаь1е, ТОцеку и т. д. Несмотря на то, что результат этих объектов 
нигде не отображается, их сделали в виде компонентов, чтобы удобнее было 
управлять свойствами с помощью объектного инспектора. 

Вы можете создать свои компоненты, похожие на те, что видите на палитре 
компонентов, и потом многократно использовать написанный там код. Если сде- 
лаете так, то в будущем достаточно будет только установить свой компонент на 
форму и его можно будет использовать точно так же, как и любой другой стан- 
дартный компонент Реры. 

‘ Бели вас заинтересовало сказанное, то можете приступать к чтению этой главы, 
чтобы побыстрей узнать, как все это делается. Но даже если вы не будете создавать 
собственные компоненты, желательно эту главу не пропускать, потому что здесь 
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будет описано достаточно много теории, касающейся структурной организации 
компонентов. Вы узнаете, из чего они состоят, и лучше будете понимать, как они 
работают. 


19.1. Пакеты 


Любой компонент, который устанавливается в Рерш, должен попасть в какой- 
то пакет. Для этих целей по умолчанию уже есть один пакет, но вы можете созда- 
вать новые пакеты. Таким образом, компоненты можно группировать по смысло- 
вому признаку в группы. Например, те, что работают с графикой, устанавливать 
в один пакет, а те, что работают с файлами, — в другой. | 

Пакеты в ОерЬ! больше похожи на проекты, которые облегчают компиляцию 
и установку группы компонентов. Больше они ни на что не влияют. Такие пакеты 
не являются пространствами имен, как в Тауа или .МЕТ. 

Давайте посмотрим, как работать с пакетами. Для начала создайте где-нибудь 
у себя на компьютере папку \Сотропеп(5. В нее вы будете складывать все-создан- 


ные или загруженные из Интернета компоненты. Внутри нее создайте еще одну — 
\ОШет. 


ПРИМЕЧАНИЕ. На компакт-диске, прилагаемом к книге, в папке \Компоненты\Нап4е$ 
вы найдете исходный код, который будем сейчас устанавливать. Скопируйте найден- 
ный там файл в папку \О{Вег. Скопировать нужно файл Нап4е$.ра$. Здесь находится 
исходный код компонента. Теперь запустите Оеры и закройте все, что в нем открыто 
(РИе | С1озе А!). 


Чтобы установить компонент, выберите из меню Сотропепё пункт ш$аЙ 
Сотропепе. Перед вами откроется окно, показанное на рис. 19.1. В этом окне вы 
можете увидеть четыре строки ввода. Рассмотрим их назначение. 


О ОпЕ @Ше пате — в этой строке нужно указать файл устанавливаемого компо- 
нента. Для этого щелкните кнопку Вго\зе, и вы увидите стандартное окно от- 
крытия файла. Откройте файл Нап е$.ра$. 


то енто раскаде № о пем риска в 


ея кА аи ин ине Дети ини оптики 


- 


ЗеагсН ра: Я БЕЕРНИСЕ: ОЕЕРНИАЯ и ЗЕНА произ; МОЕТ ИРовоККВ р/:$ | 


| Раскаде Не патае: А рлодтат ПЕНИ ну ЫЬ\Зоысг 9 к — т] Г 


Раскаое Чезопрйол: Вопвлв Узег Сопролемв 


их Ил тие, о и И ЗА ее, ооо ель лечь теме, ль ль ть ль ол, олени млад дал 


Рис. 19.1. Окно установки компонента 
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С $еагсь Ра — здесь находится список путей, по которым Вер при компиля- 
ции ищет исходный код установленных компонентов. В принципе, в конец этой 
строки надо было бы добавить после точки с запятой и путь к нашему компо- 
ненту. Но пока этого делать не будем. 


СО РасКаге Ше пате — это имя пакета, в который будет помещен устанавливае- 
мый компонент. Здесь можно выбирать в ниспадающем списке любой сущест- 
вующий. 

С РасКазе дезсир@оп — текстовое описание пакета. Здесь может быть: любой 

текст, заданный вами. Он ни на что не влияет. 


Будем считать, что у вас в системе еще нет своих пакетов и Ре]р предложил 
установить новый компонент в пакет по умолчанию. Мы не будем этого делать, 
потому что так у нас в системе возникнет неопределенность. Некрасиво сваливать 
все компоненты в один пакет, лучше сгруппировать их по смыслу. 

Давайте создадим новый пакет, в который будем помещать все файлы из папки 
\Сотропеп\Оег. Для этого в этом же окне выберите вкладку 0 пем расКарге 
и нажмите кнопку Вго\м$е, напротив строки РасКкаге Ше пате. В появившемся 
стандартном окне открытия файлов перейдите в папку \Сотропеп\ОШег на вашем 
локальном диске и здесь вручную введите имя пакета —. ОфегСотропеп, и на- 
жмите кнопку Открыть. | 

Теперь нажмите кнопку ОК, чтобы закрыть окно установки компонента. Перед ва-. 
ми автоматически должно появиться сообщение типа: "РасКаге ОфегСотропеп($.6р| 
\Ш Бе Би! Шеп шяаПед. Сопипие?" 
Смысл сообщения следующий — "Пакет 
ОшегСотропепз.6р|! будет откомпили- 
рован и установлен в систему. Продол- 
жить?" Можете нажать кнопку Уе$, и 
Дер! сделает все необходимое для ус- 
тановки нового компонента в систему. 
Однако нажмем кнопку №, чтобы рас- 


Раскаде - СУ Согтропетея. 40 ее х ееНиие ** ы 


Е  ООВ6иа раз Г: 'АСУО\Ргаес8“Сотропетз7\СУ0 Сотре 


смотреть, как это делается не автомати- -Ё и 
чески и что при этом происходит. | 2] р 
Для начала у вас появилось новое ок- В ие 
но, показанное на рис. 19.2. —ыЫ——— 
В центре окна можно увидеть дерево Рис. 19.2. Окно пакета 


из двух ветвей. 


О Сошаш$ — здесь содержатся модули, входящие в пакет. У нас пока один 
модуль, и вы видите только его файлы. 


С Ведашше$ — здесь находится список имен пакетов, необходимых для компи- 
ляции данного пакета. В принципе, эти имена можно удалить (иногда они не 
нужны), но если при компиляции хотя бы один из этих пакетов понадобится, то 
появится сообщение о необходимости подключения данных пакетов и Реры 
снова их вернет автоматически. Если попытаться отказаться от автоматиче- 
ского добавления, то пакет не сможет быть откомпилированным и установ- 
ленным в систему. 
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В верхней части окна находятся панели со следующими кнопками: 
Сотр!е — компилировать пакет; 

ААА — добавить новый модуль в этот пакет; 

Кетоуе — удалить модуль; 


чо 


та — установить пакет в систему (при нажатии этой кнопки пакет при необ- 
ходимости будет перекомпилирован); 


О ОрНоп$ — настройки пакета. 


В Реары 2006 окно пакета не 
содержит кнопок,’а открывается 
внутри окна Ргодфесё Мапазег. 
Чтобы получить доступ к описан- 
ным выше командам, щелкните 
правой кнопкой по имени пакета, 
и вы увидите эти команды в кон- 
текстном меню. 

Прежде чем компилировать наш 
пакет, давайте посмотрим его на- | |. | | 
стройки. Нажмите кнопку ОрНоп, - "Раскаде папе —— —- - | 
и вы увидите окно, показанное на |’ _ ЦВ Век ть ` ив вме Г | , 
рис. 19.3. Для Рефры 2006 нужно о = 
выбрать меню Ргодесе | ОрНопз. = п АА 

В принципе, большинство на- | а 
строек схожи с настройками ис- [- 
полняемых файлов. Обратите вни- ЕЕ: . 
мание на раздел Озазе орНоп$, где 
надо указать, для чего будет ис- 
пользоваться пакет. Здесь доступ- 
ны три варианта. 


Розе ОрНоп$ Гог СУПОВСотропете5. Бр 


_ ОдесобеьИСопоболыв ы. 


20 ь ь . > . с па адены _ 21| 
СЕ ре ив 4$ ЕкрЮеБиЯ - 


Рис. 19.3. Окно свойств пакета 


О Беяюпате оШу — компоненты пакета могут использоваться только во время 
проектирования формы в оболочке Рерш. 


О Випате ошу — компоненты нельзя использовать во время проектирования, 
а можно только создавать во время выполнения программы. Для этого на маши- 
не, запускающей программу, обязательно должен присутствовать откомпилиро- 
ванный файл проекта (файл с тем же именем и расширением — 6р|. 


О Реярпате апд Випйте — компоненты пакета можно использовать в обоих 
случаях. 


ПРИМЕЧАНИЕ. Чаще всего используют именно третий пункт, а второй ставят для коммер- 
ческих пакетов. В этом случае пользователь может познакомиться с возможностями ваших 
компонентов, но только используя их во время выполнения программы и с помощью до- 
полнительных файлов (ВРИ). Если он захочет использовать компоненты и во время проек- 
тирования формы в оболочке Берн, то за это можно брать отдельную плату. 


Чуть позже мы рассмотрим, чем отличаются пакеты Оез1епите и Кипите на 
практике, а пока закройте окно свойств пакета и возвращайтесь в окно пакета. 


Разработка собственных компонентов _ 529 


Нажмите кнопку $аЙ, чтобы установить пакет в систему. Если кнопка Таай 
недоступна, то сначала откомпилируйте проект, а потом установите. Ре!рЫ отком- 
пилирует пакет и выведет сообщение об удачной установке. Закройте окно пакета. 
При закрытии Ое]рШ спросит о необходимости сохранить его, ответьте Да, чтобы 
все изменения сохранились. 

Теперь на палитре компонентов у. вас должна появиться новая вкладка с именем 
СУО, где вы сможете найти новый компонент. Некоторые компоненты попадают на 
вкладку Затр[ез, а для некоторых создаются новые вкладки. 

Теперь снова закройте все (ЕЙе | С1юзе АП) и создайте новый проект приложе- 
ния. Сейчас мы рассмотрим, как используются пакеты Оез1епите и Кипите. Выбе- 
рите пункт ОрНоп$ из меню Рго]есё. Перед вами откроется окно свойств проекта, 
как это показано на рис. 19.4. В этом окне перейдите на вкладку РасКарез. 


роде ОрНоп5. Гог СУРОВСогтропет(. БР 


_ Безойрбол : | оптрйег. ‘Сопоы Меты ‚| ‚Бока 
о 


М м 9 Вопапа ВОЕ ОВ Сотропет 

: [5 Вопапд СХ БааБазе Сотропет$ 

г | \й Вопапд СХ Э4апдаг4 Сотропет 
|| 4 Вопапа Сопис! Рапе! Арр/е! Раскаде 


ПАНА чи кртаюлдльжля ня ежа про аз лилимьнл но 


| т = оды о ЫаНвОЕВОЬЬ г 


Е - Вычте раскарез = 
] г. вия ин поте 


ие ий усн: зу: ИЕ эезииемСИе: та =. ИР ре 5 #. 


Рис. 19.4. Окно 
свойств проекта 


Здесь (в нижней части окна) вы можете видеть СпесКВох, помеченный тек- 
стом — Вий@ миВ гипбше расКазез. Если установить флажок, то ваши програм- 
мы резко уменьшаются в размере, потому что в них будет храниться только код 
программы. Все компоненты, которые установлены на форме, не попадут в испол- 
няемый файл. 

Когда программа будет запускаться, она будет подгружать эти компоненты из 
файлов пакетов, перечисленных в строке чуть ниже СБесКВох. Получается, что 
ВРГ.-пакеты могут работать как самые настоящие динамические библиотеки. Так 
вы можете экономить размер программ, но при переносе программы на другой 
компьютер, вы должны заботиться о том, чтобы и необходимые ВРГ.-файлы тоже 
попали на тот компьютер. Их достаточно скопировать в папку \зу$ет (Зу$ет32 
для \тдо\м$ №Т/2000/ХР) папки \Ушдо\$. 

Если убрать флажок у СвесКВох, то программа становится полноценной и не 
нуждается в дополнительных ВРГ.-файлах. Исключения составляют только случаи, 
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когда вы использовали пакет Кипите, который не может компилироваться в программу 
и обязательно должен использоваться только на этапе работы программы. Но такие 
пакеты редкость и использовать их нежелательно. Работайте с теми компонентами, ко- 
торые можно установить на форму во время проектирования приложения. 


ЕПУнопепЕ ОрНопз 


_ Туре Цыалу 1 - Елуиоптеле Мадаыех Ч. нете в — ‚серн Овес" 
_ Рефмелсея_ 1 рейде! г дер | "Рае у 1 он | | 


о "Оресое- о 


_ ВР сир Фес: ” ОР РОЕОЗАВ о 
` ОС ори Чесоу. УЕСРИИАРоеоь\В 


в - Вова ра УВЕРЕН воет ОБН ы м Ей] вый 


Рис. 19.5. Окно 
свойств проекта 


Теперь проверим путь к нашему компоненту. Выберите из меню То пункт 


Епугоптет ОрНоп$. Перед вами откроется окно настроек Веры. В этом окне 


О 


0 


нужно перейти на вкладку Гл®гагу (рис. 19.5). 


В этом окне вы можете увидеть следующие строки ввода: 


ТлЬгагу Ра — здесь перечислены пути, где Рерш должен искать исходный 
код компонентов; 
ВР. ошрш Фгесюгу — здесь указывается папка, куда будут сохраняться от- 


компилированные пакеты (по умолчанию здесь. указано 
$(РЕГ.РН1\Рго}ес\Вр|; | 


ПРИМЕЧАНИЕ. Конструкция $(ОЕЁРН!]) указывает на папку, куда установлен Бер. 
Получается, что ВР\-файлы будут сохраняться в папку, где установлен Веры, во 
вложенную папку \Ртоец{$\Вр!.. 


ЮОСР ошрш Фгесюгу — папка, в которую будут помещаться ОСР-файлы (это 
скомпилированные файлы пакета, которые хранят все информацию о всех ком- 
понентах, скомпилированных в пакет); 


Вгомзт? Ра — пути для просмотра. 
Нас сейчас интересует только первая строка, остальные вообще можно остав- 


лять по умолчанию. Нажмите на кнопку с тремя точками справа от строки ГАфгагу 
Ра. Перед вами откроется окно редактора путей (рис. 19.6). 
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В списке (в центре окна) вы може- 
_те увидеть перечень папок, в которых 
Рерб! будет искать исходные про- 
граммные коды. Когда вы выбираете 
любой из них, то этот путь переме- 
щается в строку ввода под списком. 
Проверьте список на наличие пу- 
ти к папке, где находится ‚файл 
Нап е$.раз. Если такого пути нет, то 
щелкните по кнопке с тремя точками 
справа от строки ввода, и вы увидите 
окно выбора папки. Найдите нуж- 
ную папку и нажмите ОК. Теперь 
выбранный путь находится в строке 
ввода. Чтобы его добавить в список, 
нужно нажать кнопку АЗ@. Сделайте 
это и можете закрывать окно редак- 


В ФОЕЕРНМтрой$ 

| ] ОЕТРНАРюес\Вр! 

-| | $ОЕЦРНИАЯА ачеб\ И 

Е 1Е\Су0\Ргаес{$\Сотропеи($ 7\Асйоп | 
РАСУб\Ргоес $ \Сотропет $ ?\СотропепЕ1 | из 


СГ. Г Бела Глждльлие А Глелжжлли ь^Э 


‚ биеуед Кети депие нпмай9 раё®. 


| ат =] | 
= В ` беще | Баев пуай4 Раз №] 


а 


ПРЕ ев | 


Рис. 19.6. Окно редактора путей 


тора путей нажатием кнопки ОК. После этого закройте окно настроек Рер!ы. 

Если вы не добавите путь к исходным кодам в настройках Оеры, то компилятор 
не найдет их и при компиляции выдаст ошибку. 

Когда вы устанавливаете пакет Кипите, то вам необходимо найти файл с рас- 
ширением Бр] в папке \$(РЕГРНГ\Ргоес®\Вр! и скопировать его в системную пап- 


ку \т4о\$5. 


Если у вас уже есть где-то откомпилированный пакет (файл с расширением Ьр!), 
то его можно сразу же установить в Реры без компиляции. Его надо будет запи- 


сать в доступную для Реры пап- 
ку или создать новую, но добавить 
путь в настройках ОерН:. 

Для установки уже скомпи- 
лированного пакета выберите из 
меню Сотропеп пункт Ш$айЙ 
РасКарез. Перед вами откроется 
окно (рис. 19.7), которое похоже 
на вкладку РасКаге$ окна свойств 
проекта (рис. 19.4). В принципе, 
можно использовать любое из 
этих окон. 

Для установки нового пакета 
нужно нажать кнопку А94. Перед 
вами откроется стандартное окно 
открытия файлов. Найдите нуж- 
ный ВРГ-файл и откройте его. 
Ре]рЬ1 автоматически установит 
все компоненты из пакета в па- 
литру компонентов. 


ОеГашЕ Ргоес( ОрНоп$ |х. 


. Раскадез | 


о 5 ед раскаре- оо уДЪ&Ъ®ттотттттеттотчтктзвздзвзтттыт1ЗЗЗ? 


1. 


Е ры ао — и, 


_ 494. Ветоуе_ | 


а лье ль п а мель 


г Рипите раскадез —- жеАеля п хот 


| Г. Ваа ия гапбте расКадез 


Рис. 19.7. Окно установки пакетов 
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19.2. Подготовка к созданию компонента 


Прежде чем начинать создавать собственный компонент, необходимо решить 
для себя несколько вопросов. Самым первым вы должны решить, от какого компо- 
нента или объекта будет происходит ваш. Как говорилось ранее, все объекты 
В Рефры происходят от объекта тоь3есе. А все компо- 
ненты имеют среди родственников объект тСопропепе. 
На рис. 19.8 показана иерархия предков компонента | Негаг<йу 
ТВиесоп. | 

В самом верху иерархии находится объект тоъзесе. | 
Все объекты происходят именно от него. В тоьЗесе Теа 
находятся базовые свойства и методы, которые необ- | ТСлилропет 
ходимы любому другому объекту. Именно поэтому, сми 
чтобы во всех объектах не прописывать одни и те же Г. 
свойства и методы, все уже реализовано в ТОБзесе. ии 

Остальные просто наследуют эти возможности. ТВумюйСомит! 

Далее по иерархии идет объект тРехз1зеепь, ко- Вано 
торый является предком для всех объектов, которые 
должны уметь назначаться другим объектам. Напри- 
мер, если наш объект должен уметь выполнять метод Рис. 19.8. Иерархия предков 
Азз1ап (назначить), то этот объект должен иметь компонента ТВаЕкоп 
в предках объект тРехз1зЕепе. 

Следующим в иерархии идет объект тСотропепе. 

Этот объект должен быть предком для любых компонентов Реры, которые долж- 
ны уметь ставиться на форму в режиме проектирования. Этот объект наследует все 
свойства и. методы своих предков (трегз1зкепЕ и ТОБдес®) и добавляет новые воз- 
можности по работе с объектом, как с полноценным компонентом на форме. 

Если компонент должен быть видимым во время выполнения программы, то он 
обязательно должен происходить от компонента тсопЕхо1 (следующий в иерархии 
для кнопки). Для невидимых компонентов (например, компоненты с вкладки 
0121025, которые не видны во время выполнения), этот объект среди предков 
не нужен. 

Следующий в иерархии идет Ти1пСопего1. Этот объект добавляет функции по- 
лучения фокуса ввода, работы с текстовым буфером, возможность содержания до- 
черних компонентов. Если ваш компонент будет иметь среди предков ти1пСопего1, 
то поверх этого компонента можно будет ставить еще компоненты (не обязательно, 
но возможно) в режиме дизайна формы или во время выполнения программы. 
Ти1пСопЕго1 имеет дескриптор (напа1е) окна и может получать фокус. Вспомните 
пример с потоками, где мы использовали для вывода текста из потока компонент. 
ТТаЪе1. Когда потребовалось подкорректировать поток и добавить возможность 
посылать сообщения 5епаМеззасде, то нам пришлось заменить тгаЪе1 на тЕа1к, по- 
тому что у первого не было дескриптора окна, и мы не могли ему отсылать сооб- 
щения У/Лт4о\5. | 

Следующий — ТвиЕЕопСопЕго1. Это уже компонент кнопки, в котором реализу- 
ется множество необходимых кнопке свойств и методов. 


_ТОБес 
| 
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Нужно еще сказать об одном базовом компоненте — тбгарь1сСопего1. Если 
ваш компонент должен будет иметь метод Ра! пе, т. е. уметь рисовать на поверхно- 
сти графику, то он должен иметь среди предков этот объект. 

И последний базовый объект — тТСизЕомСопего1. Он представляет сочетание 
двух объектов — ТСбгарв1сСопЕго1 И ТИ1пСопЕго1, т. е. компонент, имеющий деск- 
риптор окна и метод Раз. 


ПРИМЕЧАНИЕ. Более подробно об основных классах можно узнать из приложения 1. 


Иерархия предков компонента читается сверху вниз. Каждый новый объект ие- 
рархии добавляет уже существующую структуру новыми свойствами и методами. 
Таким образом, в конечном итоге мы получаем полноценный, самостоятельный 
объект. | | 

Прежде чем создавать собственный компонент, вы должны решить, от какого 
уже существующего объекта. он будет происходить. Выбор должен зависеть от не- 
обходимых будущему компоненту возможностей. 

Откройте файл помощи в ОерЫ (меню Нер | Реры вер). В появившемся окне 
найдите объект тваЕЕоп. Для этого введите в строку ввода (сверху) имя ТВоееоп. 
Теперь в большом списке выделите строку тваеЕоп и нажмите кнопку Показать. 
Перед вами откроется окно с найденными разделами. В данном случае список бу- 
дет состоять из двух строк: 


О тваЕсоп; | 
О тваесоп (УСЁ, Кеегепсе). 


Первая строка явно относится к объекту тваЕЕоп из библиотеки СГХ (если ни- 
чего не указано, то это скорее всего библиотека СГ.Х). Вторая строка — это объект 
в библиотеке УСГ.. Оба варианта компонента схожи и имеют очень много одинако- 
вых свойств и методов, но могут быть и отличия, в УСГ-версии, специфичные для 
платформы У\У!шдо\з$. В книге рассматривается платформа У штдо\$, поэтому 
выбирайте УСТ-вариант и нажимайте кнопку Показать. Перед вами откроется 
окно помощи по выбранному объекту. Оно должно выглядеть, как это показано 
на рис. 19.9. 

Вверху окна установлены следующие ссылки: 


О Шегагсву — если щелкнуть по этой ссылке, то перед вами откроется окно с ие- 
рархией компонента; 


О Ргорегие$ — здесь будут показаны все свойства компонента; 
О Ме®о4$ — это методы компонента; 
О Еуеп5 — события, которые может генерировать компонент. 


Попробуйте посмотреть свойства. Щелкните кнопкой мыши по ссылке 
Ргорегие$, и перед вами откроется окно со списком свойств. В этом окне вы може- 
те увидеть все свойства, разбитые по разделам. Большим жирным шрифтом напи- 
саны имена разделов, а после этого идут ссылки на свойства. Щелкая по любой 
ссылке, можно получить ее описание. 

Обратите внимание на имена разделов. Например, Ремуей пот Т\УИтСопето. 
Судя по названию, в этом разделе будут перечислены все свойства, которые ком- 
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понент получил от объекта ти1пСопЕгко1. Так оно и есть. Выбирая любой компо- 
нент, вы можете увидеть его и унаследованные от предков свойства. То же самое 
и с методами. | 


9 Веры Нер 
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Мое: Этсе Ше ТВиНоп сарйоп 15 а№мау$ сетегед, спапота {пе ВЮ! айдптег" Ваз по 
еЙес. 


Рис. 19.9. Помощь по компоненту ТВаЕсоп 


19.3. Создание первого компонента 


Теперь давайте попробуем создать первый собственный компонент. Здесь вы- 
брана не совсем простая задача, чтобы вы в очередной раз могли потренироваться 
в программировании. | 

В качестве примера будем создавать часы. Пусть наши часы могут работать как 
аналоговые и как числовые. Для создания нового компонента выберите из меню 
Сотропепё пункт № ем Сотропеп. Перед вами откроется окно, показанное на 
рис. 19.10, где вы должны будете заполнить основные параметры будущего компо- 
нента. | 

Давайте рассмотрим каждое поле ввода по отдельности. 

О Апсе$ог буре — тип предка. Это имя объекта, от которого мы породим объект. 
Это даст нашему объекту все возможности его предка, плюс мы добавим свои. 
Для часов нам понадобится Тбгарь1сСопего1, ПОТОМУ что наш компонент дол- 
‚жен будет иметь метод рРа1пк, Т. к. часы будут графическими. 

О С!а$$ Маше — имя нашего будущего компонента. Назовем его тбгарь1сС1оск. 


О Раеце Раге — имя палитры компонентов, куда будет помещен компонент по- 
сле инсталляции. 
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ПРИМЕЧАНИЕ. Здесь оставлено 


значение по умолчанию — Затре$. |: 

Мм Сре] 
Но вы можете поместить его даже |. а к | 
на вкладку З4апдагд. Я бы реко- |. ыы И В 


мендовал выбирать группу по зна- _ ева ие г О а 
чению и по типу создаваемого ком- |. >. о —— — Е 

‚ Саз$ Мале: т | 

понента. -. а — | 

г. `Равие рае "Боны "|. и | 
СО Оше паше — имя и путь к моду я пе папе: ри | 
- | 


лю, где будет располагаться ‘ис- | | | 
ходный код компонента. Это поле _ | бемооряк ‚рента УОЕТРНО\и, УОЕЕРНИЧтрои = 
заполняется автоматически, но вы |— т ——— —— 
его можете изменить. Если не хо- 
тите менять, то хотя бы посмотри- | 
те, под каким именем. сохранят Рис. 19.10. Окно создания 
ваш компонент и где. | нового компонента 


О ЗеагсВ ра — здесь перечислены 
пути, где Реры ищет исходные ко- 
ды. Если вы располагаете компонент в новой папке, о которой Ре|р еще не зна- 
ет, то обязательно нужно добавить ее сюда. 


Введите данные о будущем компоненте и нажмите ОК (именно — ОК, а не 


шпУаП). После этого Ре]рШ создаст новый модуль с шаблоном для будущего ком- 
понента. Код показан в листинге 19.1. — 


1116 СгарН1сС1оск; 


1псегЁЕасе 


ц5е5 


Узпаомз, Меззачез, $5у$011$, С1аз5ез, СгарИ1с$, Сопего1$, Ропимз, ПО1а1оа3; 


1 


Суре 
Тбсгарр1сС1осКк = с1аз$ (ТСгарВ1сСопЕго1) 
ру1уасе 
{ Релуаее Яес1агаЕ1оп$ } 
ргосесееа 
{ РгобесееЯ аес1агаЕ1опз } 
рию11с 
°{ РАБЛ4с дес1ахае1опв } 
руБ11зБеа 
{ РаБ115реа адес1агаЕ1опз$ } 


епа; 


18 Зак. 1273 
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ргосеаиге Кед1зеег; 
{пр1етепеае1оп 


ргоседоге Кедазеег; 

Ъед1п 
Веч1зкегСотропепе$ ('бапр1ез', [ТСгарб1сС1оск]); 

епа; 


епа. 


В шаблоне реализована только одна процедура — Ведтзкек. В этой процедуре 
происходит вызов ВКедч15ЕехСоптропепеЕ$ © Двумя параметрами: 


С] имя вкладки, на которую нужно будет поместить этот компонент; 
О имя компонента, которое надо зарегистрировать при установке в системе Ое!ры.. 


Процедура вед1зЕег обязательно должна присутствовать в любом модуле ком- 
понента. Она вызывается автоматически оболочкой Веры при установке компо- 
нента. Если у вас пакет из большого количества компонентов, то процедуры ДлЯ 
каждого из них иногда группируют в отдельный файл. 

В принципе, простейший компонент готов и его можно установить в Реры. Но 
этот компонент ничего не умеет, и он пока является полным аналогом своего пред- 
ка Тбтарн1сСопего1. Чтобы он стал отличаться, добавим ему разные свойства. 

Начнем формирование компонента с конструктора и деструктора. Конструк- 
тор — это метод объекта, который автоматически вызывается при его создании. 
Деструктор — тоже метод, только он автоматически вызывается при уничтожении 
компонента. Вызывать эти методы напрямую. нельзя, а если и можно, то не жела- 
тельно. | | 

'В конструкторе мы проинициализируем все наши переменные, которые понадо- 
бятся при его работе, а в деструкторе — уничтожим. 

Итак, напишите в разделе роЪ11с: 

соп5егисеог СгеаЕе (АОутег: ТСошропепе); о\уегг1ае; 


Как видите, объявление конструктора похоже на объявление любой другой про- 
цедуры или функции, только вместо ключевого слова ргосеаиге стоит слово 
сопзегиссохг. Ключевое слово оуегг14е после имени этих процедур говорит о том, 
что мы хотим переписать уже существующую у предка функцию с.таким именем. 
У большинства компонентов есть конструктор, и когда мы создаем конструктор 
у потомка, то у нас получаются два метода с одним именем о предка и у нашего 
объекта). ы 

Теперь нажмите клавиши <СИ]>+<$М>+<С>, и Реры сам создаст заготовку 
для конструктора: 

соп5Егасеог ТСбгарб1сС1осКк.Скеаее (АОутег: ТСопропепе); 

Бед1п 

1прег1еа; 


епа; 
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Подкорректируем ее. Для этого в эту заготовку нужно вписать код, показанный 
в листинге 19.2. | 


о 


сопзегасвогх ТСгарН1сС1осКк.Скеаее (АОутег: Тсопропепе) ; 
Беа1п | | 

//Вызываем конструктор предка 

1прег16еЯ СгеаеЕе (АОутег); 


//Устанавливаем значения ширины и высоты по умолчанию 
УЗАЕЙ := 50; 
Нелайе := 50; 


//Устанавливаем переменную ЗпомбесопЯАтгом в Етде: . 
//Она будет у нас отвечать за показ секундной стрелки ` 


ЗРомбесопЯАихгом := Етгие; 


//Инициализируем остальные переменные 
Рге\Т1ие := 0; 

СНочер1 ЕЕ := 0; 

СМ1п рт ЕЕ 0; 


//Инициализируем растры ТВ1 тар, в которых будут храниться 
//фон и сам рис. часов. о 

ЕВСВ1Стар:= ТВ1етар.Сгеаке; 

ЕРопе: =ТЕопе .Сгеасе;; 


ЕВ: тар: = ТВ1Емар.Сгеаее; 
ЕВ1бтар.\1АЕеН := И1аеи; 
ЕВ1 пар.Нелайе := Не1оре; 


//Выставляем формат времени 


Расегохгмае:='ЕЕ'; 


//Запускаем таймер 
Т1скехг := ТТуехг.Скеаее( 5е1#); 
_//Интервал работы таймера — одна секунда 
Т1сКех.Тпбегкуа]1 := 1000; 
//По событию ОпТ\мехг будет вызываться процедура Т1сКехСа11 
Т41скег.Опт1мехг := Т1сКегСа11; 


//Включаем таймер 
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Т1скехг.ЕпаБ1еа := вуое; 


//Устанавливаем цвета по умолчанию 
ЕГасеСо1ох := с]1ВёпРасе; 
ЕНоигАЕГОМСо1 ог := с1Асе1уеСарЕ1оп; 
ЕМ1ПАЕКОМСО1ог := С1АсЕ1уеСаре1оп; 
ЕбесАггомСо1ог := С1АсЕ1уеСаре1оп; 


епа; 


Ключевое слово 1прег1ееЯ вызывает такую же процедуру или конструктор 
предка (в нашем случае конструктор класса тбгарь1сС1оск). Это необходимо, по- 
тому что предок тоже может делать что-то важное в конструкторе, и если мы не 
вызовем его конструктор, то могут возникнуть проблемы, например, не создадутся 
какие-то дополнительные объекты или не будет выделена память. 

В остальном, я надеюсь, что с конструктором все ясно. Дальше идет инициали- 
зация переменных. Я постарался снабдить код подробными комментариями, чтобы 
вы смогли разобраться с происходящим. Сами переменные мы пока не добавили, 
ия их буду описывать постепенно. 

Теперь создадим деструктор. Для этого также опишем его в разделе риур11с: 

аезехгасеог ОБезёхгоу; оуегх1ае; 


Деструктор тоже объявляется как простая процедура, но здесь стоит ключевое 
СЛОВО аезекисвог. Теперь нажмите клавиши <СИ]>+<$МЙ>+<С> и получим заго- 
товку для деструктора. Скорректируем ее до вида: 

аезехгасвог Тсгарр1сС1оск.Безекоу; 

реа1п 

Т1сКег.Ехее; 
ЕВ1©тар.Егее; 
РВСВ16тар.Егее; 
1пБег1Ееа ПБезёгоу; 
епа; 


Здесь освобождается вся память, выделенная для хранения картинок и объекта 
ТТ1тех в конструкторе. Заметьте, что в конструкторе мы вызывали предка в самом 
начале 1пнег1+еа, а в деструкторе в самом конце. В конструкторе сначала нужно, 
чтобы инициализировался предок (он проинициализирует необходимые ссылки), 
а потом можно инициализировать свои объекты. В деструкторе все наоборот — пре- 
док уничтожается в последнюю очередь. Если в деструкторе мы сначала вызываем 
предка, то последующая работа с компонентом уже может быть невозможна, потому 
что предок уничтожит все ссылки. Поэтому этот вызов ставится в самом конце. 

Теперь опишите все необходимые переменные в разделе рк1уаке. Они показаны 
в листинге 19.3. 


с 
, зделарх: 
Е ню м, г 


рх1уасе 


//Для часов обязательно понадобится ‘таймер 


Разработка собственных компонентов | 539 


Т1скКехг: ТТ1мег; 


//Картинки часов и фона 
РВ1емар, ЕВСВ1етар: ТВ1етар; 


/События 
ЕОпбесопа, ЕОпМ1паее, ЕОпНойци: ТМос1ЕуЕуепе; 


//Центральная точка 


СепеехгРо1пе: ТРо1и(; 


//Радиус 
Ваз: 1п6едег; 


//Переменная, отвечающая за показ секундной стрелки 


бпомбесопаАтгом: Боо1еап; 


//Цвет фона часов 


ЕРасеСо1ог: ТСо1ог; 


//Цвета стрелок часов. 
ЕНоигАгкомСсо1 ог, ЕМ4пАткомСо1охг, ЕбесАхгомСо1ог: ТСо1ог; 


//формат даты 
Ерасегохгтае: 5еу1па; 


//Стиль шрифта 
ЕРопе: ТРопЕ; 


//Остальные параметры, которые мы рассмотрим в процессе. 
ТарбеерМ: 1пседег; 

Рге\уТ1те: ТрабеТ1ие; 

СНопу01ЕЁ, СМ1пр1ЕЁЕ: 1пбедег; 

ЕС1оск5еу1е:ТС1оск5Еу1е; 


Теперь в разделе ре1уаЕе опишем процедуру т1скегСа11. Мы ее уже использо- 
вали в конструкторе (она вызывается по событию от таймера), но пока еще не на- 
писали: | | 

ргоседиге Т1сКкКехгСа11 (бепаег: ТОБзесЕ); 


Нажмите клавиши <Си]>+<$>+<С> и напишете в ней код, показанный 
в листинге 19.4. | 


ргоседиге ТСгарН1сС1осКк.Т1скехСа11 (бепаег: ТОБ)ес®); 
уах 
Н,М,5,Нр,Мр, 5р: мога; 
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Беа1п 
//Если компонент создан в дизайнере, то выход 


1ЁЕ сзрез1ап1па 1п Сопропепебеаее ЕВеп ех1е; 
//Иначе это уже запущенная программа 


//Получить время 

РесоаесТ1нме( Тлше, Н, М, 5); 
//Получить предыдущее время. 
РесоаесТме( РгеуТ1ие, Нр, Мр, 5р); 


‚ //Сгенерировать событие Опбесопа 
1ЁЕ Аз51отеЯя( ЕОпбесопа) Ереп РОп$есопа (5е1Е); 
//Сгенерировать событие ОпМ1пиее 

°1Е Аз51отеа ( РОПМ1 пике) АМО (Мр < М) еп ЕОПМ1пиее (5е1Е); 
//Сгенерировать событие ОпНоиг 
1ЁЕ Азз1апеа( ЕОпНоцу) АМО (Нр < Н) ЕПеп ЕОпНочцхт (5е1Е); 


.//Сохранить текущее время в РгеуТиле 
РхеуТ1ме :=.Тлие; 


1Е ( МТ ЗПомбесопЯАтгом) АМО (бр <= $) ЕБеп ех14; | к. 


//Прорисовать часы. 
ОгамАтго\м$ ; 


епЯ; 


Процедура рхамАгкомз напичкана математикой, и она сейчас не имеет для нас 
особого значения. Немного ниже рассмотрим ее полный исходный код, а сейчас мы 
рассматриваем, как создавать компоненты. Поэтому рассмотрим события, генери- 
руемые в функции т1скегСа11, и узнаем, как они генерируются. | 

У нас уже объявлено три события в разделе ре1уаЕе компонента: 

ЕОпбесопа, РОпМ1паее, ЕОпНоцг: ТМоЕ1ЁЕуЕуепе; 


Все они появятся на вкладке Еуеп5 окна объектного инспектора, когда вы уста- 
новите компонент на форму. Чтобы приложение могло реагировать на эти события, 
были объявлены переменные типа тМое: ЕуЕтепе (это тип означает события). 

Но все это пока переменные, а как же Бер узнает, что это события, которые | 
надо поместить на вкладку Еуеп5 объектного инспектора? Для этого в разделё. 
рир11зНеа надо описать само событие опбесопа, а также другие, которые будут ис- 
пользоваться: | .- 

ргорегеу Опбесоп@: ТМоЕ1ЕуБуепе геаа РОпбесоп@ ит1Ее РОпЗесопа; 

ргорегеу ОпМ1пиее: ТМоЕ1ЕуЕхепЕ геа@  ЕОпМ1паЕе итг1Ее. ЕОпМ1пиее; 

° ркорекеу ОпНоцг: ТМос1ЕуЕхепЕ геаа РОПНОйх ит1ее РОПНОи! ; 
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В начале каждой строки стоит ключевое слово ргорегеу, которое говорит о том, что 
объявляется свойство. После этого идет имя свойства и после двоеточия стоит тип. Вот 
как раз по типу Реры и узнает, что объявленное свойство на самом деле событие. 

Тип ТМоЕ1 ЕуЕуепе объявлен в Ое\рН! следующим образом: 

Суре ТМ№оЕ1ЕуЕуепе = ргоседике (5епаег: ТОБзесе)} оЕЁ оБ)есе; 


Как видите, этот тип равен процедуре, которая имеет один параметр 5епаегх типа 
ТОБЗесе. Это стандартный тип события, который вы можете использовать, когда 
вам не надо передавать в обработчик никаких параметров. События — это доста- 
точно интересная тема, и чуть позже мы рассмотрим ее более подробно, а пока вам 
достаточно этих знаний. 

_ После этого идет ключевое слово геаа, за которым должна идти переменная или 
функция, которая будет использоваться при чтении события. У нас после этого 
ключевого слова стоит имя переменной, соответствующей событию. После ключе- 
вого слова иг1ее нужно ставить переменную или функцию, которая будет исполь-_ 
зоваться для записи в событие. Тут опять стоит соответствующая переменная. 
Для генерации события мы пишем следующий код: 


РОпбесопа (5е1{) Для события опбесопа. 
ЕОПМ1пиесе (5е1Е) для события опм1пиее. 
ЕОПНоит (5е1Ё) для события ОпНоиг. 


При генерации события в качестве переменной передается 5е1Е. Эта переменная 
всегда указывает на объект, в котором мы сейчас находимся, в данном случае — ком- 
понент тсхарН1сС1оск. Вспомните любой обработчик события. В каждом из них есть 
как минимум один параметр — переменная епаег, которая указывает на объект, кото- 
‚ рый сгенерировал событие. Теперь посмотрите на код, которым мы генерируем собы- 
тие. Как видите, при генерации указывается объект зе1Е, который генерирует событие, 
и пользователь получит его в переменной 5$епаег обработчика события.. 

‚ Но нельзя вслепую генерировать событие. Прежде чем это делать, нужно прове- 
рить, есть ли обработчик события. Возможно, что пользователь не устанавливал со- 
ответствующего обработчика события и не хочет его отслеживать, а значит, пере- 
менная события будет пустой. Для проверки нужно вызвать функцию Азз1апеа 
и в качестве параметра указать тип события. Получается, что следующий код прове- 
ряет, установлен ли обработчик события опзесопа, и если да, то генерирует событие: 

1Е Азз1апеа( РОпбесопа) &Пеп ЕОп$есопа (5е1Ё); 


Теперь наш компонент сможет генерировать события. 
< С событиями вроде все ясно (если нет, продолжайте чтение, возможно, что все 
встанет на свои места). Теперь переходим к. свойствам. В разделе руЪ11зпеа мы’. 
можем создавать свойства, которые будут отображаться В объектном инспекторе 
при выделении наших часов. Все свойства, которые есть у предка, нужно описать: 
`_ рую11зреа. 
ргорегбу А11оп; 
ргорегеу ЕпаЬ1еа; 
ргорегбу РагепЕ5ПомН1пе; 
ргорегЕу ЗпомН1пе; 
ргорегеу \15151е; 
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Все эти свойства мы получаем от предков тбгарН1сСопЕко1, ТСопёго1 И Т. Д. 
Слово ргорегеу говорит о том, что мы описываем свойство. Для них не нужны 
процедуры или функции, потому что эти свойства уже есть у предка. Надо только 
описать их и все, чтобы Веры знал, какие из свойств предков мы хотим увидеть 
в объектном инспекторе. 

Здесь описана только маленькая часть из доступных у ТбгарН1сСопего1 СВОЙСТВ. 
Вы можете добавить любые из доступных. Чтобы узнать, какие функции можно 
добавлять, откройте помощь (Неёр| Бары Неер) и найдите там объект 
Тбхар1сСопего1. Щелкните кнопкой мыши по нему дважды и в появившейся 
справке выберите пункт РгорегИе$ (в верхней части окна). В результате проделан- 
ных действий должно появиться окно с перечнем всех свойств. Вы можете доба- 
вить любое из них. Например, чтобы добавить свойство АсЕ1оп, нужно написать 
в разделе риъ1 1знеа: | 

ргорегеу Асетоп; 


Чтобы добавить новое свойство, которое не существует у предков, нужно не- 
много постараться. Например, добавим возможность изменения картинки фона. 
Для этого описываем в разделе роЪ115пеа СВОЙСТВО ВСВ1 Стар: 

ргорегхЕу ВСВ1емар: ТВу тар геаЯя ЕВСВ1тар \мг1ее зеевСВ1 тар; 


Подобную строку вы видели при описании события, только там свойство имело 
тип события, а здесь это картинка типа тваемар, так что Рер № воспримет эту за- 
пись, как свойство. . 

Для чтения свойства всв1етар мы поставили переменную ЕВСВ1 тар. Это тоже 
картинка, и когда мы будем обращаться к свойству с целью прочитать картинку, то 
она будет просто копироваться из переменной ЕВСВ: емар. 

Для записи используется процедура зеЕВСВ1етар. В принципе, можно было 
и для чтения написать функцию, но это не имеет смысла. А вот для записи слож- 
ных переменных (для которых выделяется память) лучше использовать функции. 
Для простых переменных (числа, булевы переменные) писать процедуры не надо, 
но если вы напишете, то это ошибкой не будет. 

° Итак, для записи свойства всв1Етар мы напишем следующую процедуру: 

ргосеаиге Тбгарвлсс1оск. ЗеЕВСВ1 тар (Уа]ае: ТВ1емар); 

Беа1п 

ЕВСВ1тар.Азз1от (Уа]е); 
1пуа11Ча*е; 

епа; 


В первой строке мы копируем в переменную ЕВСВ1Етар картинку, переданную 
в качестве параметра. Во второй строке заставляем наш компонент прорисоваться. 
Теперь вы можете изменять фон простой операцией 


Сгарв1сС1осКк1 .ВСВ1 мар : =Б1 6тар. 


Ноя рекомендовал бы использовать метод Азз1ап, ДЛЯ картинок он лучше: 
СгарН1сС1осК1.ВСВ1Етар.Азз1опт (Ъ1 тар); 


Если вы хотите создать свойство с ниспадающим списком (как, например, 


у свойства А11ап), по щелчку которого выпадает список возможных параметров, 
то тут уже немного сложнее. В наших часах есть такой параметр, который делает 
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выбор, какого типа будут часы — аналоговые или цифровые. Объявление дела- 
ется так: 

ргорегЕу С1оск5$Еу1е:ТС1оск$Еу1е геаа ЕС1осКк$еу1е мг1Ее бее5еу1е$Еу1е 

‘® АеЁаз1Е зсАпа1оч; 


Здесь объявляется СВОЙСТВО С1оск5еу1е ТИПа ТС1оск5еу1е. ТИП ТС1оск$еу1е мы 
должны описать в самом начале, до описания объекта ТСгарЮ1сС1осКк В разделе 
Суре: | 

Буре 

ТСЛоскзеу1е = (зсАпа]оач, $с014916а1); 


ТСгарр1сС1осКк = с1аз$$ (ТСгар№1сСопего1 } 
рг1уаее | 
Т1скех: ТТ1лег; 


Очень интересной здесь является строка 
ТС1оск$6у1е = ($зсАпа1оча, 5с01916а1). Она объ- 
являет список переменных, которые и будут по- 
являться при выборе свойства. 

Все остальное происходит так же, за исклю- 
чением нового слова адеЕал1е, которое устанав- 
ливает значение по умолчанию для данного свой- 
ства — зсАпа]1оч. | 

Остальной код рассматриваться не будет, по- 
тому что там сплошная математика, которой дос- 
таточно много, но вам желательно с ним разо- 
браться. 

В результате получен новый компонент — ча- 
сы, форма которого показана на рис. 19.11. 


Рис. 19.11. Пример часов 


ПРИМЕЧАНИЕ. На компакт-диске, прилагаемом к книге, в папке \Примерь\Глава 19\ 
Сотропег{( вы можете увидеть пример этой программы. 


19.4. Создание иконки компонента 


Если вы установили созданный нами компонент в Реры, то заметили, что он 
имеет абсолютно некрасивую картинку. Эта иконка выбирается по умолчанию для 
всех компонентов, если у них нет своей. У созданного компонента пока нет своей 
иконки, и ее сейчас предстоит создать... 

Для создания иконки будем пользоваться программой Птпаге Едког, которая вхо- 
дит в поставку Ое]рш (в моей копии Веры 2006 эта утилита почему-то отсутству- 
ет, может, этой утилите делают замену или просто решили не включать в дистри- 
бутив). Запустите ее (Пуск | Программы | Во|апа ОерЫ 7 | Ппаге ЕД ог). Здесь 
нужно выбрать из меню ЕШе пункт М№е\у и затем Сотропепё Вебоигсе Ее (/Асг). 
Программа создаст новое окно, содержащее дерево, в котором пока только один 
элемент Сощет 6. 
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Рис. 19.12. Окно создания растровой картинки 


Для создания нового элемента нужно щелкнуть правой кнопкой мыши в создан- 
ном окне проекта ресурса и в появившемся меню выбрать пункт №ем | Витар. Пе- 
ред вами откроется окно свойств создаваемой картинки (рис. 19.12). 

Ширина и высота (параметры изаев и НезаЪъе) картинки должны быть равны 
_24 пикселам. Цветовой режим оставляем УСА, потому что для иконки 16 цветов 
достаточно. Нажмите теперь кнопку ОК. В результате этого в структуре дерева 
элементов ресурсов появится раздел Втар, и в нем наша картинка В тар] 
(рис. 19.13). Щелкните правой кнопкой по элементу ВИтар! и в появившемся ме- | 
ню выберите пункт Кепаште. Переименуйте картинку, дав ей имя нашего компо-. 
нента Тбгарь1сс1оск. 


ВНИМАНИЕ. Картинка обязательно должна иметь то же имя, что и компонент, кото- 
рому она предназначена, потому что в одном файле исходного кода может быть не- 
сколько компонентов. Вер по имени картинки будет определять, к какому компонен- 
ту она относится. 


Теперь дважды щелкните по элементу картинки. В результате этого появится 
графический редактор. В этом редакторе вы можете нарисовать что угодно. Нари- 
суйте какие-нибудь часы. После этого файл ресурсов можно закрывать. На вопрос 
о сохранении файла сохраните его под именем ОгарысСоскК.4сг. Скопируйте этот 
файл в папку, где находится исходный код компонента. Оба файла должны нахо- 
диться в одной папке. | 

Теперь откройте в Вер! пакет оегсотропепиз.арк. Удалите из него файл с ис- 
ходным кодом часов и откомпилируйте пакет. Это заставит Ое!рЫ! удалить из обо- 
лочки наш компонент. После этого кнопкой АЗ снова добавьте файл с исходным 
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кодом и откомпилируйте пакет еще раз. В результате этих действий компонент ус- 
тановился заново уже с новой иконкой. 


ПРИМЕЧАНИЕ. На компакт-диске, прилагаемом к книге, в папке \Примерыь\Глава 19\ 
1сопРогСотропег! вы можете увидеть пример моей иконки. 


стаде ЕН 
Ве Е% Теф Уен Витар Упадок: Не 


№. 
. 

<... 
>. 


-.. 


ы Сощет$ 
2}. Витар ` 
.. ТОоААРНССОСК 


У ТСВАРНТССЕОСК (СгарысСюсК.4сг) 


ГИЯ 


ль бываю, 


Я 
в 
О] 


Рис. 19.13. Пример наших часов 


_ 19.5. События в компонентах 


Мы уже знаем, что для того, чтобы сгенерировать событие, надо объявить свой- 
ство, которое будет иметь тип процедуры. До этого мы использовали свойство 
ТМоЕ1РуЕуепе. Теперь мы улучшим наши часы и добавим возможность передачи 
в обработчик события определенного значения и заодно более подробно разберем- 
ся с событиями. | | 

Откройте файл, в котором у вас находится исходный код программы-часов. Пер- 
вое, что мы сделаем, — объявим новый тип события с именем тс1оскМоЕ1ЕуЕуепе 
В разделе суре: 

ТС1оскКМоЕ1ЕуЕуепе = ргосеаиге (бепае’: ТОБзесе; 

Т1меРагат: Тпбедцех") оЁ оБ)есЕ; 


В этом типе уже два параметра: | 
О указатель на компонент, который сгенерировал событие; 


О параметр, через который мы будем передавать обработчику значение времени. 


Этот тип события мы назначим всем переменным РОпбесопа, ЕОпМ1паее 


И РОПНоиг. Для этого найдите следующую строку в объявлении нашего компонента: 
ЕОпбесопа, ЕОпМ1пабсе, ЕРЕОпНоци: ТМ№оЕ1ЕуЕуепе; 
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Здесь нужно изменить тип ТМоЕ1ЕуЕуепЕ на ТС1оскМое1ЕуЕБуепе. То же самое 
нужно сделать и в следующих строках: 

ргорегЕу Опбесопа:ТС1осКМоЕ1ЁЕуЕуепе геаа ЕОпбесопа мгу е ЕОпбесова; 

ргорегЕу ОпМ1паее : ТС1осКМое1 ЕуБуепе хеаа ЕОПМ1пабе мгле РОпм1паее; 

ргорегЕу ОпНоцг: ТС1оскКМ№оЕ1ЁЕуЕхепЕ геа@ РОпНоцхг \му1ее ЕОпНоиг; 


Теперь события имеют новый тип и два параметра. Через второй мы будем пе- 
редавать текущее значение часов, минут или секунд. 

Далее найдем процедуру т1скегСа11 и изменим в ней генерацию события таким 
образом, как это показано в листинге 19.5. | 


ЕН 
= 


ргосефиге Тбгарр1сС1осКк.Т1скехСа11 (бепаег: ТОБЗес*); 

уах | | 
Н,М,5,Нр,Мр,5р: мога; 

Беаап 


1Е сзрез1ап1па 1п СотропепЕ5беаее ЕЪеп ех1{; 


РесоаеСТ1ме( Т1лие, Н, М, 5); 
РесоаесТ1те ( РгеуТ1ие, Нр, Мр, 5р); 


1Е Аз51опеа( ЕОпбесопа) «Веп 
гОпбесопа ($е1Е,. $); 


1Е Азз1отея( РОпМ1пиее) АМО (Мр < М) (Веп 
`РОПМ1пиее (5е1Ё, м); | 


1ЁЕ Азз1опеа( ЕОрНоцуи) АМО (Нр.< Н) ЕТеп 
ЕОпНочцх ($е1Ё, $); 


Ргте\уТ1ие := Те; 
3Е ( МТ бтомбесопЯАтгом) АМО (5р <= $) ЕПеп ех1(; 


ПгамАухго\с ; 


епа; 


Теперь наш компонент генерирует события следующим образом: 
1Е Азз1апеяа( ЕОпбесопа) ЕРеп ЕОпбесопа (5е1Ё, $); 


Сначала мы проверяем, если программа назначила обработчик события 
Азз19птеа(ЕОп5есопа), то он вызывается и ему передаются значения. В качестве 
первого параметра передается указатель на себя — зе1Е, а в качестве второго пере- 
дается значение, в данном случае — количество секунд. 
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Перекомпилируйте пакет, в который вы добавили компонент. Для этого его 
нужно открыть и нажать кнопку Сотрие (см. рис. 19.2). 

Создайте новое приложение и поместите в главное окно наш компонент. ‚ Выде- 
лите его и в объектном инспекторе перейдите на`вкладку Еует$5. Создайте обра- 
ботчик события для любого из событий, и Ое]рШ вам создаст примерно следую- 

щую заготовку: 

ргосеаиге ТРО . Сгар4ссЛоск1ноцт (бепдег: ТОр7есе; Т1пеРахгам: Тпеедег); 

Беа1п 


еп; 


Как видите, здесь два параметра и они именно такие, как и в созданном нами 
типе события. Вот теперь можно сказать, что мы знаем о событиях практически . 
все, что необходимо. 


ПРИМЕЧАНИЕ. На компакт-диске, прилагаемом к книге, в папке \Примеры\Глава 19\ 
Соск вы можете`увидеть пример этого компонента. 


19.6. Когда создавать компоненты 


Но создавать компоненты нужно далеко не всегда. Не забывайте, что многие 
вещи, особенно не визуальные, можно решить в виде классических классов. На- 
пример, для работы с сетью не обязательно создавать компонент, ведь он будет не 
визуальным. Единственное преимущество не визуальных компонентов над про- 
стыми объектами — у вас будет возможность изменять свойства. с помощью объ- 
ектного инспектора. Для изменения свойств объекта придется писать код. | 

С другой стороны, компоненты бессмысленно засоряют внешний вид формы, 
а выносить их в отдельный модуль данных будет неудобно в работе. 

На мой взгляд, лучше использовать невизуальные компоненты, когда может по- 
требоваться наводить связи между компонентами, например, как в случае с базами 
данных, где можно наводить главную и подчиненную таблицы. Если никаких свя- 
зей не будет, то можно обойтись и классом, визуальное управление свойствами тут. 
уж точно излишне. 


Глава 20 


Технология ОЁЕ 


Технология ОГЕ — это лучшее изобретение М1сгозой, с ее точки зрения. По 
мнению многих программистов — это правда, но только на 10 процентов. Техноло- 
гия ОГЕ включает элементы АсИиуеХ, которые чем-то похожи на компоненты 
Реры, но только требуют неоправданных затрат, связанных с регистрацией в сис- 
теме, и вечных мучений с контролем версий. В’этой главе (а в 2/-й и 22-й ждите 
продолжения), мы познакомимся с основами обширной темы и тремя связанными 
технологиями Ое, АспуеХ и СОМ. | 

Некоторые программисты (к таким отношусь и я) не любят элементов АсйуеХ и 
стараются использовать их только в крайнем случае. Но все же иногда приходится 
сталкиваться с ситуацией, когда они необходимы. | 

Единственное преимущество АспуеХ — компоненты, оформленные в таком ви- 
де, в каком они будут работать в программах, написанных с использованием раз- 
личных языков программирования. Если компоненты Рер № можно использовать 
только в Оеры, в крайнем случае в С++ Ви|4ег или Куйх (обе разработки фирмы 
Войапа), то АспуеХ однозначно работают везде, где есть поддержка этой техноло- 
гии. В современных языках уже везде реализована необходимая поддержка. Ваши 
компоненты смогут использовать и в \У1зиа! С++, и в У15ца| Ваз1с и во многих дру- 
гих программах, поддерживающих Аспуех. 

Многие программисты используют такой подход, когда разрабатываются УСТГ-- 
компоненты. После этого, если необходимо, их можно преобразовать в форму 
АспуеХ, причем это делается с помощью Берн за пять минут. 


20. 1. Теория ОГЕ 


Технология ОГЕ (ОесЕ [лик ап ЕтБед91те, внедрение и связь объектов) явля- 
ется стандартом \/т4до\$ и обеспечивает связывание и встраивание объектов на 
основе технологии СОМ (СотропепЕ ОБесг Моде!). С момента выпуска первой 
версии ОГЕ 1.0, технология претерпела большие изменения и старая аббревиатура 
ОГЕ уже не отражает. действительности. Теперь эти три буквы используют только 
_ по привычке. 

СОМ — это спецификация, созданная для описания структуры СОМ-объектов. 
СОМ-объекты могут использоваться в любых языках программирования вне за- 
висимости от того, какая программная среда использовалась при их создании. По- 
мимо компиляторов, с СОМ-объектами могут работать очень многие крупные про-_ 
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граммные пакеты, например, все те же У/огА и Ехсе|, о которых мы. вспоминали 
в данной книге уже не раз. 

Объекты ОГЕ могут запускаться как в отдельном окне, так и внутри окна ваше- 
го приложения (первая версия позволяла запускать объекты только в отдельном 
окне). Таким образом, можно получать доступ к чужим приложениям и использо- 
вать их в своих целях. В гл. 15, когда описывался пример отчетности в Ехсе|, мы 
уже немного познакомились с технологией ОГЕ. Тогда запускалась программа 
Ехсе! с помощью функции сгеакео1е0ю)есе и потом обеспечивался к ней доступ. 
Затем мы выводили отчет в стороннюю программу. | 

Когда ОГЕ-объект запускается внутри вашего окна, то часть меню и панелей 
заменяется на те, что используются в ОГЕ-программе, которая загружается. 

Прежде чем говорить о чем-то дальше, давайте разберем работу с ОГЕ на малень- 
ком примере. Запустите Ре!рЬ! и создайте новый проект. Установите на форму один 
лишь компонент о1еСопеа1пег с вкладки Зуует палитры компонентов. Теперь два- 
жды щелкните левой кнопкой мыши внутри окна компонента (или щелкните правой 
кнопкой и в появившемся меню выберите пункт 5егё ОБес®). В результате проде- 
ланных действий перед вами откроется окно, показанное на рис. 20.1. 


Вставка объекта | з]х: 


`-.]Клип мультимедиа 
| Лист Метозой Ехсе! 
Набор команд М!О| 
Пакет 
- _/ ;|Риечнок Мегозой \Могд 
ВВЕЕ Рисчнок Рам{Ы цв 
а 2] Точечный рисунок | 


© | Создать новый р — 


С Создать из файла 


4 Результат три ниь-а ме ие . ен м ии м 
| -_ Добавление в документ нового. 


| 
СТ “ _ "Рисунок Ра изИ". 


Рис. 20.1. Выбор 
объекта ОЕ 


В этом окне в списке Тип объекта найдите строку — Рисунок Раши Вги$8. Вы- 
делите эту строку. Если поставить флажок на элементе управления В виде значка, 
то на форме вы потом увидите только значок объекта, а по двойному щелчку кла- 
виши мыши будет запускаться выбранное приложение (Раши!ВгизП). Если флажка 
нет, то приложение встраивается прямо в окно. | 

Попробуйте запустить программу и дважды щелкнуть внутри компонента 
ОГЕСопЕа1пех. Компонент будет взят в рамку, и вы сможете рисовать в нем так же, 
как в самом Раш ВгизВ. 

Вот таким нехитрым способом мы встроили стороннее приложение в свою про- 
грамму. Но у него нет ни меню, ни панелей. Для добавления меню, достаточно ус- 
тановить на форму компонент ма1пМепа. В него не надо добавлять никаких пунк- 
тов, достаточно просто установить. Если у формы есть главное меню, то ОГЕ- 
компонент будет автоматически встраиваться в него. Запустите программу и убе- 
дись, что меню появляется. 
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Теперь измените свойство А119п у компонента о1еСопеа1пег1 на а1С11епк, 
‚ чтобы растянуть его по всей форме. Запустите программу и посмотрите на резуль- 
° тат. Теперь ваше приложение превратилось чуть ли не в полноценный Раш Вги$ В 
(рис. 20.2). Единственное, что его отличает, — заголовок окна и иконка Оер. 


Рис. 20.2. Результат работы встроенного ОЁГЕ-объекта 


ПРИМЕЧАНИЕ. На компакт-диске, прилагаемом к книге, в папке \Примерыь\Глава 20\ОЁЕ 
вы можете увидеть пример этой программы. 


_ Теперь поговорим более: подробно о меню. Попробуйте создать в главном меню 
два пункта Файл и Правка. У обоих пунктов можете добавить подпункты. Теперь 
запустите программу и посмотрите на результат. Когда вы пытаетесь активизиро- 
вать ОГЕ-объект, то меню Файл останется ваше, а аналогичное, из программы 
_ РапиВгазВ, исчезает. К тому же у вас получилось два пункта (включая Правка). 
В чем же эффект? Пункты меню, у`которых в свойстве сгоиртпаех стоит четное 
значение (0, 2, 4, ...), — остаются неизменными. Пункты меню, у которых 
Сгоиртпаех нечетное, — заменяются аналогичными из ОГ.Е-объекта. 

‚ Попробуйте поставить у пункта Правка в свойстве сгоиртпаех значение 1 и за- 
пустите программу. Теперь при активизации ОГ.Е-объекта пункт меню Правка бу- 
дет заменен аналогичным из объекта. 


ВНИМАНИЕ. Обязательно учитывайте эффект замены пунктов меню при программи- 
ровании программ, работающих с ОКЕ. 


Написанная программа называется контейнер ОЁГЕ, а программа, которую МЫ 
привязываем, называется объект ОГЕ. 


` 
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При работе с ОГЕ выделяются два способа связи. 


Связывание объекта ОГЕ с контейнером. В этом случае результирующий файл 
сохраняется отдельно и должен быть создан до того, как контейнер обратится 


к нему. Контейнер только ссылается на файл, но не хранит в себе никаких дан- 


ных. Главное преимущество такого способа — на один документ может ссы- 
латься множество контейнеров, и при изменении документа все контейнеры по- 
лучают эти изменения. 

Встраивание объектов. В этом случае созданный документ хранится в контейне- 
ре и другие приложения не могут получить к нему доступ. В этом случае данные _ 
хранятся как часть приложения. 


20.2. ОТЕ-контейнер 


Мы уже написали небольшой пример работы с контейнером ОГЕ (о1есопеа1пег), 


но задействовали только малую часть его возможностей. Сейчас нам предстоит по- 
знакомиться с основными свойствами и методами компонента, а также написать 
более сложный пример, иллюстрирующий его возможности. 


Давайте, как всегда, начнем рассмотрение со свойств компонента о1еСопеа1пек, 


которые могут понадобиться при работе с ОГЕ-объектами. 


п 


О 


О 


ооосооо 


А11омТпр1асе — если это свойство равно кгие, то ОГЕ-объект будет создаваться 
в компоненте, иначе будет запускаться как отдельное приложение. 


АИЕОАСЕ1 асе — определяет способ активизации ОГ.Е-объекта. Здесь возможны 
следующие значения: 


е ааропю1еС11ск — активизация объекта будет происходить по двойному 
щелчку кнопки мыши; 


® аасесгосиз — активизация при получении фокуса; 
® ааМапиа1 — активизация вызовом соответствующей функции; 


® Сорубпбауе — если это свойство равно егие, то при попытке сохранения со3з- 
дается временный файл, который сжимается для экономии места на диске. 

Тсоп1с — если это свойство равно егие, то в окне контейнера будет отображать- 

ся иконка объекта, иначе — сам объект. | | 

.1пкеа — если объект связанный, то здесь ехие. | 

О1еС1аззМаше — здесь хранится имя ОГЕ-объекта. 

01е0Ъ3)есЕе — здесь хранится ссылка на сам ОГЕ-объект. 

о1еоъ3есетпкехгЕасе — здесь хранится ссылка на интерфейс ОГ.Е-объекта. 

МоЯ1 Е1еа — если объект изменен, то это свойство принимает значение егие. 


№емТпзегсеа — если объект заново создан командой меню ег ОБесь, то это 
свойство равно кгие. 

О1ебЕгеашРогмаЕ — если это свойство равно ехиае, то при сохранении будет ис- 
пользоваться старый формат ОГЕ 1.0. Это необходимо, если какое-то про- 
граммное обеспечение не умеет работать с новым форматом. 


$12еМоде — управляет размером объекта. 


ооооо о ооо О ооооо 


О 
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зтАцЕо51хе — размер выбирается автоматически. 

зпсепеег — отображать объект по центру. 

зпСс11р — объект показывается реальным размером (отображается та часть, ко- 
торая поместилась в окно). | 

зпбса1е — объект масштабируется. 

зп5егессв — объект растягивается. 

Теперь посмотрим на основные методы компонента о1еСопеа1пек. 
СрапаеТсоп)1а1о3ч — показать окно смены иконки. 

С1озе — закрыть ОГЕ-объект. 

Сору — копировать объект в буфер обмена. 

Сгеасе1пКТоР11е — создать ссылку на файл ОГЕ-объекта. 

Сгеае0Ъ3есе — создать в контейнере ОГЕ-объект. Тут два параметра — имя 
объекта и булево значение, указывающее на необходимость создания объекта 
в виде иконки. | 
Сгеаке0Ъ3 есЕРкомЕ11е — создать объект из указанного файла. Тут два парамет- 
ра — имя файла и булево значение, указывающее на необходимость создания 
объекта в виде иконки. | 

роУехь — передать объекту ОГЕ запрос на выполнение каких-либо действий. 
ТпзегЕОЮ)есЕ01а1од — Показать окно вставки нового объекта. 

ТоаЯЕхопЕ11е — загрузить объект из файла. В качестве единственного › парамет- 
ра нужно указать имя файла. 

ТоааЕгкгопбЕгеам — загрузить из потока. В качестве единственного параметра 
нужно указать поток. | 

ОЪЗесЕРкорег"1езР1а1од — показать окно свойств объекта. 

Разке — вставить из буфера обмена. 

Разкебрес1а101а1оа — показать специальное окно вставки из буфера обмена. 
Кип — запустить объект. 

ЗауеАзРосимепЕ — сохранить объект в виде ОГ.Е-документа. В качестве единст- 
венного параметра нужно указать имя файла. 

ЗауеТо5Ехеаш — сохранить в поток. В качестве единственного параметра нужно 
указать поток. 

С учетом всего сказанного давайте попробуем, улучшить пример, написанный 


в предыдущем разделе главы. Откройте его, добавьте одну панель ТТоо1Ваг и по- 
местите на нее шесть кнопок: Вставить объект, Свойства объекта, Вставить из 
файла, Открыть объект, Сохранить объект, Закрыть объект. 


Форму получившейся программы вы можете увидеть. на рис. 20.3. Можете соз- 


дать точно такую же форму, а можете ее реализовать по-своему, это зависит от ва- 
ших желаний. 


Для события опс11ск кнопки Ветавить объект напишите следующий код: 
ргосеиге ТРогт1 . ТизегЕВае6опС11ск (бепаег: ТОБуес®); 
Беач1п 
О1еСопЕа1пех1 .ТизегеОБзесЕ01а]1оа; 
епа; 
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ый Пример работы с ОЕЕ 


С АЕЕИЖАЕЫ 


иена 


7:6 вы 


Рис. 20.3. Форма 
будущей программы 


Теперь после нажатия этой кнопки программа будет отображать уже знакомое 
вам окно (см. рис. 20.1), с помощью которого можно будет поменять данный ОГЕ- 
объект на другой. 

Для события опс11ск второй кнопки (Свойства объекта) напишем код: 

ргосеацге ТЕРоги1. ргорегстевВиееопс11ск (Зепаег: ТОБ)ес®); 

Беач1п 

ОТеСопеа1пех1 .ОБЗескРгорег Зе Гла1оа; 

епа; | 

Этим кодом мы будем отображать окно свойств объекта. Пример такого окна вы 
‚ можете увидеть на рис. 20.4. В принципе, тут не так уж и много параметров, кото- 
рые вы можете изменить. На вкладке Просмотр можно изменить только масштаб 
(если объект поддерживает масштабирование) или изменить значок. 

Следующей идет кнопка Вставить из файла. Для события 0пс11ск этой кнопки 
напишем код: 

ргоседиге ТЕоги1 .ТпзегЕЕгонЕ11еТоо1ВиеопС11сК (5еп4ег: ТОБзесЕ); 

Беа1п 

1Е ОрепО1а1о91.Ехесиее ЕВеп 
О1еСопба1пех1 .СгеаеО5зесЕЕкомЕ11е (Орепр1а10491.Е11еМаше, Ёа1зе); 
епа; | | 
Вот здесь добавлено окно открытия файла орепр1а1оч. В первой строке мы по- 
казываем это окно, и если пользователь выбрал файл, то во второй строке создаем 
объект на основе выбранного файла. Попробуйте запустить приложение и открыть 
файлы типа ВМР, РОС или ХТ. Как только вы нажмете кнопку Открыть, так 
сразу перед вами появится ОГ.Е-объект, соответствующий выбранному файлу. Если 
вы выберете файл типа РОС, то запустится У/ог4. | | 
Для события 0пс11ск кнопки Сохранить напишите следующее: 
ргоседиге ТЕРогт1 .ОрепВие6опСс11ск (бепаехг: ТОБдес®); 
Беа1п 
О1еСопка1пег1 .ГоаЯЕхомЕ11е ('о01е.ЯЧае'); 


ета; 
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Точечный рисунок РгорегИе$ 


ие ] п росмотр |. 


Точечный рисунок = _ 


Тип: < `. Точечный рисунок | | _ 
Размер: 385 КБ (100 864 байт) 


Папка; . ОеСотатег! о 


Приваенить |. 


Рис. 20.4. Окно свойств 


Здесь мы открываем объект из указанного файла. В качестве имени файла ис- 
пользуется ое.4ае. Вы же можете добавить на форму компонент орепр1а1оа, чтобы 
пользователь сам мог выбирать имя файла, который надо открывать. 

Для события опс11ск кнопки Сохранить файл напишем код: 

ргосеаиге ТЕотти1 .бауеВаЕкопС11ск (5епаег: ТОБ]есе); 

Бед1п | | , 

О1еСопеа1пек1 .бауеТоР11е(‘о1е.дае'); 


епЯ; 


Здесь сохраняется объект в тот же файл — ое.Чаг. Опять можно дать возможность 
пользователю выбирать имя файла с. помощью компонента Орепр1а10ч3.. 


‹ ВНИМАНИЕ. Файл, созданный ОГЕ-объектом, не совместим с форматом самой про- 
граммы объекта. Это значит, что ое.да! — это не ВМР-картинка, хотя и ВМР — родной 
формат для программы РамВгизП. Таким образом, вы не сможете открыть файл 
ое.Да с помощью приложения Раш Вгизп. 


Для события опс11ск кнопки Закрыть запишем следующее: 
ргосеиге ТЕогт1 .С1озеВа*опСс11ск (5бепаег: ТОБзес®); 
Беа1п 
О1еСопфа1пех1.С1о5е; 
епа; | 
Здесь мы закрываем запущенный ОГЕ-объект. Если пользователь дважды щелк- 


нул по контейнеру, то ОГЕ-объект запускается и закрыть его можно с помощью 
этой кнопки. 


ПРИМЕЧАНИЕ. На компакт-диске, прилагаемом к книге, в папке \Примерь\Глава 20\ОЁЕ1 
вы можете увидеть пример этой программы. _ 
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20.3. Создание собственного окна 
вставки ОЁЕ-объекта 


Использование стандартного окна — это хорошо, но можно создать и свое ок- 
но. Тем более что это не так уж и сложно, заодно и вспомним, как работать с рее- 
стром. 


ВНИМАНИЕ. Если вы пока не думаете создавать собственные окна, прочтение этой 
части является обязательным, потому что здесь будут показаны некоторые приемы 
работы с реестром, о которых ранее не рассказывалось. 


Откроем предыдущий пример и создадим в нем новую форму. На ней обяза- 
тельно должен присутствовать компонент тЬ1зЕВох с именем‘ отитеемз11$ЕВох 
и две кнопки (Да и Отмена). Эту форму вы можете увидеть на рис. 20.5. 

В разделе роь11с объекта формы 
нужно объявить одну переменную 
Ргодганз Тр, имеющую тип т5Ех1падз: 

рур11с 


Выбор ОЕЕ объекта 


^^: КАИ ИАА и 


{ РаБЬ11с аес1агхае1опз } 
РхоагамзТО: Т5Ехг1па5; 

Почему мы объявляем именно в 
разделе риЪ11с? В этом параметре бу- 
дет храниться список найденных иден- 
тификаторов, по которым мы потом 
будем создавать ОГ.Е-объект. К пере- 
менной рРходхгатзтр придется обра- 
щаться из основной формы, поэтому Рис. 20.5. Форма окна загрузки ОЕЕ-объектов 
переменная должна быть доступна и 
находиться в разделе раь1 1с. 

Ее нужно проинициализировать по событию опсгеаке формы: 

ргосеаиге ТТизе’ЕОГЕРоги. ЕогиСгеаее (бепаег: ТОБдес®); 


Бед1п 
РгодхашзТО: =Т$6х119115$е.Скеаее; 
епа; 


Уничтожаться переменная будет по событию опрезегоу: 
ргоседоге ТТпзе’сОГЕЕога.РогиОезегоу (бепаег: ТОБес®); 
Беда 

Ргодгатз$Тр.Егее; 
епа; 


Теперь создаем обработчик события оп5вом, где будет происходить загрузка из 


реестра списка доступных в системе ОГЕ-объектов. Здесь должен быть код, пред- 
ставленный в листинге 20.1. 
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ргоседиге ТТазегЕОБЕГогт. РогтабПом (бепаег: ТОБ]есе); 
\уах | 

1: Тпбедег; 

СЬ$ТО: $6 г1па; 

Кеуз:Т5Ехг1па$; 

гед : ТКед1$еху; 
Беа1п | 

Кеуз : =Т56г11п91.15$6.Сгеаее; 

Ргодгаи$Тр.С1еаг; 


ОБЕТсем$Т1$ЕВох.Теетс .С1еаг; 


‚ гед: =ТВКеа1$ету.Сгеаее; 

гед .БооеКеу: =НКЕУ_СТАЗЗЕЗ_КООТ; 
геач.ОрепКеу('\', Ёа1зе); 

гед .СесКеуМащез (Кеуз); 


Еох 1:=0 со Кеу$.СоипЕ-1 Яо 
Беч1п 
хед.С1озеКеу; 
хед.ОрепКеу (Кеуз.5Ех1паз[1], Еа1зе); 
1Ё поЕ геа.КеуЕх15{$ ('Тпзегбаб1е') ЕПеп сопЕ1пае; 
ОГЕТЕетз!Т1 зЕВох. Тез .АЯА(кеа.ВеаЯ$ех1па(''}); 
гед .ОрепКеу ('СЬЗТО', Еа1зе); 
СТ5ТО:=гед.ВваЯ$ет1та(''); 
гедч.С1озекКеу; 
1Е гед.Орепкеу ( 'СЬЗТР\ '+СЬ5ТЬ, Еа1зе) Евеп 
Бед1п | 
1Е геа.ОрепКеу('РходТ@а', Еа1зе) ЕТеп 
Ргодганзтр.АЧа(геа.ВеаЯ5ех1та('')}) 
е1 зе 
РгодгатзТр.Ааа (' [Нет идентификатора программы] ') 
епа; | 
епа; 
Кеуз.Егее; 


ета; 


В первой строке инициализируется переменная кеуз, которая имеет тип 
ТбЕк1паз. Это список строк, в котором будут храниться все ключи раздела реестра 
с описанием ОГ.Е-объектов. | 

Во второй строке очищаем список переменной рходгашзтр, потому что там мо- 
жет что-то остаться после предыдущего вызова окна. | | 
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В следующей строке очищаем компонент тг: зе Вох. 

Все, приготовления окончены. Теперь нужно проинициализировать переменную 
геа, Т.е. открыть реестр. Как вы помните, реестр открывается на разделе. 
НКЕУ_СОВВЕМТ. ОЗЕК, а информация об установленных ОГЕ-объектах находится 
в разделе нкЕУ_СЪАЗ5Е$З_КкООТ. Именно поэтому мы тут же меняем имя раздела, что- 
бы перейти в нужный. 

В следующей строке открываем подраздел — \. В качестве второго параметра 
метода открытия раздела (Орепкеу) стоит значение Еа1зе, что говорит о том, что 
если нужный раздел не существует, то его не надо создавать. В принципе, такой 
ситуации не может быть, потому что даже в минимальной установке \М1до\$ этот 
раздел существовать будет. Вследствие этого второй параметр не очень важен. 

В следующей строке получаем список подразделов (с помощью метода 
сескеуМамез) текущего раздела.` Результат будет записан в переменную кеуз. Те- 
перь можно запускать цикл и проверять все найденные ключи на соответствие под- 

ключаемым ОГ.Е-объектам. 

Внутри цикла сначала закрываем текущий раздел и после этого открываем оче- 
редной раздел из списка кеуз. В открытом разделе проверяем наличие ключа 
ТпзехкаЪ1е. Если его нет, то вызывается сопе1тме, чтобы прервать цикл и перейти 

‘на следующий элемент. Если такой ключ есть, то читаем тип текущего ОГЕ- 
объекта и добавляем его в список 1,1зЕВох: 

ОГЕТЕемз1,136 Вох. Т6емз . Ааа (гезч.Веаа$ г1та('')); 


Далее необходимо прочитать идентификатор объекта, по которому мы потом 
будем создавать выбранный объект. Для этого открываем раздел стстр, в котором 
хранится уникальный номер объекта, и читаем этот номер. 

После прочтения стзтр закрываем текущий ключ и открываем раздел с именем 
ключа. Если он открыт, то происходит попытка чтения идентификатора. Если он 
прочитан, то добавляем идентификатор в список Рходкашзтр, иначе добавляем 
строку — "Нет идентификатора программы". В принципе, при нормальном раскла- 
де все должно быть хорошо. Единственная ситуация, когда‘идентификатор не бу- 
дет найден, — это в случае, если ОГ.Е-объект установлен или удален в системе не- 
правильно. 

После перебора всех строк списка мы уничтожаем переменную кеуз. 

Теперь переходим к основному окну и здесь для события опс11ск кнопки Вста- 
вить объект напишем следующий код: 

ргосеаиге ТРоги1 .ТизекЕВиееойС11сК (5епаек: ТОБ)есЕ); 

Беч1п 

Тизе’хЕОГЕРог. бпомМода1 ; 
1Е ТозегсОГЕЕОги.МоЯда]Веза1еЕ=птОК &феп 
О1еСопЕа1пег1 .СгеавеоБес® (ТпзегЕОБЕРоги. Реодгамз ТО. 5Ек1п9$ [ 
ТизехОЦЕРогта . ОБЕТЕет$115ЕВох.ТеешТиаех], Ёа1зе); 
епа; | 
В первой строке мы показываем созданное окно. Если пользователь нажал 


кнопку ОК (свойство Мода1Вези1Е равно пгок), то надо выполнить следующую 
строку, в которой создается ОГ.Е-объект с помощью вызова метода СсгеакеОЪЗесь . 


Технология ОЁЕ | 559 


контейнера. В качестве параметра мы указываем идентификатор из списка 
Ргодгатзтр, выделенный в списке строки. 

ТпзегЕОГЕРОГи. ОБЕТЕемв 11 зЕВох. Теештпаех —щ указывает на выделенную стро- 
ку в списке. | 


ТпзегеОГЕРогт. РгодгатзТО. 5ех1па5 [строка] —Щ здесь хранится идентификатор. 


В принципе, программа примера готова. Первый ее недостаток — нет проверки 
на ошибки. - Возможны ситуации, когда в системе есть объекты с испорченными 
записями (неправильная установка или удаление записей), в этом случае программа 
может зависнуть. Самый простой способ устранения этого недостатка — поставить 
вызов ФУНКЦИИ СгеакеОЪ3есЕ в блоке еку...ехсере...епа для исключения подоб- 
ных ошибок. 

Второе — у нас нет проверки на выделение элемента. Возможно, что пользо- 
ватель увидит окно и нажмет ОК, но при этом ни одна строка списка не будет 
выделена. В этом случае перед загрузкой желательно проверять 
ТпзегОГЕРогм. ОБЕТеет$115®Вох. Теем!Тпаех на правильное значение. Если свойст- 
ВО тЕештпаех больше или равно нулю, то одна из строк выделена, если равно —1, то 
выделенных строк в списке нет, а пользователь нажал ОК. 


ПРИМЕЧАНИЕ. На компакт-диске, прилагаемом к книге, в папке \Примеры \Глава 20\ 
пзеи!а!09 вы можете увидеть пример этой программы. 


Глава 21 


Компоненты АсНнуех 


В свое время вокруг компонентов АсНнуеХ было очень много разговоров, и эту 
технологию позиционировали в качестве конкурента Гауа-апплетам в Интернете 
и ]ЛауаВеап$ в офисных приложениях. Но, как показало время, все затраты оказа- 
лись бессмысленными и технология провалилась. Вместо этого Мстозой перебро- 
сила свои силы на более качественный и перспективный проект — „МЕТ. Новая 
технология .МЕТ является продолжением СОМ и СОМ+ (улучшенной версии), по- 
этому для ее понимания необходимо знать историю. Но, несмотря на это, АспуеХ- 
компоненты нельзя сбрасывать со счетов, они будут жить еще долго. 

Компоненты АсйуеХ построены с использованием технологии СОМ, и может 
показаться, что сначала нужно изучить именно СОМ. Я же решил пойти в обрат-_ 
ном порядке и показать вам преимущества АсйуеХ, показать, как их можно ис-. 
пользовать на практике, а уже в следующей главе мы опустимся на уровень ниже 
и увидим, на чем основаны данные компоненты и как они работают. 


21.1. Использование тегпе! Ехр/огег 


Теперь разберемся с элементами управления АснуеХ. Единственный компонент, 
который многие программисты используют регулярно, — Пмегпе Ехр|огег, а все 
остальные компоненты ‘опытные программисты стараются обходить стороной. Да, 
встроенный в ОС браузер — это компонент АсйуеХ, хотя вы и видите его в виде 
программы. Именно потому, что этот компонент встроен в \/т4о\и$ и присутствует 
на всех машинах, его используют достаточно часто. 

Запустите Ре]рш. Перейдите на вкладку П\егпе палитры компонентов. Здесь 
должен быть компонент.иеьВгомзех (он должен быть последний). Если у вас вер- 
сия Реары меньше, чем пятая, то этого компонента может и не быть. Он может от- 
сутствовать, и если вы отказались устанавливать компоненты Интернета (по умол- 
чанию они ставятся). 

Если компонента иеьВгомзег нет, то его надо установить для дальнейшей рабо- 
ты. Выберите пункт меню ПпрогЕ АсНуеХ Сопёго] из меню Сотропепё. Перед ва- 
ми должно открыться окно, показанное на рис. 21.1. 

В списке выбора этого окна (сверху) найдите строку М1сгозой Пиегпе! Сопег`о$ 
(Уегзоп 1.1). Версия может отличаться, потому что это зависит от версии браузера, 
установленного на вашем компьютере. Теперь нажмите кнопку ш$а|Н. Можно. 
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было бы‘ нажать кнопку Стезе 
Опй, чтобы создать модуль с опи- 
санием АсиуеХ, но это излишне, 
потому что по нажатии кнопки 
тп$@а| этот модуль создается авто- 
матически. 


Пр еек 005  Мегзоп 2.0) 


Глава 21 


прое Аснуех 5 
‚продан | Го —_ Г За 


тии еньз ночь: чтелатя оеньии о Патти оливин алина етики енния звеньев оне я еенннь 


| МстозоН Опес\\гитацоп Мефа Сопнов (Мегзюп 1.0] 
. | МетозоК Нехбид Сопно! 6.0 ($Р3) Мегзюп 1.0} 1 
Мстозой Рогтз 2.0 ОЫес{ Магу (Мегзюоп 2.0] 


бора пакета, как показано на = Менозой ете але и т Е . 
-|’. Ветоуе 11.2 

Окно выбора пакета очень по- |] _ Вооое | | 
хоже на то, которое мы видели при 
установке компонентов УСГ. Точ- 


р. 
|: С 
нее сказать, это то же самое окно. в пр о .” и 
| Равно раде: , р "| |]. 
Только здесь чаще всего вы не вы- |. | 
у | 
| 
в 


| 
| 
| 
Перед вами откроется окно вы- | м 


— 5 ‘ИМО Об\буметаендосна а 


| 
и. д 
Г с 233 патез:. ‚| Т\/еБВтомизег 1 
| - Т\ебВгомег 


т фт папе: Е орвтЕ пелВовтОвАТ трое - | 


ео нрак | УОЕЕНИЬ, ОЕ СРВ и СУБЕСЕНИАя про | 


бираете имя файла (он будет соз- 

дан из компонента АсиуеХ), ино- 

гда имя не заполняется. Самое _ 
главное — выбрать пакет, в кото- 

рый будет происходить установка. 

На вкладке шо пе\м расКаге вы 

можете создать новый пакет точно 

так же, как и при создании пакетов 

для УСГ-компонентов. Пакеты одни и те же, ‘разницы никакой, поэтому в каждом 
из них могут быть как компоненты УСГ,, так и Аспуех. 


Рис. 21.1. Окно установки компонента АсНуеХ 


‚боба равка | 


| ве вата: -| 


й реб "Ве т 


Рис. 21.2. Окно выбора пакета 


Выберите пакет и нажмите ОК. После этого появится запрос на его компиля- 
цию. Веры откомпилирует необходимые файлы и установит компонент для рабо- 
ты с браузером. 

Следующим появится окно, которое сообщит об успешной установке нового 
компонента. Нажмите ОК и закройте все, что открыл Оерш. Для этого выберите 
С 0о5е АЙ из меню Е Пе. Теперь у вас есть компонент меьвхгомзехк, только он распо- 
ложен на странице АсйуеХ палитры компонентов. | 

Мы будем использовать М1сгозой Пиете! Сопёо|з, т. е. движок установленного 
на вашем компьютере [Е (Пиете! Ехр]огег). Это значит, что ваш браузер будет под- 
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вержен всем нарушениям в работе, что и соответствующий ему движок. Единст- 
венное, что может вас здесь успокоить — это то, что интерфейс не будет сложным. 
Он будет таким, каким вы захотите, потому что сделан вашими руками. 

Теперь перейдем к программированию. Создайте новый проект и сразу измени- 
те заголовок и иконку. Установите на форму наш компонент иеъвгомзег (он нахо- 
дится на вкладке Пщегпеё или АсбуеХ палитры компонентов). В результате у вас 
появится белый квадрат с именем иеьвгомзег1. После этого установите на форму 
Соо1Вахг, который находится на вкладке УУ!т32 палитры компонентов. Эта панель 
должна выровняться по верхнему краю формы. Выделите меъвхомзег1 и перейдите 
в объектный инспектор. Щелкните по свойству АЙ? и в ниспадающем списке вы- 
берите а1с11епе. Компонент иеьвгомзехг должен растянуться на все свободное ме- 
сто формы. 

Теперь установите на Соо1Вах1 (его недавно установили на форму) панель 
Тоо1Ваг из вкладки У! 32 и сопьовох из вкладки З4апдага палитры компонентов. 
Все это вы должны установить именно на Соо1Ваг1, иначе будет получен некраси- 
вый набор компонентов. После этого нужно выделить соо1Ваг1 и перейти в объ- 
ектный инспектор. Здесь нужно изменить строку Ашю57е на егие (по умолчанию 
Она Еа1зе). | 

Выделите сошьоВох1 (ниспадающий список) и создайте обработчик события 
опКеуро\мт. Как и раньше, Веры создаст процедуру обработчика. Она будет вызы- 
ваться каждый раз, когда вы будете вводить какую-нибудь букву в Сопьовох. 
В этом обработчике события напишите следующий код: 

ргосебаге ТЕРоги1 .СопфоВох1Кеу от (бепег: ТОБзесеЕ; хахг Кеу: Мога; 

5$р1ЕЕ: Т5р1ЕЕбсаее); | 

Бед1п 

1Е Кеу= УК_ВЕТОВМ &Веп 
МерВгомзет1 .Ма\у1даЕе (СопфоВох1 .Техё); 
епа; | 


Здесь мы проверяем, если переменная кеу равна \УК_ВЕТУКМ (Т. е. если нажата кла- 
виша <Ещег>), то выполняется действие — иебвхгомзег1 .Мау1даее (СомБоВох1 .Техе). 
По существу, происходит вызов метода мау1чаее нашего браузера и в качестве па- 
раметра указывается текст компонента сопьовох. Метод Мау: чаеё заставляет брау- 
зер открыть указанную страничку. 

Если вы устанавливали компонент иеъвгомзехг как АсиуеХ и он не стоял у вас 
изначально, то возможно, что при компиляции ОерыЫ сделает ссылку на недоста- 
точность параметров. Он может запросить три или более дополнительных парамет- 
ра типа о1еуаг1апе. В этом случае объявите три переменные такого типа: 

ргоседиге ТЁогт1 .СопфоВох1Кеуро\мт (5еп4ехг: ТОБзесе; уаг Кеу: Мога; - 

уах | | | 

р1,р2,р3:О01еУаг1апе; 
Бед1п 

1Е Кеу= УК_ВЕТОВКМ (реп 
мМерВгомзехг1 .Ма\у1<чаее (СопфроВох1.Техе, р1; р2, р3); 
епа; 
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Можно объявить одну переменную и подставить ее в метод Мау1даее три раза. 

Нажмите клавишу <[9>, и ваша программа должна начать работу. Введите ка- 
кой-нибудь адрес в строку Сопъовох и нажмите <Ещег>. Если вы правильно ввели 
адрес, то в МеЪВгомзех1 через несколько минут должен появиться указанный сайт. 

Давайте доработаем этот при- 
мер. Щелкните по тТоо1Ваг1 и 
снова переходите в объектный 
инспектор. Здесь нужно изменить 
свойства Ашю$12е, ЗВо\уСарНоп 
и Наё на егое (все они по.умол- 
`чанию равны Еа1зе). Теперь 
щелкните правой кнопкой мыши 
ПО Тоо1Ваг1 и из появившегося 
меню выберите пункт №еу ВиИоп. 
На компоненте тоо1Вах1 должна 
появиться новая кнопка с именем 
Тоо1ВиЕЕоп1. Выделите ее и в объ- 
ектном инспекторе поменяйте 
СВОЙСТВО СарЕ1оп на Открыть. 
Создайте еще насколько кнопок 
с заголовками: Назад, Вперед, 
Стоять, Обновить и Печать. Полученная в результате этих действий форма п пока- 
зана на рис. 21.3 (в ней еще добавлены картинки к кнопкам). 

Теперь установите на форму орепр1а1од из вкладки 0а1025$ палитры компонен- 
тов. Дважды щелкните по кнопке Открыть, и ОерЫ! автоматически создаст про- 
цедуру, которая будет вызываться при нажатии этой кнопки. В этой процедуре 
нужно написать следующий код: 

ргоседиге ТЕоги1.Тоо1ВиЕ$оп1С11сК (5$еп4ехг: ТОБЗесе); 

Беа1п 

1ЁЕ ОрепО1а1о91.Ехесиаее КВеп 

Бед1п | 
МеьвВгомзех1 .Мау1аасе (Орепр1а1о041.Е11еМаше); 
СопоВох1 .Техе : =ОрепО1а1о091.Е11еМашще; 

епа; 


| Л.М Мой! первый М ЕВ браузер 


Рис. 21.3. Форма будущей программы 


еп; 


Здесь мы заставляем наш браузер загрузить открытый файл и в строке сопъовох 
отображаем его имя, чтобы пользователь знал, какая страница сейчас загружена. 

Теперь вы можете запустить программу и открыть с помощью этой кнопки лю- 
бой файл на диске. 

Теперь заставим работать остальные кнопки. Дважды щелкните по кнопке 
Назад. Какой будет результат, вы уже догадались. В созданной заготовке процеду- 
ры напишите код: 

МерВхгомзег]1 .СоВаск; 


Структура процедуры прозрачна. Мы просто заставляем иеьВгомзег1 перехо- 
дить на предыдущую страницу. Повторите те же действия для кнопки Вперед, 
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чтобы создать процедуру обработчика опс11ск. Напишите для нее следую- 
ЩИЙ КОД: | | | | 


МеьВуомзет1 .СоРог\мата; 


Для кнопки Стоять напишите код: 
МеьвВгомзег1 :56ор; 


Для кнопки Обновить: 


МебВгомзеху1 .ВеЁхезп; 


Что делают используемые здесь методы, понятно уже из названия, даже при ми- 
нимальных познаниях английского МОЖНО ПОНЯТЬ СМЫСЛ. 

И, наконец, для кнопки Печать: | 
уах 

Роз Баба, Неааегз : О.ШЕуах1апе; 
Беа1п 

ИеьвВхгомзетг1 . ЕхесиВ (ОБЕСМОТО_РЕТМТ, ОБЕСМОЕХЕСОРТ ПГОРЕЕАПТТ , 

РозЕБаба, Неааетз); 

епа; 


Здесь только одна строка кода. В этой строке посылается команда через ОГЕ 
ядру ГЕ. Просто скопируйте ее один к одному в исходный код. Это особенности 
браузера, в которые вникать просто нет смысла, все равно такое вы, наверное, ни- 
где больше не увидите. 

Осталось сделать‘ последние штрихи. Для начала установите на форму компо- 
нент зкакизВах с вкладки \/!132 и измените у него свойство $1пр1еРапе1 в егие 
‘(по умолчанию {а1зе), чтобы для отображения текста: в строке состояния исполь- 
зовать простую панель. Теперь выделите меьвхгомзех1 и создайте обработчик собы- 
ТИЯ ОпбсабизТехеЕСпапсе, В котором нужно написать одну строку: 

ргосеаиге ТЁЕогт1 .МербВгомзег15каса$ТехеСВапае (бепаеу: ТОБЗесе; 

сопзЕ Техе: М1АаебЕг1та); 
Бед1п 

Ссаси$Ват1 .$1тр1еТехе : =Техе; 
епа; 


Здесь мы присваиваем переменную техе (в ней хранится текст подсказки), которую 
получили в качестве параметра обработчика в 5+акизВаг1. Теперь вы сможете видеть 
подсказки и информационные сообщения о состоянии браузера в строке состояния. 

Давайте добавим еще индикатор загрузки. Для этого установите на форму ком- 
понент ргодгеззВах с вкладки \Ут32. Измените у него свойство АЙгп на а1ВоЕкоп, 
чтобы он находился вдоль нижней границы формы. Снова выделите меъВгомзех1 
и щелкните по вкладке Еуеп5 в объектном инспекторе. Создайте обработчик со- 
бытия ОпРгодгеззСвапае и напишите в созданной процедуре следующий код: 

ргоседиге ТГог1 .МерВгомзех1РгодгезСрападе (бепаехг: ТОБЗесе; Ргодгезз, 

РгоагезМах: Тпбедег); 
Бед1п 
Рходгез$Ват1 .Мах:=Ргоачгез$Мах; 
Рходгез$Вау1 .Ро$1Е1оп:=Ргоатге$$;. 
епа; 
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Здесь созданному компоненту рРгодгеззВах1 (индикатор загрузки) присваивают- 
ся максимальное значение (Ргодгез$Мах) и текущее значение (Ргодхезз), которые 
получены в качестве параметров. 

Можете пользоваться полноценным раузером в свое удовольствие. Конечно 
же, это не все возможности, которые можно получить, используя компонент 
\еЪВгомзех1. Сюда еще очень многое можно добавить — главное, чтобы хватило 
воображения и умений. 

Вот так вот удобно и просто использовать компоненты АсйуеХ, уже установ- 
ленные в системе. Работа с ними очень похожа на работу с компонентами Оеры, 
только АсиуеХ — это отдельные файлы, которые не компилируются в исполняе- 
мый код программы. Эти файлы нужно копировать на компьютер пользователя 
и регистрировать каждый в отдельности. 

Чтобы проще было регистрировать компоненты АсйуеХ, можно использовать 
системную утилиту гез$уг32.ехе, которую можно найти в папке эу$ет32. Для это- 
го достаточно выполнить утилиту ге2$уг32 в командной строке, а в качестве пара- 
метра указать файл с АсиуеХ-компонентом. Если указан корректный файл, то вы 
должны будете увидеть сообщение об удачной установке компонента. 


ПРИМЕЧАНИЕ. На компакт-диске, прилагаемом к книге, в папке \Примеры\Глава 21\ 
\М/ебВгомузег вы можете увидеть пример этой программы. 


21.2. Пример создания АсН\уеХ-форм 


Первое, с чем мы познакомимся, — это Асйуе Еогт. Это форма, на которой мо-. 
гут располагаться различные компоненты и элементы управления. Такая форма 
может быть встроена в любую другую программу, поддерживающую СОМ- 
технологию, или даже опубликована в сети Интернет. Все это мы рассмотрим на 
практике в этом разделе главы. | | 

Формы Асйуе Копп — это файлы 
с расширением осх, представляющие 


собой самый настоящий СОМ-объект. 


дот а аллалоллавАлАли, Кали а ладит па пакт зелий од лата ла плели помола ла лелал. —.. 


Большинство элементов управления 4 
получают расширение осх, чтобы ' от- т "МОиН НИИ 1 
‘личать эти файлы среди массы других. | к Мате: ИИА - 

Для начала создадим новый про- | ппретоавол иж ГАоуеготто р 
ект. Для этого выберите пункт меню | ‘равумае „Ровере о Зы | 
ЕПе | № ем | Оег и в появившемся —| еовиомовы ИИ 


окне перейдите на вкладку АсйуеХ. |-—--——— —_—_ Ым———_——^ 
3 6 А { Е Г Аамех Соне! Орбопз — = еее о | 
десь вы срите пункт снуе ог и Г. Мака Соло! дсепзед г спаме бро Вок. 
нажмите кнопку ОК. Перед вами Г пасе Мегзюл Мотавоп —. о -. о. о. 
должно открыться окно, показанное но мк ИЕН 
на рис. 21.4. В нем вы должны ука- | о о | а Ро 
зать следующие поля: —— —— 
С] №>м Ас@уеХ Мате — имя вашей Рис. 21.4. Свойства нового АсйуеХ 
АспуеХ-формы; 


Компоненты АсйуеХ | 567 


СОВЕТ. Постарайтесь дать здесь разумное имя, потому что оно будет потом исполь- 
зоваться для отображения в системе. Не очень приятно будет смотреть на компонент ` 
с именем АсйуеРогтх. 


О Пиаретешабоп Оп — имя исполнительного модуля; 


О Ргодесё Мате — имя проекта (постарайтесь дать разумное имя, потому что так 
будет называться файл); 


О ТЬгеадше Моде! — потоковая модель, для нас достаточно здесь значения по 
‘умолчанию; 


О Маке Сопего! ГТдсепзе4 — создать лицензию для компонента; 
О шаоде Уегяоп П\огтайоп — включить в компонент информацию о версии; 
О шазаде АБоиЕ Вох — включить окно О программе. 


Давайте поменяем только имя компонента (51пр1едсезуех) и проекта 
($1пр1еАсЕ1уерго31). Состояние кнопок выбора (снескВох) оставим без изменений, 
потому что не хочется иметь контроля версии или окна О программе. Нажмите кнопку 
ОК, и перед вами появится привычная визуальная форма, на которой можно распола- 
гать собственные компоненты. Смело располагайте на ней компоненты УСТ, и работай- 
те, как с привычным проектом. Поставим.на форму только компонент теа: ‹. . 

Визуальная часть пусть останется за вами, потому что она не должна вызывать 
особых проблем. Давайте лучше рассмотрим, из чего состоит наш проект. Открой- 
те менеджер проектов и посмотрите на его содержимое. Здесь в дереве находится 
наш проект с именем эппр!еАспнуеРго] 1.осх, который состоит из двух файлов: 


_О УтредсНнуеЦтрИ — файл, в котором хранится наша форма. 
О $итр!еАснуеРго] 1.раз — файл с описанием возможностей нашего проекта. 


СОВЕТ. Желательно не изменять эти файлы без особой на то надобности. Здесь 
очень много достаточно сложных алгоритмических конструкций, поэтому лучше оста- 
вить их создание на совести Оерн. 


После того как вы установили все компоненты, откомпилируйте проект, нажав 
сочетание клавиш <Си]>+<Р9>. Откомпилированный ОСХ-файл готов. Теперь на- 
до зарегистрировать его в системе, чтобы можно было его протестировать. Мы уже 
знаем, что при вызове СОМ-объектов вся информация о них находится в реестре 
и все необходимое попадает туда при регистрации. В связи с этим выберите 
ге?15$ ег АсйуеХ Зегуег из меню Вип. Для регистрации можно так же выполнить 
в командной строке следующую команду: | 

Ведзуг32.ехе ИмяФайла 


Теперь можно переходить к тестированию. В качестве тестирования создадим 
НТМЕ-странцу и попробуем загрузить форму с помощью ГЕ. Для этого выберите 
пункт УУеЬ РерюутепЕ ОрНоп из меню Рго]есё, и перед вами откроется окно пуб- 

‚ ликации компонента в сети Интернет, как это показано на рис. 21.5. 

Рассмотрим каждый параметр в отдельности: 


О Тагреё О — папка, в которую попадет скомпилированный файл осх; 


С Тагре ОВГ — адрес в Интернете, откуда будет загружен осх (когда пользова- 
тель будет загружать страничку, то компонент будет считываться именно с это- 
го адреса); 


19 Зак. 1273 
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“еб рероутеги ОрНоп$ РЗ 


1 "рева ] Раскаде: | Адана Не | м. 


| |7Оуесоцез ап4 ЦА — и ——- -—— О . | 
|. Табе Чи (Рий ра ое. дероуед 0%) _ Е 


| Таое УВЕ Миа рай ое дерюуед 09 0..1 
Е! 


Не НТМЕ 4 (Рав ое дерюуед НТмЕ ве} 


С г зе САВ ес сопуиезоп | 
| 9. 1пофиде бе уегзоп питег 


СЕ г Аао ‘пстетеи! чебазе питбе р о И 


кин а них ео ры ИИ о ены еды . : 


Рис. 21.5. Окно 
.] публикации компонента 
] вИнтернете 


О НТМЕ Ош — папка, в которую попадет шаблон НТМГ- файла, который потом 
можно использовать для публикации; 


О 0$е САВ сотрге$$юп — упаковать осх-файл в САВ-архив (необходимо указы- 
вать, только если объект создавался именно для публикации в сети, т. е. компо- 
нент сжимается, за счет чего увеличивается скорость его загрузки по сети); 


О Ацю шсгетепЕ геазе питфег — автоматически увеличивать номер релиза. 


Заполните поля и нажмите кнопку ОК. Заполнение полей Тагреё Пг, Тагре 
ОВЕ и НТМЕ Ох является обязательным. Я советую вам выбирать Таггеё О _ 
и НТМЕ Ош отличными от папки, в которой находится ваш проект. Эти папки 
нужно указать реальные, а вот адрес в Интернете можно указывать любой. Если 
компонент уже зарегистрирован в системе, то этот адрес не понадобится: Браузер 
будет обращаться к этому адресу только в том случае, если в системе неё найден 
указанный компонент. В нашем случае мы уже произвели регистрацию в системе 
и можем использовать компонент по своему усмотрению. 

Теперь выберите пункт меню У\еь Перу, и Ое!рЁ! создаст необходимый ДЛЯ 
тестирования НТМГ-файл. Запустите этот файл, и вы увидите окно, показанное на 
рис. 21.6. Как видите, достаточно просто создать маленькое приложение; которое 
сможет работать в сети Интернет прямо внутри браузера 1Е. Только учтите, что 
если вы собираетесь публиковать свои файлы в Интернете, то не каждый пользова- 
тель сможет воспользоваться услугами программы. В защите АсйуеХ очень много 
дыр, поэтому эти компоненты, по умолчанию, не могут загружаться из сети на 
компьютеры пользователей. Чтобы пользователь смог увидеть вашу программу, он 
должен понизить уровень безопасности в своем ТЕ до минимума и разрешить за- 
грузку АсйуеХ по сети. 

Благодаря такой плохой защищенности, компоненты АснуеХ не получили 
должного распространения. Никто не хочет понижать безопасность своего компь- 
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ютера и надеяться на добропорядочных программистов. Таких программистов не 
так уж и много, поэтому лучше лишний раз перестраховаться и не включать 
АспуеХ. 


ЕТ О: \Асиуегогтргой. Бот - - Местозой токеглее Е Еирюгег - [Автономная работа] 


_ Файл. Правка . 


с: 2 0: амеРотиРтой 1 Вес 


Реары 7 АсйуеХ Тез Расе 


Уоч поша зее ус Леры 7 юпиз ог сопно[5 етбеа ед ш пе ют Бе|очу. 


с избранное. .4 


Рис. 21.6. Результат запуска НТМ!-файла 


И все же в локальных сетях АсйуеХ используют достаточно часто, особенно 
в России. У таких форм много преимуществ, и они позволяют решить ряд проблем. 


ПРИМЕЧАНИЕ. Централизованное обновление. Когда программист внес в свой про- 
дукт обновление, то он должен установить его на все машины, работающие с его про- 
граммой. А если таких компьютеров много? Можно пытаться известить своих пользо- 
вателей по почте или каким-либо другим способом. А если неизвестны все 
пользователи? Вот тут уже задача усложняется. В данном случае достаточно только 
изменить ОСХ-файл и передать его на сервер, откуда |Е получит этот файл (параметр 
Тагде! ЧАЁ окна \Меь ОБерюутеп{ ОрНоп). При следующем запуске 1Е сам загрузит 
обновленный файл и установит его. 


Есть еще один способ протестировать пример. Для этого выберите Пирог 
АсНуеХ Сопбго из меню СотропепЕ и вы увидите окно, через которое мы уста- 
навливали компонент АсйуеХ. Найдите в верхнем списке имя компонента и на- 
жмите тба|. Ое]рЬ: установит этот компонент, и его иконка появится на вкладке 


570 ое: Глава 21 


АсйуеХ палитры компонентов. Теперь вы сможете устанавливать его на любую 
форму и использовать как простой компонент. 


ПРИМЕЧАНИЕ. На компакт-диске, прилагаемом к книге, в папке \Примеры\Глава 21\ 
АспуеРогт вы можете увидеть пример этой программы. 


21.3. Создание компонентов АсН\еХ 


‘Вы уже; наверное, убедились на практике, что АсиуеХ — это достаточно слож- 
ная для понимания и разработки технология. Она является продолжением развития 
ОГЕ, которая была дополнена технологией СОМ и переименована в более емкое 
название — АспуеХ. Под этим термином скрываются несколько самостоятельных 
технологий: 


О. формы АсиуеЕогт — мы с ними познакомились в самом начале; 
О элементы управления; 

О библиотеки; 

С серверы автоматизации; 

О страницы свойств. 


Все это объединяется под одним термином СОМ. С формами мы уже познако- 
мились, теперь предстоит познакомиться с элементами управления. 

Для разработки элементов управления на основе АснуеХ нужно иметь доста- 
точно много знаний и навыков. Если бы вы знали, сколько телодвижений нужно 
сделать на языке С++, чтобы создать АснуеХ-компонент. Недаром в США заработ- 
ная плата программиста С++, знающего СОМ, намного превышает зарплату такого 
же программиста без знания или опыта в СОМ. 

Фирма ВойЙап4 упростила эту технологию как для понимания, так и для разра- 
ботки, создав свою надстройку — Оер м АсйуеХ (часто сокращается до АХ). 
Благодаря РАХ вы можете любой компонент Реры превратить в компонент 
АспуеХ и использовать его в любой 
другой среде разработки. Для этого 


дсе ХС ыы ы "9 
в компонентную модель УС, было 
внесено очень много дополнитель- [аынию ГР — И Е > 


ных свойств и методов. __ Г] пенданение РЕК о 
В этом разделе мы рассмотрим, 1: и 

., . ТЕ РапейтрИ. 

как создать компонент АсНуеХ с РИН Ролл раз | 
использованием Ое!рШ и надстрой- - `Роеа Мате: :` _ Разесотой Ч О | 
| 
1] 


ки РАХ. Хотя присутствия РАХ вы | | Тмеадиом Моды о Я 


даже не заметите. ев 


. . : | г = АЗмех Соймо! Ориолз- = = Ни | 
Выберите меню Ее | № м ОШег Г. Маке Сопио! Цсепзеч Е Г. побьдо вроы Вок В =: 


и на вкладке АсвуеХ выберите || Г помеуеню и а 
АсйуеХ Сопего]. По нажатии кноп- | ПЕНИ 
ки ОК перед вами должно открыть- 


ся окно : АсйуеХ Сопёго! УУ1сага, 
‚ показанное на рис. 21.7. ". Рис. 21.7. Мастер создания компонента АсйуеХ 
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Давайте рассмотрим содержимое окна АсйуеХ Сопёго] У2ага. 


УСГ, С!а5$$ Мате — имя компонента, который мы хотим превратить в АспуеХ. 
Выберите из списка ТРапе]. 


О 


М ем АсНнуеХ Маше — имя АсНуеХ компонента (оставьте по умолчанию). 
Ппретещабоп Оп — имя модуля (оставьте по умолчанию). 

Рго}есй Маше — имя проекта (оставьте по умолчанию). 

Тьгеадте Моде! — модель потока. 


ооооо 


Маке Сопбго! Глсепзед — лицензия компонента. Включайте только в том слу- 
чае, если захотите продавать свой компонент. 


О 


пс де Уегяоп П1огтабНоп — ВКЛЮЧИТЬ информацию о версии. | 
О шашде АБош Вох — добавить окно О программе. 


После нажатия кнопки ОК. Рерь! создаст шаблон для нового компонента, в ко- 
тором уже готовы к использованию все методы и свойства компонента трРапе1. 
Весь исходный код, реализующий компонент, будет находиться в модуле 
РапеШтр!1.ра$. Перейдите в него с помощью менеджера проектов и посмотрите на 
содержимое. | 

Здесь много процедур и функций, начинающихся словом беЕ_ Или 5е5_. Зачем 
они нужны? В АсйуеХ нет свойств или переменных, к которым можно было бы 
обращаться напрямую, как мы это делали с РерШ-компонентом. Весь доступ 
к свойствам происходит через процедуры или функции. Поэтому, чтобы прочитать 
заголовок панели, Ре]р№ создал функцию сее_СарЕ1оп, а чтобы изменить заголовок 
на новый — 5ес_СарЕ1оп(сопзЕ \Уа1ие: М1аебехг1па). Раньше для этого нам доста- 
точно было просто обратиться к свойству СарЕ1оп компонента панели. Сейчас 
такой трюк не проходит. Немного позже мы напишем собственную реализацию 
изменения заголовка. | 

Вся информация о методах компонента находится в библиотеке типов. Чтобы ее 
увидеть, выберите пункт меню Туре Габгагу (библиотека типов) из меню Уем 
(рис. 21.8). | 

‚Когда вы выбираете какой-нибудь элемент библиотеки, в правой стороне окна 
появляется несколько вкладок. На вкладке Аг иве$ вы можете увидеть: 


Маше — имя объекта; | | 

СОШ — уникальный номер в библиотеке (не менять); 
Уег$1юп — версия; 

ССП) — идентификатор языка; 

Нер 56 лтг — краткое описание; 

Нер ЕЙЦе — имя файла помощи, связанного с объектом; 


оо,ооо 


Нер Сошехё — идентификатор контекста справки. 

Вот некоторые из флагов, которые вы тоже можете здесь увидеть: 

№ пе — флаги отсутствуют; | | | 
Кезблсе@ — запретить использование библиотеки в средах программирования 
макросов; 

О Сопео{ — в библиотеке находится компонент АсНуеХ; 
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орала соетопа ЧБ. 


= 9 о Г Ты бы 1 Е И 
#-Ф 1Рапе КЕ уе" ет о. п ОЕ в _ | 
$ Рапех |; Мате — | _ ринг ь |. 
3 $ Т-Аоптеги Го 6: 1414748 3Е2- 0130- 48СС. ВАО ВСПЕАЕТЬЗА = 
+. Т;Веуе Си . - № .: г | —. = в к _ | . 
а у. ТуВогдег5 ие о м | а 


Т*ОгадМоде 
ТуМочзеВикоп 


| | наьзыьо Сечь Г 


| ^| вы ОГ 


Рис. 21.8. Библиотека типов 


О Н19деп — библиотека скрыта от пользователей; 


С ПзрПцегасе — доступ к свойствам и методам производится только ‘через иН- 
терфейс та1зраесв; 


О Мопежет$ Ме — если выделен, то реализация интерфейса тр1зрассн (основной 
интерфейс АсиуеХ.) будет включать только те свойства и методы, которые пока- 
‘заны в реализации; 


С Шиа! — методы и свойства интерфейса передаются и через тр1зраесЪ, и через 
таблицу виртуальных методов; 


О ОБЕ Ацютайоп — используются только совместимые с автоматизацией типы 
данных: | 


С $0оигсе — указывает, что возвращаемое значение типа \АВТАМТ, являюще- 
еся источником событий: | 


С ВшдаЫе — свойство поддерживает связывание данных; 
О Кедие$ Еай — свойство поддерживает сообщение опвеацезека1 к. 


ПРИМЕЧАНИЕ. Программа-клиент может получить доступ к интерфейсам (объектам) 
через специальный интерфейс тр1зраЕсН либо через таблицу виртуальных методов. 
Интерфейс тр1зраесв позволяет использовать свойства и методы объектов через 
уникальный идентификатор р1зртр. 


Давайте создадим собственный метод. Для этого выделите ветвь тРапе1х 
и щелкните мышью по кнопке М№еу Ме®4 на панели инструментов. Ое]р№ создаст 
новое объявление метода меЕноа1. Переименуйте его в 5екСар. Реры создаст про- 
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цедуру зеСар, которая является реализацией метода зеЕСар. Перейдите на вкладку 
Рагатейг$ (рис. 21.9) и добавьте новый параметр для процедуры с именем сарЕ1оп 
с типом грзтк (этот тип соответствует строке в СОМ) и моа1 Е1ег равным [11]. Для 
модификатора (моа1Е1ех) можно указывать одновременно и [1п], и [оч]. 


| 5% Рапе!ХСоп`о!1 Ь 


:-@9) РаепСоюи 
-.58 РагеСою 

:.. &$ Рагет!СИЗО 
:--5% Рагет!СИЗ0 
:-@9 Узые 

5 УвЫе 

: .&3) ФоцЫеВийегед 
-- 5$ ОоцЫеВиНеге4 
89 УзыебоскСйетСом . 
:-$99 Сигзо 

-- 58 Си50г 


: 2 МуРиор 
1. 5 МуРюр 
8. + [РапеКЕ уе 
$ РапеК 
ТхАбдптеи 
ТуВеуе Си А а В, 
5 $ Тьвавеые Аа: | еее | Мою\р | Монебат || 
я: ТуПгАаМоЧ® | рр —ыы ы пенисом „имотмооииоинильовььной — ооитктик 


Рис. 21.9. Вкладка Рагатаег$ 


Чтобы изменить Мод1Е1ех, нужно дважды 
щелкнуть по нему кнопкой мыши. В результа- 
те появится окно, показанное на рис. 21.10. роет 0% 


Здесь вам доступны: | . - —: 
9 к це. 


О Ш — означает, что метод является процеду- . Е Г г рота р 
рой и используется для установки значений; г вам Г ны рчыа\ мые 
С Ош — говорит о том, что метод будет счи- С рамные о 


тывать значение компонента; 
С) ВеГУа! — метод будет возвращать значение. 


Теперь перейдите с помощью менеджера 
проектов в модуль РапеШпр!.ра$, найдите про- 


Ццедуру 5ееСар и напишите в ней следующее: | _ Рис. 21.10. Изменение 
ргоседиге ТРапе1Х.бееСар (Саре1оп: РСНаг); параметра Моа1Е1ех 
Бед1п 


ЕРе1рЬ1Сопего1 .СарЕ1опт: =Сар®1оп; 


ева; 
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РрРе1рр1Сопего1 указывает на компонент, с которым мы работаем. В данном 
случае это тРапе1. У него мы изменяем свойство СарЕ1оп на то значение, которое 
указано в качестве параметра: в нашей процедуре 5ееСар. Чтобы вы лучше понима- 
ли, перейдите в начало модуля и посмотрите на объявление куре: 

Суре 

ТРапе1Х = с1аз$ (ТАСЕ1уехСопего1, ТРапе1Х) 
рх1уаее 
{ Рилуабсе аес1ага®1оп$ } 
РОе]1рН1СопЕго1: ТРапе]1; 


Здесь можно увидеть, что переменная ЕБе1рь1Сопего1 имеет ТИП тРапе1, Т. ©. 
панели, из которой мы формируем компонент АсйуеХ. Через эту переменную мы 
можем обращаться к методам и свойствам привычной нам панели. С помощью 
зеЕСар мы изменяем свойство СарЕ1оп У ТРапе1, Т.е. наш метод делает то же, что 
И беЕ_СарЕ1оп. | 

Теперь создадим свойство. Щелкните мышью по кнопке М№ем Ргорегу и выбе- 
рите пункт Веаа | УУгие (рис. 21.11). 


| о бо о Рапе!йХСолоП. Ч 


' © АПоптен 
в Айоптеги( 
5 Ацобте 
. 5 Ащобее 
: 8) ВеуеЙппе! : вы й О——и =. —— |. 
53 Вемейппег к т... | | о: 
- $9 ВеуеОщег = ‚Рав 1чеасе: : `_ ПОзраев | | =] 
‚`В Веуе!Ощег `:]- А а 
О Вовазые В 1. 
:..58 Вогдегбще 
‚ `` 89) Сарйоп 
‚ |2 59 Сариоп 
159 Сом 

:- 88 Соб 

..53 030 

58 (430 

:.29 УзебоскМападе! 
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: & Боскбйе 

ы Фоскбие 


о: 7 ПрапГогяле 


Рис. 21.11. Создание свойства 


Дер! создаст два метода: один для чтения свойства, а другой для записи. Пере- 
именуйте их в МуРгор. В модуле Рапе1Тир11 у вас появятся две новые процедуры: 

ЕопсЕ1оп ТРапе1Х.Сее_МуРгор: Тпфедег; 

Бед1п 


епЯ; 
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рхгосеаиге ТРапе1Х.5еЕ_ МуРгор (Уа1ае: Тпеедег); 
Беа1п 


епа; 


Можете их реализовать на свой вкус, например, отобразить окно диалога, чтобы 
явно увидеть результат работы. Зарегистрируйте новый компонент в системе 
(Вип | Вез1$ег АсбуеХ Зегуег). Теперь можете установить его на палитру компо- 
нентов (Сотропепё | Пирог АсбуеХ Сопёго]) и протестировать. После регистра- 
ции компонент будет практически не виден на палитре, потому что у него не будет 
иконки. Чтобы найти созданную панель, перейдите на вкладку АсНуеХ и проведите 
указателем мыши по палитре компонентов. Самой правой окажется Рапе1Хх. 

Для теста нужно выполнить следующие действия: 


1. Создайте новый проект. 
2. Поставьте на форму новый компонент. 


3. Поставьте кнопку и для ее события опс11ск напишите код: 
ргосеаиие ТЁЕоуп1.Ва6$оп1С11ск (5бепае": ТОБ)ес®); 
Беа1п 
Рапе1Х1.беЕСар ('привет'); 
епа; 


ПРИМЕЧАНИЕ. На компакт-диске, прилагаемом к книге, в папке \Примеры\Глава 21\ 
Сотхго! вы можете увидеть пример этой программы. 


СОВЕТ. На компакт-диске, прилагаемом к книге, в папке "Документация" вы можете 
найти документ под названием Программирование Р\/$.д0с. В нем описывается про- 
цесс написания приложений для М/еб-сервера Мсгозой 1$. Эти приложения пишутся 

на основе технологии СОМ. Даже если вы не будете писать свои программы под \М/еБ- 
сервер, документ может оказаться полезным и в будущем может пригодиться. 


Глава 22 


Технология СОМ 


В гл. 21 мы познакомились с компонентами АсйуеХ, как я говорил, они по- 
строены на основе технологии СОМ, поэтому для лучшего понимания АсйуеХ мы 
должны углубиться в ее основы. К тому же СОМ не ограничивается только компо- 
нентами. Он может использоваться и для создания высокопроизводительных биб- 
лиотек любого назначения, например, знаменитая библиотека для создания графи- 
ческих приложений Пиес(Х как раз использует СОМ. 

Но графика — это достаточно большая тема, и по ней можно писать целые книги, 
которые по своему размеру не будут уступать той, что вы держите в руках. Надеюсь, 
что вы именно держите в руках эту книгу, а не читаете с экрана монитора. | 


22.1. Модель СОМ 


Модель СОМ (СотропепЕ ОБесЕ Моде! — объектная. модель компонентов) это 
независимая от языка программирования спецификация объектов. В спецификации 
СОМ-объекты называют интерфейсами, потому что у них есть небольшие отличия. 

Прежде чем приступать к рассмотрению модели, необходимо рассмотреть пару 
определений. Взгляните на приложение, написанное в разд. 21.1. Там мы писали 
программу, которая использует АсиуеХ-компонент ядра ПЕ. Так вот наше прило- 
жение называется клиентским, а ядро ГЕ, к которому мы подключились, называется 
СОМ-сервером. Вы должны обязательно понимать эту разницу, когда будете чи- 
тать остальной материал этой главы. 


ПРИМЕЧАНИЕ. Самое большое отличие объектов СОМ в том, что они реализуются 
в виде отдельных файлов. Когда вы хотите использовать этот объект, то должны за- 
грузить этот файл объекта. | 


Файл с объектом называют сервером СОМ. Такие серверы могут быть выполне- 
ны в виде динамических библиотек ОШ, или исполняемых файлов в формате ЕХЕ. 
Если сервер реализован в виде динамической библиотеки, то его называют внут- 
ренним. Ну а если в виде исполняемого файла, то локальным (внешним). Локаль- 
ный сервер функционирует в собственном адресном пространстве. Внутренний 
сервер загружается в адресное пространство клиентского процесса (вашей про- 
граммы). СОМ-серверы могут быть также и удаленными, когда они выполняются 
на другой машине. В этом случае используется расширенная спецификация ОСОМ 
(О15в16шей СОМ — распределенный СОМ). | 
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22.2. Информация о СОМ 


Клиентское приложение, которое хочет загрузить СОМ-сервер, никогда.не за- 
думывается о том, где находится сам сервер. Приложение может узнать реальное 
его расположение через реестр \УИтдо\$. Но это ему не нужно. За все отвечает опе- 
рационная система. Ей необходимо только передать СОШ (=обаПу итаче 
14епийНег, глобально уникальный идентификатор) сервера, который нам нужен, 
и ОС все остальные функции инициализации выполнит самостоятельно. 

Что значит СОТ? Это номер, который СОМ-объект получает на этапе проекти- 
рования. Он генерируется случайным образом, и никакие два объекта не смогут 
иметь одинаковые СОТО, по крайней мере нас в этом уверяют разработчики 
в М!сго$ой. 


ЗАМЕЧАНИЕ. За уникальность СУ отвечал сам Билл Гейтс, но при этом делал ого- 
ворку, что вероятность совпадения двух номеров ОО все-таки есть, хотя и ничтожно 
мала. А что же будет, если все же эта вероятность сработает? Неужели вместо за- 
прашиваемого ядра 1Е мы увидим ядро Ехсе!? Здесь трудно что- -либо предположить, 
и надо надеяться, что ничего страшного все же не произойдет, хотя сбой в программе 
будет обеспечен, ведь разные СОМ-объекты реализуют разные методы. 


Вся необходимая информация о зарегистрированных СОМ-объектах находится 
в реестре. Благодаря этому компоненты могут находиться где угодно, а по на- 
стройкам в реестре клиентская программа найдет, где нужно искать СОМ-сервер. 
Клиентское приложение может создавать экземпляры компонентов как по имени, 
так и по СОШ-идентификаторам. Если обращение идет по имени, то ОС сначала 
ищет в реестре СОТО, а потом инициализирует компонент как по идентификатору. 
Мы рассмотрим самый сложный метод — поиск по имени. | | 

В раз0. 21.3 мы создали небольшой АснуеХ-компонент на основе панели и на- 
звали его Рапе1х. Перейдите сейчас в директорию с исходным кодом и найдите 
файл Рапе ХСопёго! 1 _ТГ.В.раз. В этом файле находится описание интерфейса, через 
который и происходит работа с компонентом. Об интерфейсах читайте чуть далее 
в этой главе. | 

Откройте этот файл и давайте посмотрим на раздел констант (сопз". В моем 
случае он выглядит, как показано в листинге 22.1. 


соп$Е 


// ТуреГ1Ьгкаку Ма)ог ап@ плпог уегз1оп$ 
'Рапе1ХСопЕго11МазохУегз1оп = 1; 
Рапе]1ХСопЕго11М1похУегз1оп = 0; 


ГТВТО_Рапе1ХСопетго11: ТСОТО = '{1474В3Е?2-0130-48СС-8ВАО-8С47РАЕ1 6342} '; 
ТТО_ТРапе]1Х: ТСОТО = '{0Е3Р0491-ЕЕ7Р-4В5С-9Е1С-57А4941С81ВА} '; 


ОТТО.ТРапе1ХЕуепте$: ТСОТО = '{8СЕРО5Е7-3210-4580-96Е2-4А20Ср3З6С3З9В} '; 
СТАЗ5_Рапе1Х: ТСОТР = '{6723410Е-В4А4-4ЕЗЗ-ВОАб-98543ААОЗРЭЕ} '; 
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Если вы создавали панель самостоятельно, а не взяли код с компакт-диска, то 
у вас данный код может отличаться. Даже если вы дали панели такое же название, 
как и я, то СОТ)О-поля будут другими, потому что это уникальное число и каж- 
дый раз генерируется случайным образом. Разве что случится что-то ужасное и 
\М1пдо\$ сгенерирует вам такие же значения, как и мне. 

Теперь запустите любую программу работы с реестром, например, встроенный 
в ОС тереди. Будем одновременно смотреть реестр и исходный код интерфейса. 

Вся информация о СОМ-объектах находится в разделе нкЕУ_СтА$ЗЕ$_воот. От- 
кройте этот раздел и найдите здесь подраздел с заголовком Рап@ХСопегоП.РапеХ. 
Это и есть полное имя СОМ-компонента, по которому ОС будет находить в реестре 
необходимую для создания компонента информацию. 

Как узнать полное имя СОМ-компонента? Для этого нужно посмотреть на кон- 
станты листинга 22.1. Для начала найдите константу формата гтвтр_хххххх. о 
В данной константе все после символа подчеркивания — текст, который будет 
в полном имени компонента до точки. А теперь найдите константу формата 
СЬА$5_хххххх. В ней после подчеркивания идет текст, который будет после точки. 

Итак; раздел реестра для нужного нам СОМ-компонента мы нашли, но если вы 
посмотрите его, то ничего интересного сейчас можете‘не заметить. Ни в этом раз- 
деле, ни в его подразделах нет параметра, который бы указывал на файл, в котором 
нужно искать СОМ-сервер. Но зато здесь есть подраздел с именем С1514, что явля- 
ется сокращением слова СГА$$ Ш или идентификатор класса. Посмотрите на 
О9ТФ-идентификатор, который находится в этом разделе; и сравните его с кон- 
стантой стА$5_Рапе1х в файле интерфейса (листинг 22.1). Эти значения одинаковы. 
Константа формата стлА$5_хххххх в файле описания интерфейса — это и есть иден- 
тификатор класса (СГА$$ 1). 

Итак, с помощью реестра по имени мы смогли узнать идентификатор класса, те- 
перь нужно перейти в следующий раздел: 

НКЕУ_СТАЗЗЕЗ _ВООТ\СЬЗтТЬ\Ххххххх 

Здесь ххххххх нужно заменить на СОТ класса, который мы только что нашли, 
т. е. полный путь реестра, куда мы должны перейти, выглядит так: 

НКЕУ_СТАЗЗЕЗ_ВООТ\СЬЗТР\ {6723410Е-В4А4-4Е83-В0Аб-98543ААО8РЭЕ} 

‘Открыв этот раздел, перейдите в подраздел тпргос5егуегз2 и посмотрите на 
значение по умолчанию. Вот он путь к файлу, в котором находится СОМ-объект, 
и вот так ОС находит его. В этом же подразделе есть параметр тьгеаа1памМоде1, 
в котором ОС узнает, какая используется поточная модель. 


22.3. Интерфейс и реализация 


Все объекты и модели СОМ происходят от топкпомт. Как видите, имена объек- 
тов СОМ начинаются с буквы "Т" (имена объектов Реры начинаются с "Т"), сим- 
волизируя слово ТпеехЕасе. Объект топкпомт действует так же, как тоъЗесе для 
объектов Реры. Это основа, от которой происходят все остальные классы. В нем 
реализуются основные методы, которые могут понадобиться впоследствии для 
других классов. В модели СОМ — это три метода. 


О] оцекгутпеегЕасе — метод служит для получения информации о встроенных 
в СОМ объектах или интерфейсах. Когда вам нужно загрузить какой-нибудь 
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объект, то с помощью этого метода проверяется его доступность. Если метод 
подтверждает возможность использования указанного объекта, то его можно за- 
гружать. 


С _лаавеЕ и _ве1еазе — эти два метода используются для создания и уничто- 
жения объекта. Объекты СОМ похожи на динамические библиотеки. В па- 
мять может быть загружена только одна версия, и все клиенты будут обра- 
щаться к ней. Для реализации всего этого необходимо контролировать — 
сколько клиентов подключено к объекту, чтобы знать, когда можно уничто- 
жать их из памяти. 


Когда мы загружаем объект, то вызывается метод _АаавеЕ{, который увеличивает 
внутренний счетчик на единицу. При следующем обращении к объекту снова вы- 
зывается этот метод и снова счетчик увеличивается на 1. Когда какое-то приложе- 
ние отключилось от объекта (вызван метод _ве1еазе), счетчик уменьшается на 1, 
и если он равен 0, то объект можно выгружать из памяти. В противном случае 
_ с ним еще кто-то работает и выгрузка невозможна. | 
Объект типкпомт объявлен в ВерЫ следующим образом: 

ТОпкпомп = 1п6егЁасе 

['{00000000-0000-0000-с000-000000000046}'] 

РапсЕ1оп ОцегутТпеегасе (сопз® ТТО: ТСОТО; оц 057): НВеза1е; 5Е9са11; 

ЕипсЕ1оп _АЯЯВеЕ: Тпеедег; $%@са11; | | 

ЕирсЕ1оп _Ве1еазе: Тпбедег; з@са11; 
епа; 


Как видите, в первой строке идет имя нового интерфейса и после знака равно 
ставится ключевое слово 1пеегЁасе. Во второй строке в квадратных скобках нужно 
указывать СОТ интерфейса. 


СОВЕТ. Никогда не пишите СЮ вручную. Когда вы будете писать собственные СОМ- 
объекты, то этот уникальный номер будет генерировать ОС. Чтобы сгенерировать но- 
вый СИЮ, перейдите в редактор кода и нажмите клавиши <С>+<А!>+<С>. 


В примере показан объект топкпомт только для того, чтобы вы смогли увидеть 
самый простой СОМ-объект. Теперь давайте посмотрим, как создаются СОМ- 
объекты на практике. 

Для создания СОМ-объекта в Веры нужно выбрать позицию меню Е! | 
№ \ | О ег. Перед вами откроется уже знакомое окно создания нового проекта. 
Здесь перейдите на вкладку АсНуеХ и посмотрите, что доступно (рис. 22.1). 
Тут достаточно много разных типов СОМ- объектов и мы не будем рассматривать 
их все. 


ПРИМЕЧАНИЕ. Тема СОМ — это отдельный разговор, и если вам захочется узнать 
больше, то желательно купить отдельную книгу. Если вы не будете связывать свою 
жизнь только с СОМ, то информации, которая здесь дается, будет достаточно для на- 
писания приложений средней тяжести, потому что Веры прячет большую часть ру- 
тинной работы, которая связана с программированием СОМ-объектов. Таким обра- 
зом, использование прямого программирования практически не нужно, оно здесь 
рассматриваться не будет. 
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Рис. 22.1. Окно 
создания СОМ-объектов 


Теперь рассмотрим самое интересное. Объекты СОМ и все их производные 
(АспуеХ компоненты и др.) состоят не только из одного класса, как в классических 
приложениях, но и из интерфейса. Снова взглянем на файл Рап@аХСоп- 
но 1_ТЕВ.ра$, где происходит описание интерфейса тРапе1х: 

`ТРапе1Х = 1пеегЕасе (101 зраесН) о 

['{0Е3Р0491-ЕЕ7Р-4В5С-9Е1С-57А4941С81ВА} ']. 
епЯ; | 


Как мы уже узнали, с помощью ключевого слова 1пЕегЁасе мы можем объявить 
интерфейс, который похож на описание класса, но имеет следующие отличия: 


О интерфейс не может содержать переменных, а только методы; 


О у интерфейса нет реализации, это только описание методов, которые есть 
у СОМ-класса. 


Интерфейс — это как промежуточное звено между приложением-клиентом 
и приложением-сервером. Интерфейс описывает функции, которые реализуются 
СОМ-объектом, но сам их не реализует. Так как свойств у интерфейса нет, то, что- 
бы работать со свойствами СОМ-сервера, используются функции. Если функция 
должна быть ‘доступна для чтения и изменения, то создается пара функций сее 
(чтения значения) и 5еЕ (изменения). Если свойство должно быть только для чте- 
ния, то можно создать только первый тип метода. Свойств, которые доступны 
только для изменения, я пока не встречал, ведь если есть свойство, то должен быть 
метод узнать его значение. 

Итак, у нас есть интерфейс, но где же реализация? О ней чуть ниже. 

В этом же файле (Рап@ХСопно _ТГВ.ра$) есть описание класса трапе1х, кото- 
рый происходит от класса то1еСопего1: 

ТРапе1Х = с1азз (ТО1еСопехо1) 


Это все еще не реализация интерфейса, это класс, который реализует возможно- 
сти, необходимые для использования нашего СОМ-объекта как объекта ОГЕ. 
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Так где же реализация? Она находится в файле РапеШтр!1.раз и класс, реали- 
зующий интерфейс, объявлен следующим образом: 
ТРапе1Х = с1аз$ (ТАСЕ1уехСопего]1, ТРапе]1Х) 


Здесь у нас объявлен класс, который происходит от тАсЕ1уехСопего1 и реализу- 
ет интерфейс трРапе1х. Посмотрите, как выполнена реализация интерфейса. Ничего 
сверхсложного здесь нет, и весь код должен быть уже знаком вам. Я же не буду 
тратить время на рассмотрение сгенерированных мастером Веры методов, потому 
что они слишком уж просты. | 

Полученных в последних трех главах знаний будет достаточно для написания 
даже не очень простых интерфейсов и компонентов. Если СОМ-технология не ум- 
рет и вы захотите узнать о ней больше, то советую купить специализированную 
книгу по данной теме. | 


Глава 23 


Буфер обмена 


Кнопки Копировать и Вставить есть практически в любом полноценном при- 
ложении. Вы тоже, очевидно, захотите использовать их возможности в своих про- 
граммах. В связи с этим в этой главе рассматриваются вопросы, касающиеся орга- 
низации переноса данных между приложениями. 

Если в вашей программе есть строки ввода тЕа1е, то они уже умеют работать 
с буфером обмена. Попробуйте щелкнуть правой кнопкой мыши в любой месте 
такой строки, и перед вами откроется меню, в котором есть все необходимые пунк- 

ы. ОС \/тдо\$ очень много делает самостоятельно, и нам не приходится забо-. 
титься о мелочах. Но даже если разработчик перекрыл стандартное всплывающее 
меню в поле ввода, и вы не видите там функций работы с буфером, эти возможно- 
сти не исчезают бесследно. Вы можете без проблем работать с буфером через горя- 
чие клавиши, такие как <СН]>+<С>, <СИ1>+<\У>, <СИ]>+<Х>. 

С другими компонентами У т4до\5$ дело обстоит немного сложнее, потому 
что очень сложно реализовать копирование и вставку веток дерева ттгее\У1ем или 
ТЬ1зЕ\У1ем. В таких компонентах элементы уже не так однозначны. Тут нам при- 
дется немного поработать на клавиатуре. Но эта работа не так уж сложна, и вы 
убедитесь в этом, когда закончите чтение этой главы. 


23.1. Буфер обмена 
и стандартные компоненты Берш 


Большинство компонентов Вер уже готовы к работе с буфером обмена. В ос- 
новном это касается тех компонентов, которые содержат какие-либо данные, кото- 
рые пользователь может поместить в буфер обмена. Если возможность копирова- 
ния в буфер необходима, то у компонента должны быть методы работы с именами: 


СП съетТос11рьоага — вырезать в буфер обмена; 
С сорутос11рьоага — копировать в буфер обмена; 
С рРазееггошС1орЬоага — вставить из буфера обмена. 


Давайте посмотрим на эти методы в действии. 

Создайте новое приложение и поместите на его форму три кнопки: Вырезать, 
Копировать и Вставить. По центру окна растяните компонент тмепо. Полученную 
форму можно увидеть на рис. 23.1. 
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Теперь создадим обработчики собы- |. Использование буфера обмена 
тий для кнопок. Для события 0пс11ск | +. вах #19 
кнопки Вырезать напишите следую- | 
ЩИЙ КОД: 
Мето1 .СаеТоСс11рроакгЯ; 


Здесь вызывается ОДИН метод 
СабТоС11рЬоага компонента —Мепо1. 
Этот метод вырезает выделенный текст 
в буфер обмена. 


Для события опс11ск кнопки Копи- 
ровать запишем код: 
Мето1.СоруТоСс11рЬоага; Рис. 23.1. Форма будущей программы 


В этой процедуре происходит копи- 
рование выделенного фрагмента текста 
в буфер обмена с помощью метода сорутос1 +рьоаха. 

Ну и для кнопки Вставить напишем вызов метода РазкеггомС11рЬоага компо- 
нента Мето1 в процедуре, вызываемой по событию опс11ск. С помощью этого ме- 
тода все содержимое буфера обмена будет вставлено в компонент мемо1. 

Теперь попробуйте запустить приложение и скопировать какой-нибудь текст 
в буфер обмена с помощью нашей кнопки Копировать. После этого нажмите на 
кнопку Вставить и скопированный текст появится в текущей позиции курсора. 
Если вы скопируете в буфер какое-нибудь изображение из любого графического 
редактора и попытаетесь вставить его в компонент мемо1, то ничего не произойдет. 
Система сама следит за форматом данных, хранимых в буфере обмена. Чуть позже 
мы рассмотрим, как сделать так, чтобы кнопка Вставить была активна только то- 
гда, когда в буфере есть данные и они соответствуют нужному формату. 

Попробуйте щелкнуть правой кнопкой мыши внутри компонента мето1. Перед 
вами также должно появиться всплывающее меню с пунктами, которые необходи- 
мы для работы с буфером обмена. 


ПРИМЕЧАНИЕ. На компакт-диске, прилагаемом к книге, в папке \Примеры\Г лава 23\ 
Мето СПрБоага вы можете увидеть пример этой программы. 


23.2. Объект СИрБоага 


Для работы с буфером обмена в Ре есть объект с11рьоака. Несмотря на то, 
что это объект, его не надо инициализировать (как ТАрр11саЕ1оп И ТРе1пеекг), 
а можно использовать безо всяких подготовительных действий. Достаточно только 
подключить в разделе изез модуль с11рьхга, и объект становится доступным. 

У этого объекта не так уж много свойств и методов. Рассмотрим их на практике. 
Для начала модернизируем пример, написанный в предыдущем разделе главы. 

Откройте предыдущий пример и сразу добавьте в раздел изез модуль с11рьхга. 
Теперь по событию опс11ск для кнопки Копировать напишите следующий код: 


с11рроага. зе-ТехЕВиЕ (РСрах (Мето1 .5е1Техе)); 
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Здесь мы используем метод зе ТехевиЕ объекта с11рЬоака. Этот метод копиру- 
ет текст, переданный в качестве параметра, в буфер обмена. В качестве параметра 
мы передаем выделенный в компоненте мето1 текст — Мемо1 .5е1Техе. Единствен- 
ное, что здесь необходимо учесть, это то, что обязательно надо привести текст 
К ТИПУ РСваг. Для того чтобы поместить текст в буфер, метод вызывает У/тдо\5$ 
АР!-функцию, а там для хранения строк используется тип рСвах. 

Для события опс11ск, связанного с нажатием кнопки Вырезать, напишем сле- 
дующий код: 

С11рЬоага . секТехеВаЕ (РСЪах (Мето1 .5е1Техе)); 

Мето1 .бе1Техе:='!; 


Вырезать — значит скопировать текст в буфер и потом удалить его из компо- 
нента Мемо1. Именно это мы и. делаем. В первой строке текст копируется, а во вто- 
рой строке мы обнуляем (удаляем) выделенный текст. 

Для события опс11ск кнопки Вставить пишем следующий код: 

Мепо1 .5е1Техе: =Мето1 .5е1Техе+С11рьоага.АзТехе; 


Свойство АзТехЕ объекта с11рьоага указывает на содержимое буфера обмена 
в виде текста. В этом коде мы прибавляем это содержимое к выделенному тексту 
и вставляем все это в выделенный текст. Таким нехитрым способом реализована 
вставка. | 


Попробуйте запустить пример и убедиться, что все работает. 
Теперь рассмотрим еще несколько интересных методов объекта с11рьоакга. 


О Азз19п — назначить в буфер обмена объект, совместимый с тРег51зкепк. К та- 
ким объектам относятся картинки Ттпаде. В качестве единственного параметра 
нужно указать объект, содержимое которого нужно скопировать в буфер обмена. 


С с1еахг — очистить содержимое буфера обмена. 


О назгогпае — проверяется, какого типа данные хранятся в буфере обмена. Воз- 
можны следующие типы данных: 


» СЕ_ТЕХТ — буфер содержит текст; 

® СР_ВТТМАР — буфер содержит картинку; 

® СЕ_МЕТАЕТЬЕРТСТ — буфер содержит векторную картинку; 
® СЕ_РТСТОВЕ — буфер содержит объект типа Тр1сеиге; 

® СЕ_СОМРОМЕМТ — буфер содержит компонент. 


Давайте добавим в пример одну кнопку, по нажатии которой будет выводиться 
сообщение, показывающее тип хранящихся в буфере обмена данных. Для события, 
связанного с нажатием этой кнопки, напишем код, приведенный в листинге 23.1. 
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ргоседаите ТЕотти1 . ТаЕОВиеопС11 ск (Зепаег: ТОБ)есе); 


Беач1п 
1Е С11рБоага.НазЕРоутае (СЕ_ТЕХТ) степ 
Арр]11са&1оп .МеззадевВох ('Буфер содержит текст', 'Внимание!'); 


1Е С11рБоага.НазЕоттае (СЕ_ВТТМАР) реп 
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Арр11сае1оп .МеззааевВох ('Буфер содержит картинку’, 'Внимание!'); 
1Е С11рроахга.НазРотта® (СР МЕТАРТГЕРТСТ) ЕБеп 


Арр11саЕ1оп.МеззадеВох ('Буфер содержит векторную картинку', 'Внимание!'); 
1Е С11рЬБоаха.НазРоута® (СЕ_РТСТОВЕ) (реп , 
Арр11сае1оп.МеззадевВох ('Буфер содержит объект типа ТР1сеаге', 'Внимание!'); 
1Е С11рБоага.НазРогтаае (СЕ_СОМРОМЕМТ) Епеп | | 
Арр11саЕ1оп.МеззааеВох ('Буфер содержит компонент', 'Внимание!'); 
епЯ; 


С помощью следующих двух методов объекта тс11рьоахга вы можете поместить 
в буфер компонент или текст: 


Аа 


С зееСопшропепЕ — назначить ‘в буфер обмена компонент. В качестве единствен- 
ного параметра нужно указать компонент, который надо скопировать в буфер. 


С зееТехевоЕ — назначить в буфер обмена текстовый буфер. В качестве единствен- 
ного параметра нужно указать буфер рсвах, который надо скопировать в буфер. 


ПРИМЕЧАНИЕ. На компакт-диске, прилагаемом к книге, в папке \Примеры\Глава 23\ 
СИрБоага вы можете увидеть пример этой программы. | 


23.3. Картинки и буфер обмена 


Давайте теперь разберемся, как работать с изображениями в буфере обмена. Как 
вы знаете, у нас основным компонентом для работы с картинками является ттпаде. 
Давайте напишем пример, в котором будет копироваться и вставляться изображе- 
ние из буфера обмена в компонент ттмаде. 

Создайте новый проект и поместите на форму две кнопки Копировать и Вставить. 
По центру окна расположите компонент ттмаде, который будет хранить изображе- 
ния. Форму вы можете увидеть на рис. 23.2. | 

По событию опс11ск для кнопки Копировать напишем следующий код: 

С11ррЬоага.Аз519п (Ттаде1.Р1сбиге); 


Негагспу 


т Равеи! 
 Пиеиасеарогином 
т Рсцие 


Рис. 23.2. Форма будущей программы Рис. 23.3. Иерархия объекта тТР1сЕоаге 
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Здесь методом Азз1ап устанавливается в буфер обмена содержимое свойства 
Р1сеиге компонента ттаде1. Свойство Р1сЕиге имеет тип тр1скохе, который сре- 
‘ди своих предков имеет объект трегз1зЕепе. Ёсли вы помните назначение этого 
объекта, то должны знать, что он позволяет использовать метод Аз519п. Посмотри- 
те на рис. 23.3, на котором показана иерархия объекта тр1скиге. Это копия картин- 
ки из файла помощи Вер. 

Теперь посмотрим на код, который надо написать для события, связанного 
с нажатием кнопки Вставить: 

Ттаде1.Р1сЕаге.Азз1ап (С11рБоага); 


Здесь мы копируем с помощью метода Азз1ап содержимое буфера обмена 
В СВОЙСТВО Р1сеиге. | 
В принципе, пример готов.и на этом можно было бы остановиться. Но давайте 
разберемся еще с тем, как сделать так, чтобы кнопка Вставить была доступна 
только в том случае, если в буфере обмена находится именно картинка. Для этого 
сначала перейдем в раздел ре1уаЕе и запишем там следующее: 
рг1уаее | 
{ Ре1уафе Яес1агае1опз } 
ЕС11рроаг@О\мтег : Нипа; | 
ргосеаиге ММрОхгамс11рБоага (уаг Мза: ТИМОгамС11рЬоагта); 
пеззаде ММ_РКАМСЬТРВОАЮО; | 


Здесь объявлена переменная ЕС11рьоагаО\тег типа нипа. Это тип, который ис- 
пользуется для идентификации окна, и в нем мы будем хранить указатель на окно, 
которое находится следующим в цепочке наблюдателей за буфером (о цепочке мы 
поговорим чуть позже). Вспомните, каждый раз, когда нам нужно было получить 
или передать указатель на окно, мы использовали свойство напа1е. Вот это свойст- 
во имеет тип низа. В приведенном выше коде явно объявлена переменная такого 
же типа, чтобы появилась возможность работать с окнами. 

Также объявлена процедура имргамс11рЬоаха с одним лишь параметром типа 
ТИМОгамС11рьоага. Это процедура — обработчик события им_РВАИСЬТРВОАВЬО. Об этом 
говорит соответствующая надпись после объявления ‘процедуры и точки с запятой. 
Там стоит ключевое слово меззаче и имя сообщения, на которое должна откли- 
каться процедура. Вот таким нехитрым способом можно написать обработчик сис- 
темного сообщения, которого нет в Веры. 


ПРИМЕЧАНИЕ. Имена констант всех сообщений \М/паом$ вы можете найти в папке 
Оер!! (вложенная папка \Зоигсе\А\МЛп) в файле Меззаде$.раз. Такие имена всегда 
начинаются с приставки \М_. 


Чтобы создать обработчик события опРа1пе без использования объектного ин- 
спектора и готовых шаблонов, нужно написать следующую строку: 
ргоседиге ММРа1пе(уаг Меззадче: ТУММРа1пе); меззаде ИМ_РАТМТ; 


Здесь объявлена процедура имРа1п*. В качестве параметра она принимает сооб- 
щение типа тимРа1пе, через которое передаются необходимые для рисования дан- 
ные. После процедуры написан тип сообщения, на которое должна реагировать 
процедура. 
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Сама процедура представлена в листинге 23.2. 


ее Е. 
Обраб 
РАО 


’ ргосеааке Объект.\МРа1пе (уах Меззаде: ТУМРа1п®); 
уах 
ЗауеТпаех: Тпеедег; 
С: НОС; 
Р5: ТРа1пЕЗЕтасе; 
С: ТСапуа$; 
Бед1п 
ОС := Мезёзаче.рос; 
1Е ОС = 0 «Вет ГС := ВедлиРа1те (Напа]1е, Р5$); 
бауеТпаех := Зауерс (ГС. ; 
С:=. ТСапуа$ .Сгеаее; 
с.Напа1е:=0С; 
Здесь можно рисовать 
ВезсогегС (ГС, бауеТпаех); 


епа; 


В самом начале получаем указатель на контекст рисования \\!!4о\5$. Он нахо- 
дится в свойстве рс объекта сообщения пеззаде, который мы получили в качестве 
параметра. Потом проверяем, если контекст равен нулю, то получаем его с помо-‹ 
щью Функции Вед1пРа1пе. В первом параметре необходимо задать указатель на 
окно, в котором мы будем рисовать. 

Носле этого сохраняем контекст с помощью 5ауегСс. Результатом нам вернется ин- 
декс сохраненного контекста. После рисования восстановим его с ПОМОЩЬЮ везеогхербс, 
у которой два параметра — контекст рисования и индекс сохраненного контекста. 

В принципе, этого достаточно, если вы умеете рисовать с помощью функций 
УИтАР!. Для улучшения в процедуре введен код преобразования контекста рисова- 
ния в знакомый нам объект тсапуаз. После этого можно использовать переменную 
с как объект холста. | 

Это небольшое отступление, чтобы вы поняли, как самостоятельно делать обра- 
ботчики сообщений. Теперь рассмотрим обработчик события им_ОВАМСЬТРВОАБВЬ, 
который понадобится в нашем приложении... Он будет вызываться каждый раз, ко- 
гда изменилось. содержимое буфера обмена. Давайте добавим его в наш проект. 
Для этого в разделе ре1уаее добавьте следующее объявление процедуры: 

о ргоседаге ММРгамС11рЬоах@ (уах Мзс: ТИМОхамс11рЪоага); 
пеззадзе ММ_ РКАИСЬТРВОАКО; 


Теперь нажмите сочетание клавиш <Си1>+<$51>+<С>, и Реры создаст пус- 
тую заготовку описанной процедуры. В ней пишем следующее: 
ргоседиге ТРогт1 .ИМОгамс11рБоага (уах Мза: ТУМОгамсС11рЬоага); 
ред1п 
ЗепаМеззаае (ЕС11рБоагЯО\тех, \ММ_ПКАМСГТРВОАКО, 0, 0); 
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Мза.Кезо1Е := 0; 
С11р5ЬБоаг@аСВапаея; 
епа; | 


В первой строке мы посылаем сообщение об изменении буфера 
(ИМ_РКАМСЬТРВОАВО) окну, находящемуся следующим в цепочке. Во второй строке 
обнуляем результат переменной мза, которую мы получили в качестве параметра. 

В последней строке вызываем процедуру с11ръоагастапаеа. Она должна выгля- 
деть так, как это показано в листинге 23.3. 


ргоседате ТЕГоут1 .С11рБоагЯСрапаеа; 
\уах | 
Т: Табесдег; 
Бед1п 
РазсеВаебоп.ЕпаЪ1еа := Ка1зе; 
Гог Т := 0 ео С11рБоага.ЕохутаеСоцпе — 1 @ао 
Беа1п | | | 
1Е С11рроага .НазРогтае (СЕ_ВТТМАР) Реп 
Беч1п 
РазсеВаеСоп.Епаю1еЯ := Тхгае; 
ВгеаКк; 
епЯ; 
епа; 


епа; 


Для начала мы делаем кнопку Вставить неактивной. Потом запускаем цикл от 0 
до количества форматов в буфере обмена с11рьоахА.ЕогтаЕСоципе. Внутри цикла 
происходит проверка. Если формат соответствует сЕ_вттТМАР, то кнопку Вставить 
можно делать активной и прерывать цикл проверки. 

И последнее, что надо сделать в программе, — это сформировать обработчик 
события оп5бном для нашей главной формы. В нем напишите следующий код: 

ргосеиге ТЕогт1 .Еогта5Ном (бепаег: ТОБ)ес®); 

Беа1п 

ЕС] 1рБоагЯаОутег := $еЕС11рЬоаг@а\У1ещет (Напа1е); 
С11рБоагЯСВапсдеа; 


епЯ; 


В первой строке вызывается функция 5есс11рьоаха\у1емек. Она устанавливает 
‘указанное как параметр окно (главное окно) в системе в качестве наблюдателя за 
буфером обмена. В результате функция возвращает нам окно, которое находится 
следующим в цепочке наблюдателей. Вспомните, что именно этому наблюдателю 
`мы посылаем сообщение 5епаМеззаче В процедуре имргамс11рьоага. После этого, 
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как только буфер изменится, окну будет отправлено соответствующее сообщение 
и оно будет зафиксировано процедурой имогамс1 1рЬоака. 

Во второй строке вызываем процедуру с11рьоахасвапаеа, чтобы при старте 
программы произошла проверка — находится там картинка или ее нет. Если этой 
проверки не производить, то программа после запуска еще не будет знать, что на- 
ходится в буфере. Это будет до тех пор, пока он не изменится и программа | не по- 
лучит соответствующего сообщения. 

Попробуйте запустить свой вариант программы и последить за кнопкой Вставить. 
Запустите любые другие программы и попробуйте в них поместить в буфер данные 
разного типа. Как только вы поместите туда картинку, так сразу же программа 
среагирует на это и сделает кнопку Вставить активной. 

Несмотря на то что приложение уже работает, его нельзя назвать законченным. 
Дело в самом принципе наблюдения за изменениями в буфере. В У/тдо\$ создает- 
ся цепочка наблюдателей за буфером, и сама ОС знает только о существовании 
первого наблюдателя в системе, а за самой цепочкой должны следить сами прило- 
жения. Для этого каждая программа, регистрирующая себя в качестве наблюдате- 
ля, должна отлавливать и обрабатывать событие ММ_СНАМСЕСВСНАТМ. Это событие 
вызывается каждый раз, когда какая-то новая программа регистрируется в качестве 
наблюдателя или наоборот, один из наблюдателей исчезает из цепочки, т. е. цепоч- 
ка изменяется. | 

Когда. мы регистрировали свое приложение в качестве наблюдателя, то в каче- 
стве результата получали указатель на окно, которое находится следующим в це-. 
почке, а при изменении содержимого буфера отправляли соответствующее сооб- 
щение следующему окну. ОС У\У/шдо\з$ передает сообщение только первому окну 
в цепочке, а далее сообщение передается наблюдателями самостоятельно, и чтобы 
цепочка не нарушилась, мы должны отслеживать изменения. 

Давайте в нашей программе создадим процедуру, которая будет реагировать на 
изменения в буфере и обрабатывать событие им_сСнАМСЕСВСНАТМ: 

ргосеаоге ММСБапдзесВСВа1п (Уаг Мза: ТММСвапаеСсвВСрВа1п); 

пез5аче ММ_СНАМСЕСВСНАТМИ; 


Код этой функции должен выглядеть следующим образом: 
ргосеаиге ТРогт1 .ИМСВапчесвВСВа1п (уах Мза: ТИМСНапаесвВСВа1т); 
Беч1п 

1Е Мза.Ветоуе = ЕС] 1рБоагаОмтех сПеп 

ЕС11рБоагЯаОутег := Мза.Мехе 

е1зе 

бепаМеззаае (ЕС11рБоагАОмтех, ММ_СНАМСЕСВСНАТМ, 

Мза.Кепоуе, Мза.Мехе); 

епа; 


В качестве параметра нам передается структура, из которой можно узнать: 
С] ветоуе — это свойство содержит указатель на удаляемый наблюдатель; 
С мехе — указывает на следующий элемент в цепочке. 


Мы должны проверить, если из цепочки удаляется окно, следующее в цепочке 
за нашим, то мы должны заменить наше окно ЕС11рЬоахг@О\техг на следующее за 
удаляемым М5ч.МехеЕ. Если же удаляется какое-то другое окно из цепочки, то мы 
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должны передать событие им_СНАМСЕСВСНАТМ ПО цепочке далее, чтобы следующее 
окно могло сделать такую же проверку. 

Вот теперь наше приложение можно считать не только законченным, но и кор- 
ректным, потому что оно не разрушит цепочку. 


ПРИМЕЧАНИЕ. На компакт-диске, прилагаемом к книге, в папке \Примеры\Глава 23\ 
|паде вы можете увидеть пример этой программы. 


23.4. Создание собственного формата 
для работы с буфером 


Представьте себе ситуацию, когда в программе есть какой-то объект и нужно 
дать пользователю возможность копировать его в буфер, а затем вставлять в нуж- 
ное место. Стандартные форматы данных для буфера СЕ_ТЕХТ, СЕ_ВТТМАР, 
СЕ_МЕТАРТГЕРТСТ И Т. Д. не подходят, но данные копировать надо. Программисты 
с такой ситуацией встречаются практически в каждой своей программе. В таких 
случаях нужно создать собственный формат данных, с которым и будет работать 
буфер обмена. 

Язык Рерм — это объектный язык. По условиям объектного программирова- 
ния, чтобы добавить новые возможности к уже существующему объекту, нужно 
создать его потомка. В данном случае мы, по идее, должны вывести потомка из 
ТС11рЬоага и наделить его уникальными возможностями по форматированию 
нужных нам данных. В данном случае это будет не совсем правильно. Объектное 
программирование — хорошее дело, но только когда оно в меру. В следующем 
примере нам не понадобится наследственность и мы не будем использовать техно- 
логию родителей и потомков. 

Итак, создайте новый проект и сразу же создайте в нем новый модуль 
(ЕПе | Мех | Оп). Реры создаст пустой модуль, который мы сохраним под именем 
СИрБоагаРогта Опи. 

В разделе 1пеегЕасе добавляем раздел суре, объявляем структуру тЬ1перака 
и новый объект ть1пес11рЬоака (листинг 23.4). 


Суре | 
ТЪзрерака=хесока 
Маше : $Ех1па [100]; 
ТазЕМаше : $Ех1па [100]; 
ВосПаау: $Еу1па[10]; 
Аае: Тпбедег; 
Те1ерпопе: $ех1па [15]; 


ета; 


ТЬ1пеС11рБоахга=с1а$$ 
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ручЬ11с 

Г1пераба:ТЬ1пераба; 
ргоседите СоруТоС]11рЬоага; 
ргоседоге РазсеЕгомС11рроага; 


ева; 


Структура тьзпераеа состоит из пяти полей. Именно эту структуру мы и будем 
помещать в буфер обмена. Как вы уже поняли, объект с11рьоага не может рабо- 
тать со структурами. В связи с этим сейчас напишем модуль, с помощью которого 
научим его это делать. | 

После структуры идет объявление нового объекта. Новый объект описываем 
в программе, определяя там все его методы и свойства. Чаще всего за нас это делал 
Ре!рш. Обратите внимание на то, что он объявлен как простой объект без каких- 
либо родителей (тт1пес11рЬоахг9=с1азз). Несмотря на это, он будет иметь родите- 
ЛЯ — ТОБуесь, потому что все объекты должны иметь родителя, и если ничего не 
указано, то будет использоваться базовый объект тоь3ес+. У нового объекта будет 
только одно свойство типа структуры тЬ1пераса и два метода для копирования 
и вставки данных в буфер обмена. о) 

Теперь после раздела куре напишем уаг и опишем одну переменную: 

‚уах — 
СЕ_РЕКЗОМРАТА:мога; 


_Имя переменной может быть и другим, но принято начинать имя с префикса 
СЕ_, что означает СйрБоагд Когта{ (формат буфера обмена). В этой переменной 
будет храниться указатель на зарегистрированный формат для буфера обмена. 
Давайте не будем откладывать это дело на потом, а сразу же реализуем регистра- 
цию в системе нового формата. Для этого в конце модуля перед последним епа 

запишем: | 
_  аатраелоп | 

СЕ_РЕВСОМРАТА: =Веч1зкегС11рЬоагаЕРогта* ('СЕ_РРАТА'); 


епа. 


Здесь мы объявили блок 1п1Е1а11хаЕ1оп, который всегда выполняется авто- 
матически при обращении к модулю или любому его содержимому. В этом блоке 
присваиваем переменной СЕ_РЕВЗОМРАТА результат выполнения функции 
Ве9155ехС11рЬоагЯРохта*. Функция регистрирует новый формат для буфера об- 
мена с именем, указанным в качестве единственного параметра. Результат вы- 
полнения функции — число, идентифицирующее зарегистрированный формат 
данных. После этого данный формат можно увидеть в свойстве гогтаЕз объекта 
С11рБоага. 

Вот теперь перейдем к реализации функций записи и чтения данных из буфе- 
ра. Копирование на первый взгляд реализуется довольно сложно. Но это только 
на первый взгляд. Посмотрите на листинг 23.5, где показан код процедуры копи- 
рования. 
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ргоседиге ТЕ пеСс11рьоаха.СоруТос14рЬоага; 
уат | 
РаЕа:ТНапа1е; 
РасаРех:Ро1псег; 
Беа1п 
//Выделяем память под данные 
Раса: =С1о0о5а1А11ос (СМЕМ_МОУЕАВЦЕ, 612е0Е (1лперака) ) ; 
сгу 
РабаРЕг : =С1ора11осК (Рафа); 
Моте (Т.1пераба, РабаРехг^, $12е0Е (ТЬ1перака)); 


//Заполняем буфер обмена 

С11рЬоаха.Ореп; 

С11рЬоагха. зе-АзНапЯ1е (СЕ _РЕВЗОМРАТА, Рафа); 

С11рьоака .АзТехе : =.1пераба.Маще+#13#10+Т 3 перака .ТазЕМаме+#13#10+ 
Т.1пераба .ВоеПЯау+#13#10+ТпЕТобег (11пераба.Аде) +#13#1.0+ 
Т.1перафа.Те1ерропе; 

С11рБоага.С1о5$е; 

С]ора1Оп]1осК (Раба); 

ехсере ' 

С1оБа1Егее (Раба); 

епа; 


епЯ; 


В процедуре объявлено две переменные: 


С) раса — в эту переменную мы будем выделять память для хранения структуры, 
которую надо будет поместить в буфер обмена; 


О РасарРЕг — указатель на выделенную для переменной Раба Память. 


В самом начале процедуры мы присваиваем переменной рака результат вызова 
функции с1оЪа1А11ос. Эта функция выделяет нужную область памяти в общем 
массиве глобальной памяти. При этом у нее имеется несколько параметров. 


С Параметры (флаги) выдёляемой памяти. Здесь указан флаг СМЕМ_МОУЕАВЬЕ, КОТО- 
рый указывает на то, что память может быть перемещаемой. Например, когда 
ОС не хватает оперативной памяти, то она может выгрузить некоторые страни-. 
цы памяти на диск. Затем, по мере надобности, вернуть их обратно в память. 

О Размер выделяемой памяти. Здесь мы указываем размер $1хеоЕ структуры 
Г1перафка. | | . 
Следующим этапом блокируем выделенную память с помощью функции 

С10рА11ос И Получаем указатель на выделенную память, который сохраняется 

в переменной рагарек. 
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У нас есть выделенная память, и мы ее временно заблокировали для работы. Те- 

перь мы должны скопировать в эту память структуру, которая должна быть поме- 
щена в буфер обмена, Для этого пользуемся процедурой моте, которая -копирует 
данные из одного участка памяти (первый параметр — структура т.1перака) в дру- 
гой (второй параметр — выделенная память РасаРехг). Третий параметр — это раз- 
мер копируемых данных. Здесь указывается размер нашей структуры. 
_ Память подготовлена, и в нее занесены данные для буфера обмена. Теперь мож- 
но приступать к передаче этих данных в буфер. Для начала буфер надо открыть 
(Ореп) для записи. Следующим этапом мы заносим в буфер данные в виде струк- 
туры (зарегистрированного нами формата сЕ_РЕВЗОМРАТА). Для этого используется 
метод зеАзНапа1е. У этого метода два параметра: 


‘О тип заносимых данных; 
С данные. 


Дальше, заносим данные в виде текста, чтобы программы, которые не знают 
о существовании нашего собственного формата, могли прочитать их в виде текста. 
Для этого. текст надо занести в свойство АзТехЕ объекта с11рьоака. В это свойство 
заносим все поля структуры, разделенные символами #13#10, Символ #13 означает 
конец строки, а #10 означает перевод каретки на новую строку. Получается, что 
каждый параметр будет занесен в виде отдельной строки. Чуть позже вы увидите, 
как это выглядит на практике. 

Данные занесены, можно уничтожать все, что больше не потребуется. Для нача- 
ла закрываем буфер обмена с помощью вызова метода с1озе объекта с11рьоахга. 
Потом вызываем метод с1оьа19п1оск, который разблокирует память. Уничтожать 
выделенную память (вызов с1оЪа1Егее) нужно, только если во время записи про- 
изошла какая-то ошибка. Поэтому вызов этой процедуры поместили в блоке 
ехсере...епа. Если ошибок не было, то память должна остаться целой и невреди- 
мой, потому что там хранится структура. | 

Вот теперь разберемся с кодом, который получают данные из буфера обмена. 
Взгляните на процедуру РазкеЕгопшС11рЬоака (листинг 23.6). | 


ргоседиге ТЬ1пеС11рЬБоага. РазбеЕгомС11рБоага; 
уах | 

Раба: ТНапа1е; 

ПафсаРЕх:Розпеег; 
Беа1п 

Раба: =С11рВоага.СесАзНап1е (СЕ_РЕВБЗОМОРАТА); 
1ЁЕ ПРаба=0 ЕВеп ех1{; 


ПабаРег: =С1ора1ШосК (Рака); 
ь Моуе(РабаРехг^, Г1перабса, $12е0Е (ТЬ1перака)); 


С1оБа1Оп]1осК (Раза); 
епа; 
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В первой строке кода мы пытаемся получить данные из буфера обмена с помо- 
_щью функции сесазНапа1е. Этой функции нужно передать формат, в котором мы 
хотим получить данные. Если значение, которое нам вернула секАзНапа1е, равно 
нулю, то данных в буфере нет, или они имеют несовместимый формат. В этом слу- 
чае процедура прерывает свое выполнение. 

Если все нормально, то в переменной раса будет указатель на блок памяти 
с данными буфера обмена. Для их получения блокируем память и пользуемся уже 
знакомой процедурой моуе для копирования данных из памяти буфера обмена 
(первый параметр) в структуру г1перафа (второй параметр). 

Данные получены, можно разблокировать память с помощью процедуры 
С1оБа1Оп1оск. | 

Все. Модуль готов. Теперь переходим к написанию основной программы, кото- 
рая будет использовать созданный нами формат данных для копирования и вставки. 
через буфер обмена. У нас уже создан новый проект, в котором мы написали мо- 
ДУль С11рЬоагагогтаЕОп1е. Перейдите в основное окно и поместите на форму сле- 
дующие компоненты: | 


О две кнопки Копировать и Вставить; 


О компонент $Ех1пасгза (в нем нужно изменить свойство дчоЕЯ1Е1та в разделе 
ОрЕ1оп на кгие, чтобы мы могли редактировать ячейки в сетке); 


О мешо — используется для отображения содержимого буфера в виде текста. 


Эту форму вы можете : увидеть 
на рис. 23.4. Для реализации кнопок 
можно использовать компонент Тоо1Вах, |“ иена не 
чтобы программа выглядела более ЕЕ - 
эстетично и красиво, но вы можете 
поступить и по-другому. 

Сразу же добавьте в раздел изез 
наш Модуль С11рЬБоагаЕРогмаеОп1е, 
чтобы вы могли использовать новый 
формат из главной формы. 

Теперь создадим обработчик собы- 
ТИЯ ОпС14ск для кнопки Копировать 
и напишем в нем код, представленный 
в листинге 23.7. 


ргосеаите ТЕоут1 .СоруВаЕЕопС11ск (5епаег: ТОБзесе); 


уах 
Т.1пеС11рБоага: ТЬ1пеС11рБоата; 

‚ Бед1п 

Г1пеС11рроага: =ТЬ4пес11рЬоага.Сгеаее; 


Г1пеС11рроага.. 11пеЛраба .Маше: =5Ех1п9Сг1@а1.Се11$[0, $Ех1п9Сг1а1.Во\м]; 
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Г1пеС11рБоага.11пеПаса .ГазЕМаме : =56:1п9Сх191.Се]11$[1, 5Ех1п9Сх1а1.Вом]; 
Г1пеСс11рЬоага.Г1пераба.ВоеНдау: =5Ех1п9Сх191.Се11з[2, $Е:119Сх191.Ком]; 
Т1пеС11рБоагка .Г1перака.Аде: =5ЕхТоТпе (56и1п9Сг191.Се11$[3, 5Ех1п9Сг1&а1.Вом]); 
.1пеС11рЬоахга.Г1перака.Те1ерропе : =5Ех1п19Сх191.Се11$[4, 56:1п9Сг1а1.Ком]; 


Т1пеС11рБоагха.СоруТоС11рБоага; 


Т1пеС11рроаха.Егее; 


епа; 


В разделе уах объявлена одна переменная типа тт.1пес11рьоага — объект для 
работы с буфером обмена, который был написан в модуле с11рьоагагогтае пе. 
В первой строке кода мы инициализируем эту переменную. 

Потом заполняем структуру г1перака объекта 11пес11рьоага данными из вы- 
.‚ деленной строки сетки. По завершении этого процесса копируем данные в буфер 
обмена с помощью вызова метода соруТос1 1рЬоагка объекта г.1пес11рЬоакха. 

Данные скопированы, значит, объект уже не нужен, и его можно уничтожать. 
Для этого вызываем метод ггее. _ — | 

Для события 0пс1+1ск кнопки Вставить напишем следующий код (листинг 23.8). 


рхгосеаоге ТЕоги1 .РазкевВиЕопС11ск (Зеп4ег: ТОБЗес®); 
уах 

1 пес] 1рБоага: ТЬ1пеС11ррБоага; 
Ъед1п 

Т1пеС11рБоага: =ТЬ1песС11рБоага.Сгеа*ее; 


1Е С11рьоага.НазРогтае (СЕ_РЕВЗОМОАТА) Реп 

Бед1п 

Г1пеС11рроагха.РазЕеЕхгомС11рроаха; о , 
56:1196:191.Се115[0,5Е:1п96.1а1.Во\м] : =.1пеС11рроага .Г1перафа.Мапе; 
5Ег119Сх1491.Се11$[1, 56:1п96:191.Вом] : =21пеС11рЬоага.тГ1перака.ГазЕМаше; 
56:1190х191.Се11$[2,5Е:1п906г191.Вом] : =.1пеС11рЬоага .Г1перака.ВоЕПадау; 
$Е:119Сг191.Се11$3[3, $5%Ех1п49Сх1@91.Ком] : =ТпЕТобех (Г1пеСс11рьбоага.Г41пераба.Адае); 
5Е:1196г191.Се11$[4, 5Ех119С6г1&а1.Ком] : =.1пеС11рБоага.Г1перафа.Те1ерпопе; 


еп; 


Т1песС11рроага.Егее; 


Мето1 .Г.1пез.С1еахг; 
Мегто1 .РазееггомС11рроака; 


епа; 
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Опять же здесь объявлена переменная т.1пес11рЬоаха, которая инициализирует- 
ся в первой строке кода. После этого проверяем, если буфер обмена содержит ин- 
формацию в формате сЕ=_РЕВЗОМРАТА (это созданный нами формат), то мы читаем 
буфер с помощью метода РазееЕРхгомС1 1рроахка. После этого заполняем поля теку- 
щей строки из структуры т1перака объекта г.1пес11рьоаха. 

В самом конце процедуры очищаем компонент Мето1 и заставляем его с помо- 
щью метода РазкеРкгопС11рЬоака прочитать данные из буфера. Этот компонент не 
знает о существовании нашего формата и читает данные из буфера обмена как 
текст (это его родной формат). Получается, что мы увидим в компоненте то, что мы 
записали в свойство АзТехе объекта с11рьоага. Одновременно со вставкой в ком- 
понент $+г1п9бх1а происходит вставка текста буфера в компонент мемо. 


ПРИМЕЧАНИЕ. На компакт-диске, прилагаемом к книге, в папке \Примеры\Глава 23\ 
Мем/ Гогта{ вы можете увидеть пример этой программы. 


ЦА 


} 


Глава 24 


Дополнительная информация 


Мы уже знаем достаточно много о программировании в Рерш, но очень мало 
говорили об оболочке, в которой программируем. В большинстве книг именно 
с нее начинается обучение. Мне кажется, что это не совсем правильно. Нет смысла 
обучать человека тому, чего он абсолютно не собирается применять, потому что не 
знает, зачем и когда. Сначала нужно заинтересовать его и показать, как применять 
свои знания, что мы и делали на протяжёнии всей книги. Теперь же, когда накоп- 
‚ лено достаточно знаний для написания собственных проектов, пора узнать, как ра- 
ботать с оболочкой Веры, как тестировать и отлаживать написанные приложения. 

В программах регулярно возникают ошибки даже у именитых профессионалов. 
Для выявления их необходимо много сил и терпения. В связи с этим в данной главе 
достаточно подробно рассматриваются вопросы, связанные с отладкой и тестиро- 
ванием программ. 


24.1. Тестирование и отладка 


Для начала разберемся с отладкой программ. Отладка — это пошаговое выпол- 
нение команд программы. В этом режиме каждая строка кода выполняется по 
команде и сразу после ее выполнения Реры останавливает ее работу и ждет сле-_ 
дующей команды. Когда программа остановлена на определенном шаге выполне- 
ния, вы можете просмотреть значения переменных и даже изменить их значения, 
чтобы повлиять на дальнейший ход выполнения. 

Точка прерывания — строка кода, на которой программа должна остановить 
свое выполнение, а управление должно быть передано в Оерш для продолжения 
выполнения в пошаговом режиме. 

Для того чтобы поставить точку прерывания, нужно выделить строку и нажать 
клавишу <Н5>. Эта строка должна окраситься в красный цвет. Если она сразу или 
после компиляции оказалась другого цвета, то на этой строке программа не может 
останавливаться. На рис. 24.|] вы можете увидеть пример строки, на которой уста- 
новлена точка прерывания. 

Слева от строки может стоять синяя точка. Это делается в том случае, когда 
строка может стать точкой прерывания. Если такой точки нет, то и прерывания не 
может быть. Эти точки видны не всегда. Они могут пропадать и появляться только 
после очередной компиляции программы. 


20 Зак. 1273 
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в С УабаБез/ Солдат | 
#-23 зе Г. { Рирз3с Яес1агаёзолз } 
|| ела; 


'уаг 
Роги1: ТРоги1: 


| — | рлетет а 1 оп 


{Ск * 


|ркосейике ТРОЕ . Вдсс0и1С11сК (5епаег: ТОБ)ес®); 
Бред 


8: 8 {Модйед — о ихей 


Рис. 24.1. Точка ванн 


а Я И ею - 
|3 >35 ТРот им | НИ Ва 
|$-С3 МапаЫез/Сопяаг$ |. РГогю1: ТЁРоги1; | ее 
|3-С9 Узез ГО 
о. | пр етел а 1оп 
: | 
| {$8 `* ава) 
| |ркосейике. ТРОЕ . Виссои1С11СК (Зепдег: ТОБ3есо); 
Г. .|уак 
1, ):Тиседег; 


еее рии олотоя р о ожеьеы пн 
^ Мое Пизен — \ Соде АСадтат/ | р 


[Ни Уп .раз(31): Маме аззюпед © 'Г мемег изед 
[Нид Чи .раз(30); Маме аззопед (© Т пемег изед 


| вы: 


Рис. 24.2. Список сообщений внизу окна редактора кода 
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Если вы внесли какие-то изменения в код или добавили строку, то напротив 
этой строки не будет никаких точек, даже если здесь программа может остановить 
свое выполнение. Оболочка Веры просто не знает о том, что делает этот код. Оче- 
редная проверка произойдет только во время следующей компиляции, и только по- 
сле нее будут выставлены правильные точки прерывания. | | 

Давайте напишем маленький пример и попробуем разобраться с отладкой на 
нем. Создайте новое приложение и установите на форму одну кнопку. По событию 
ОпС11ск, связанному с ее нажатием, напишите следующий код: | 

ргоседохге ТЁРоут1 .Вие6оп1С11сК (бепаег: ТОБЗесе); 

уах | | 

‚1, ):Глбедег; 

Беа1п 

1:=10; 
9:=20; 
1:=1+); 

епа; | 

Теперь откомпилируйте программу (<Си1>+<Е9>). После компиляции вы уви- 
дите три сообщения типа Уаше аз 2пе4 {0 ‘1’ пеуег ие (рис. 24.2). Эти сообще- 
ния говорят о том, что значения, присвоенные указанным переменным, не исполь- 
зуются. В таких случаях Реры оптимизирует код программы, и раз значения не’ 
используются, то и незачем компилировать этот код. 

Обратите внимание, что слева от строк кода не появились синие точки. Это зна- 
чит, что мы не сможем установить на них прерывания. Точнее сказать; сможем, но 
они не будут работать. Это связано с тем, что Веры оптимизировал эти ‚строки, 
потому что они явно не влияют 
на ход программы. Мы произво- ®‚ а И 
дим расчеты, но они никуда не _ `Риодес Орнопя Гог Ргодес Ме ‘ехе ее И | 
выводятся. Таким образом, толь- 


Окесопе$/Сопднопа$ \Мегзюп |пЮ РасКадез ] 
ко по синим точкам вы можете _ Роги | Аррйсацоп Сотрие Сотриег Меззадез | лкег | 
_ проверить, какой код был опти- 
мизирован. о | а Вапде спескипд .. 
Чтобы Бер не выдавал по- г альт 1 еси 
. _ Г. Репбалезае РОМ Г Омен секта 
добных сообщений и не оптими- [6 пеовавадитем — а 
зировал код, вы можете отклю- И | 22 М вы отайоя 
чить оптимизатор. Для этого Г Зумах ори — 7: М Госазитьов 
нужно выбрать меню Ргоуесе | в ЗЕ уаг-5 ито Г: м Небменсе о 
. Г Сотрае Бодеап еча! Г: ^7 Оебтйотз оп 
Ор@оп$ и в появившемся окне на 2 Емепде зимах М Аззенюля 
вкладке Сотрйег убрать флажок Г Туре @ орз. они 
с позиции Орйпитайоп (рис. 24.3). ‚№ Преп рагатее 


‚ М Ниде 540$ 
Г Аззопае уред сопзагиз 
всех строках кода и даже на тех, ——- 


которые не несут смысла. _ Г” Оегаий Сапсе! Нер | 


Но такое делать не желатель- 


но, потому что оптимизация — Рис. 24.3. Окно настроек проекта, 
это очень хорошая и удобная где отключается оптимизатор 


В этом случае точки появятся на. 
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вещь. По сообщениям можно определить ненужные переменные (объявленные, но 
не используемые) и найти участки кода, где логика нарушена. Возможно, что вы 
присвоили значение одной переменной, а используете потом другую. Такую ошиб- 
ку легко найти по сообщению оптимизатора. 

Старайтесь писать код так, чтобы после компиляции не было даже сообщений 
и предупреждений, тогда ваш код будет эффективен, и проще будет искать про- 
блемные места. Если у вас после компиляции появляется 50 и более сообщений, из - 
которых 49 действительно не влияют на ход программы, то единственное серьезное 
предупреждение вы не заметите. 

Давайте откорректируем код и приведем его к виду: 

ргосеаиге ТРоут1 .Вав6оп1С11сКк (бепаег: ТОБЗес®); 

уаг 

1, ):Тобедег; 


Бед1п 
1:=10; 
7:=20; 
1:=1+); 


1Е 1>0 ЕПеп ех1е; 
ета; 


В самом конце процедуры всего лишь добавлена проверка переменной 1. Если 
она больше нуля, то произойдет выход из процедуры. Этот код тоже не влияет на 
ход выполнения программы, потому что даже если 1 будет меньше нуля, процедура 
все равно заканчивается и произойдет выход. Но если теперь откомпилировать . 
программу, то сообщений не будет и слева от строк кода появятся синие точки. Это 
потому, что мы уже используем переменную : (в условии 1:=), а значит, оптимиза- 
тор не имеет права не компилировать этот код и его.уже имеет смысл отлаживать. 

Вот такой хитрый прием с проверкой состояния переменной может обмануть оп- 
тимизатор Реры, но никто и не обещал вам, что оптимизатор будет сверхумным. 

Установите точку останова (клавиша <Е5>) на первой строке нашей процедуры 
после ключевого слова Ъеч1п. Теперь запустите программу, и, как только вы на- 
жмете на кнопку, выполнение остановится и управление получит Оерш. Чтобы 
продолжить выполнение программы до следующей строки, можно нажать клавишу 
<Е8> или <Е/>. 

Если выделенная строка — ваша процедура или ‚ функция, то можно нажать кла- 
вишу <Е7>, чтобы отладчик перешел внутрь этой процедуры и продолжил ее вы- 
полнение построчно. Если вы нажмете <Е8>, то отладчик выполнит процедуру без 
входа в нее и перейдет дальше. В этом случае нельзя посмотреть, что произошло 
внутри процедуры и как она отработала. 

Если вы хотите, чтобы отладочный режим закончился и программа продолжила 
выполняться самостоятельно (пока не встретится следующая или эта же точка пре- 
рывания), нажмите <Е9>. После этого программа продолжит свое выполнение 
с последней точки останова, которая была отработана. - 

Иногда ошибки возникают только при определенном условии, которое встреча- 
ется очень редко или только на определенном этапе цикла. Что делать? Если уста- 
новить точку прерывания на цикле из 1000 шагов, то можно обойти построчно все 


2 
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1000 шагов, что отнимет очень много времени. Чтобы решить эту проблему, можно 
поступить старым методом древних программистов — добавить условие внутри 
цикла, которое будет выполнено ближе к концу цикла, и именно на это условие 
нужно будет поставить прерывание. Например: 

Еог 1:=0 Со 1000 ао 

Бед1п 

_ 1Е 1=999 Ереп 


Выполнить какое-то действие; // Сюда установить точку прерывания 


// Действия цикла 


епа; 


Этот метод приходилось использовать, начиная еще с Паскаля, когда среда раз- 
работки и отладчик были не такими умными и мощными. Но в Веры есть метод 
лучше. Установите точку прерывания на первой строке цикла без создания каких- 
либо дополнительных условий. Теперь щелкните правой кнопкой мыши по крас- 
ной точке, символизирующей точку прерывания, слева от кода. Из контекстного 
меню нужно выбрать пункт ВгеаКроше ргорег@йе$. Перед вами. появится окно 
свойств точки остановка. Самыми интересными здесь являются два параметра: 


‚0 Соп@ оп — здесь можно написать условие, при котором должна сработать 
точка прерывания. Это условие может быть в виде кода на Реры, например, 
1=999, | 

О Ра$$ соипё — количество проходов, через которые нужно остановиться. Если 
в этом поле ввести 1000, то 999 раз программа пройдет через точку прерывания 
без проблем, а на 1000-йЙ раз работа программы будет остановлена. 


Если вы хотите совсем ‚остановить работу программы, то нажмите сочетание 
клавиш <С]>+<Е2> или выберите из меню Кип пункт Ргоггат Везеф, и выполне- 
ние программы будет прервано аварийно, она будет выгружена из памяти. Старай- 
тесь не использовать этот метод прерывания, потому что память может быть не 
очищена полностью и выделенные программе ресурсы могут остаться активными. 
Например, ОС и Реры не смогут освободить открытые файлы или открытое со- 
единение с базой данных. Это значит, что в БД могут остаться открытые сессии, но ` 
что еще страшнее — заблокированные ресурсы. 


СОВЕТ. Если вы отлаживаете приложение, которое работает с таблицами или базами 
данных через ВОЕ, то не рекомендуется прерывать его выполнение, потому что в па- 
мяти остается не закрытая сессия связи с ВОЕ и повторный запуск приведет к ошиб- 
ке. Это связано с тем, что старая сессия связи не закрыта, а для новой невозможно 
выделить память. Поэтому всегда завершайте подобные программы корректно. 


Когда вы хотите посмотреть, какое значение хранится в переменной, то надо ее вы- 
делить и нажать клавиши <Си]>+<Р7> или выбрать Еуаща | МодЙу из меню Вип. 
Перед вами откроется окно, показанное на рис. 24.4. Если вы видите, что значение не- 
правильное и хотите его изменить, то в строке Мем уаше нужно ввести другое значение 
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_.и нажать кнопку МоаНу. Чтобы пе- | [% „* _ю 
речитать значение переменной, нуж- | Енёшае Модь мас тра Но 


но нажать кнопку Еуашае. | | Екмезвок: 


В окне Еуашае/МоаНу можно | у 


‚ Вече 


вводить не только переменные, но 
и целые выражения. Например, 
в предыдущем примере поставьте 
точку прерывания на первой строке 
кода процедуры —ВаеЕоп1С11ск. 
Теперь запустите программу и на- 
жмите кнопку: Выполнение про- 
граммы должно’ прекратиться и 
управление перейдет в ОБеры. 
Нажмите <ЕЗ>, чтобы выполнить 
первую строку кода и перейти на вторую. Текущая строка должна быть выделена си- 
ним цветом. Теперь нажмите сочетание клавиш <С&1>+<Е7> и в строке Ехргез$юп ок- 
на Еуашае/МодИу введите выражение — 1+10. Нажмите <Емег> или кнопку 
`Еуашае, чтобы просчитать это выражение. В строке Везий должно появиться значе- 
ние 20, потому что переменная 1 равна 10 плюс еще 10. Получаем результат 20. 

Введите в строку Ехргез$юп просто переменную 1. Перечитайте ее значение 
нажатием кнопки Еуашайе. Далее в строке М№ем. УаШше введите значение 15 и на- 
жмите кнопку МодИу. Теперь переменная 1 должна равняться 15. Проверьте это 
нажатием кнопки Еуашафе. 

Попробуем ввести в строке Ехргезюп выражение 1=10. Здесь используется 
операция сравнения переменной 1 и числа 10. Если переменная равна 10, то мы 
должны увидеть в строке Вези значение сгие, иначе — Еа1зе. 

Вы можете просматривать не только переменные, но и свойства объектов. Набе- 
рите в строке Ехргезяюопт следующий код: гохт1.м1аеЕн. Здесь гоги1 — ЭТО ИМЯ 
формы, и мы хотим просмотреть ее ширину. Нажмите <Етег>, и вы увидите значе- 
ние. Хотя у нас в коде нет обращения к этому объекту, мы можем просмотреть его 
значения, потому что форма существует в памяти и в. данный момент работает. 
Некоторые свойства будут все же недоступны из-за оптимизатора, но в большинст- 
ве случаев вы сможете увидеть или изменить значения объектов. 

Теперь надо рассмотреть понятие видимости переменных. Остановите работу 
программы. Для этого нажмите сочетание клавиш <СИ]>+<Е2>, чтобы программа 
выгрузилась без сохранения данных, или продолжите программу нажатием клави- 
ши <Е9> для окончания отладочного режима и закройте окно программы. Снова 
запустите программу нажатием клавиши <Е9>. Теперь нажмите кнопку в окне про- 
граммы. В результате Ое!рЬ! прервет ее выполнение, произведя переход в отладоч-_ 
ный режим. Выделите переменную 1 и нажмите <Си1>+<Е7>, чтобы увидеть зна- 
чение переменной. Вместо ее значения в строке ВезиЙ вы увидите следующий 
текст — УамаЫе '1" штассезМе веге дие {0 орНпитаНоп (Переменная { недоступна 
в этом месте, потому что оптимизирована). В данном случае программа остановила 
свое выполнение на строке: 


1:=10; 


Рис. 24.4. Окно просмотра значений переменной 
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Здесь мы ‘присваиваем переменной 1 значение 10. До этого кода переменная не 
имеет значения, поэтому мы и увидели такую надпись. Попробуйте выполнить эту 
строку, нажав клавишу <Е8>, и снова посмотрите значение переменной 1. Теперь 
значение равно десяти. | 

Попробуйте выполнить процедуру до самого конца. Остановитесь на следую- 
щей строке: | | 

1Е 1>0 ЕБеп ех1е 


Теперь посмотрите значение переменной 3. Вы снова должны увидеть сообще- 
ние о том, что переменная оптимизирована и не имеет значения. Это связано с тем, 
что, начиная с текущей строки кода и до конца процедуры уже нет обращений 
к значению переменной. Значит, это значение не нужно и Вер его снова оптими- 
зировал. | 

Есть еще один способ увидеть 
текущее значение переменной. Е ое ниИННЫИЬ 
Вы должны также вы делить эту |“ __1Уае ОВ, 
переменную и нажать клавиши | | 
<Си1>+<Е5> или выбрать А@а 
УУакВ из меню Вип. Перемен- 
ная будет добавлена в специаль- 


ное окно УМаВ, в котором будет 
ПОСТОЯННО отображаться ее те- Рис. 24.5. Окно наблюдения за переменной \ММасп 


кущее значение (рис. 24.5). 

Если вы все сделали правиль- 
но, то программа у вас должна 
быть остановлена на последней 
строке кода процедуры. Нажми- 


те <Е9>, чтобы продолжить ее Екрезю" | | =] 


\Месв Ргорег1ез 


выполнение, и вы увидите окно < о 
своей программы. Снова нажми- Вере сои | ок в 


те клавищу, и программа снова Г ЕраЫеч Г Док Рип свой Са 

остановит выполнение на первои и ОНИ, 
1“ г : г 

строке процедуры (если вы не б САагаце | Незадесита! Весог4/5нисише 


СС бита | С Еюабпо рой @ Без 
сняли точку останова). Добавьте Пр Гры 


| С Метогу битр 
Попробуйте дважды щелк- .. Сапе |  Нер 

нуть по строке с переменной 1 

в окне УУакЬ, и перед вами от- Рис. 24.6. Окно настройки переменной для про- 


—-> ежики си 


кроется окно параметров про- смотра в наблюдателе МаФсв | 


смотра (рис. 24.6). В этом окне 

вы можете сделать достаточно | 

много настроек, но самое интересное — это центр окна. Здесь находится большое 
количество элементов — каа1оВиекоп. Выделяя один из них, вы выбираете тип пе- 
ременной. В зависимости от выбранного типа вы будете по-разному видеть ее 
в окне УМакв. Но. чаще всего вы не будете изменять эти настройки. Здесь доста- 
точно значений по умолчанию. 
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Теперь попробуйте расположить окно УМакВ так, чтобы оно всегда было на эк- 
ране и не мешало видеть код программы. Выполните. построчно код программы 
нажатием клавиши <Е8> и понаблюдайте за изменением значения переменной . 
После каждого шага значение будет автоматически перечитываться. 


СОВЕТ. Нельзя отлаживать приложения, использующие ОпесХ или ОрепСЕ, особен- 
но если они работают в полноэкранном режиме. Эти приложения вообще не рекомен- 
дуется запускать из ‘оболочки Оерш, а отлаживать запрещено. При наступлении кри- 
тической ситуации происходит автоматическое переключение в берш, и это может 
вызвать срыв в работе ОС. 


Если вам нужно узнать, как выполняется определенный код, то в это место луч- 
ше вставить вывод на экран (средствами ОПитесЕХ или ОрепОТ.) каких-либо сообще- 
ний или просто воспроизведение звукового сигнала. Отладка в графических про- 
граммах — это отдельный разговор и тут нужно действовать в зависимости от 
ситуации. Универсальных и одинаково эффективных способов для всех случаев 
жизни нет. 


ПРИМЕЧАНИЕ. На компакт-диске, прилагаемом к книге, в папке \Примеры \Глава 24\ 
Отладка вы можете увидеть пример использованной здесь программы. 


24.2. Работа с редактором 


Теперь мы познакомимся с некоторыми приемами по работе с редактором кода 
Реры. В этой части вы узнаете, как работать с закладками, как быстро создавать 
переменные, процедуры и функции и как искать нужный код. Если у вас маленькая 
программа и модуль состоит из нескольких строк, то тут не будет проблем даже 
с существующими знаниями, потому что найти что-то нужное не так уж и сложно. 
А что если проект большой и модуль состоит из 1000 строк? Вот тут возникает 
‘множество проблем, с которыми надо бороться. А ведь и 1000 строк не предел. 
В программах средней и большой сложности можно найти модули с более чем 
2000 строк. 


24.2.1. Закладки 


Установите курсор на какую-нибудь строку текста (выделять не надо) и нажми- 
те сочетание клавиш <СИ]>+<$ШИ>+<цифра>. Эти клавиши поставят закладку на 
строке, а точнее сказать, на выделенной позиции (строка плюс колонка). Теперь 
перейдите в другое место и нажмите одновременно клавиши <Си]> и ту же цифру. 
После этого вы вернетесь в строку, где была закладка. 

Когда вы устанавливаете закладку на строку, то слева от строки кода появляется 
изображение кубика с цифрой внутри. Цифра указывает на‘номер закладки, 
и именно эта цифра в сочетании с <СИ|> моментально перенесет вас в позицию, 
где была установлена закладка. Пример редактора кода с закладкой вы можете 
увидеть на рис. 24.7. 
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Евы: Маниий | 


при отит те иртн а а вия ив ат ае неа аси иьент о. весне вое ик 


мак 
‚ Рогит: ТРоги1; 


|101 етепл& а 1оп 

($8 * ЧЕ} 

 ркосейаке ТРокн1 .Вчесоп1С11СсКк(Зепаег: ТОБзесх); 
'уаг 


1, 5: Тоседег; 
Ъед1л 


@ | 1:=10; 
в 3:=20; 


( 1:=1+); 
@ |:= 120 мел ех1с; 
:еп@; 


`епа. 


Ней | \ Соде АО\адгат / 


Рис. 24.7. Окно редактора кода с закладкой 


Закладки можно устанавливать и`из контекстного меню. Щелкните правой 
кнопкой мыши в редакторе кода и в появившемся меню наведите курсор на пункт 
_Тозе ВооктагК$. Откроется подменю, в котором вы можете увидеть изображе- 
ния кубиков с номерами и подписи. Выбирая любой из пунктов, вы можете устано- 
вить соответствующую закладку. | 

Если вы установили закладку с номером | на одну строку и потом устанавливае- 
те на новую строку закладку с этим же номером, то из предыдущего места распо- 
ложения закладка снимается и переносится в новое место. Чтобы просто снять за- 
кладку, достаточно перейти на ее строку и повторно установить там закладку с тем 
же номером. В этом случае закладка просто исчезнет. 


24.2.2. Копирование строк 


Установите курсор в начало строки текста. Выделите строку с помощью клавиш 
<$МИ>+<стрелка вниз>. Это выделит всю строку. Теперь, удерживая <СИТ>, на- 
жмите клавиши <К>, а затем <С> (буквы латинские). В результате произойдет ко- 
пирование выделенной строки без использования буфера обмена (сИрБоага) в место 
чуть ниже. копируемой строки. | 
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24.2.3. Соде Ехр/огег 


Теперь посмотрим, как быстро создавать переменные. В окне кода (слева) нахо- 
дится вытянутое окно Со4де Ехрогег, в котором вы можете видеть дерево из трех 
пунктов: | 
С ТЕоги1 — в этой ветке находится описание всех компонентов, установленных 

на форме; 

О УанаЫе$/Соп$ап ($ — здесь хранятся переменные и константы; 
О 05е5$ — здесь хранится список модулей, подключенных к программе. 


Давайте попробуем создать новую глобальную переменную в разделе уах. Для 
этого щелкните правой кнопкой мыши по пункту Уапаез/Соп$в ап и выберите 
в появившемся меню пункт №ем. В дереве будет создан пункт, в котором нужно 
ввести следующий текст: 


Н: ТоЕедег; 


|= = \МапаЫез/Соп%ат6 
-@ Рогти1 : ЕРокш1: ТРоки1; 


р с /зез ] < | 71 елелфа оп 


— В =. Е} 
1 
'рхоседиге ТРогта1 .Вуесоп1С11ск (Зепаег: ТОБ3есь); 
гак | 
‚1, 9: Тлоедег; 
_ ведал 
| 1:=10; 
} 9:=20; 
| #:=143; 
| 12 1>0 %Лел ех1с; 
_|епа; 


ела. 


| 
] 
| 


Рис. 24.8. Создание переменной в разделе хах с помощью Соде Ехр/огег 


Таким образом, мы создали переменную н в разделе уах, и при этом не имеет 
значения, в какой строке кода мы находимся в данный момент. На рис. 24.8 вы мо- 
жете увидеть создание нового элемента. 

Такой прием очень удобен, когда у вас очень большой модуль и не хочется пе- 
‚ реходить в самое начало, а потом возвращаться назад. 
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Точно так же можно создавать не только переменные, но и процедуры и функ- 
ции для объекта главной формы. Для этого нужно щелкнуть правой кнопкой мыши 
по ветке 'ТЕогт] (имя объекта вашего окна). 


24.2.4. Редактор кода 


Если вы находитесь в каком-то методе, то для того, чтобы перейти на его объяв- 
ление, нажмите клавиши <Си]>+<$Ы>+<Стрелка вверх>. Чтобы перейти от объ- 
явления к реализации самой функции, нажмите <Си1>+<5ШИ>+<Стрелка вниз>. 

Когда вы пишете название какого-то стандартного объекта Реры или`его свойства, 
можно написать только часть его имени, а потом нажать клавиши <Си]>+<Пробел>. 
Вы увидите ниспадающее окно, в котором перечислены все свойства метода, 
а также переменные и любые ключевые слова, начинающиеся с введенного вами тек- 
ста. Попробуйте набрать в редакторе буквы "У!" и нажать клавиши <СИ]>+<Пробел>. 
В ниспадающем списке первым пунктом будет стоять изаеь. Если вам нужно 
именно это свойство, то выберите его, и Ое]рш автоматически допишет начатое 
вами слово. | | 

Используйте эту возможность, когда вы пишете длинные названия свойств или 
методов. Напишите. только начало, а потом произведите выбор из списка нужного 
варианта. Если список большой и вы сразу не видите нужного слова, то продол- 
жайте писать. По мере набора букв список будет уменьшаться. Таким образом вы 
уменьшаете вероятность возникновения ошибки при наборе длинных имен. 

Чтобы сдвинуть выделенный код вправо, нажмите клавиши <Си]>+<5>+<]>. 
Попробуйте выделить несколько строк и нажать это сочетание клавиш. Количество ' 
отступов во всех выделенных строках увеличится. Таким образом вы отодвигаете 
их от левого края. Чтобы сдвинуть строки обратно, нужно нажать клавиши 
<Си]>+<5ШИ>+<0>. 

Когда вы работаете с кодом, то в окне видите только определенную его часть 
в зависимости от размеров окна. Если вам надо увидеть код, расположенный чуть ниже, 
то можно сдвинуть экран полосой прокрутки. Но в этом случае надо использовать 
мышь. А можно нажать клавиши <Си]>+<Стрелка вверх> или <СИ]>+<Стрелка 
вниз>. В этом случае экран прокручивается, а курсор не двигается, как будто вы 
используете полосу прокрутки. | | 


_ 24.3. Создание программ инсталляции 


Когда ваша программа готова, надо задуматься о том, как бы ее установить на 
компьютер пользователя. Если программа состоит только из одного файла, то ни- 
каких проблем нет. А что если программа состоит из множества файлов? В этом 
случае используют программы установки, которые, запускаясь, копируют все не- 
обходимое на компьютер клиента. Именно этот способ желательно вам использо- 
вать. В этом разделе мы познакомимся с программой тзаПэтще@а Ехрге55, которая 
упрощает процесс создания программ установки. 


ПРИМЕЧАНИЕ. Программу пза!ЗШе!4 Ехргез$ чаще всего можно найти на том же 
диске, что и Оеры. Она устанавливается отдельно, и если вы еще не установили ее, 
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то сделайте это сейчас. Если вы устанавливаете ее с диска Беры, то у вас будут не- 
которые ограничения в работе, о которых будет сказано позже. Отдельный продукт 
этой программы более функционален и ни в чем не ограничен. 


Запустив программу, вы увидите окно, показанное на рис. 24.9. Главное окно 
содержит файл помощи, в котором показано, как работать с программой. В левой 
части окна расположено дерево, в котором можно выбирать нужные для настройки 
инсталлятора разделы. В центре окна будет отображаться информация, найденная 
по выбранному разделу. Если у вас нет проблем с английским, то вы сможете разо- 
браться по файлу помощи, но если проблемы есть, ‘то лучше прочитать эту часть 
‚ книги, потому что здесь будут описаны все необходимые для создания собствен- 
ных программ инсталляции. 
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Для создания нового проекта выберите из`меню ЕЩе пункт №. Перед вами от- 
кроется окно создания нового проекта. В этом окне нужно указать лишь путь про- 
екта и имя файла. У имени файла должно быть расширение 1$т, старайтесь зада- 
вать ему вполне осмысленное имя, т. к. оно будет использоваться в качестве имени 
проекта. Указав путь и имя проекта, нажмите кнопку ОК. 

Теперь главное окно изменится и примет вид, показанный на рис. 24.10. Дерево 

‘слева, где были пункты помощи, пополнилось новыми пунктами. Выбирая эти 
пункты, вы будете указывать параметры будущего инсталлятора. Давайте рассмот- 
рим эти пункты более подробно. 

_  Ограшие Уомг Зефир (органи- = 

зовать вашу установку) — в этом — |алноппо Соттев о 


у ее Мо роди мате | 
разделе вы наидете подпункты Кеумо 5 Майе; М1; БаёаБаве 
основных параметров программы Ргодиск Мате О берам 
_ ОБрау 1соп — в О —_ 
| установки. Если ‘целкнуть кНоП Ргодис Мегяюп 1.00.0000 и. 

КОИ МЫШИ по этому пункту, то — __ РгодгатРаезРоЧей\\ сиг Сотрапу Мате\ 
в центре окна вы увидите исчер- о Ар: има, уоцесотрапу. сот — | 
пывающую информацию о под- [рые ‘^^’ оибопраумте о 


пунктах, что в них хранится |377" сомаа 

и для чего они предназначены. 

Далее пойдет описание подпунк- 

тов этого раздела. 

О Сепега! П{огтабоп — здесь вы должны указать основные сведения о себе, как. 
о разработчике, указать свой сайт в Интернете и контактную информацию 
(рис. 24.11). Вы можете изменить здесь следующие основные свойства: 


Рис. 24.11. Свойства пункта Сепега! {юогтаНоп 


е Аш®тог — здесь нужно ввести имя автора программы (введите свое имя или 
название своей компании); 


° АшПогшо Соттеп — комментарии автора; 


» ЭиБесЕ — здесь указывается имя программы, которую нужно инсталли- 
ровать; | | 


е РгодисЕ Мате — имя продукта; 
» ПО15рау [соп — иконка программы; 
. Ргодис Уегзюп — версия продукта; 


е ПМ5ТАШЛОВ — папка, в которую будет установлена программа (по умол- 
чанию используется \[РгоргатЕИезРоег\Уоиг Сотрапу Мате\Ое{аи|); 


ПРИМЕЧАНИЕ. [РгодгатЕЙезРо!аег| указывает на то, что программа должна устанав- 
ливаться в папку Ргодгат ГИе$ на компьютере клиента, после чего указываются под- 
каталоги этой папки. В качестве примера предлагается ввести имя компании (Уоиг 
Сотрапу Мате): 


‚ Ри бйзпег/Ргодисй ОВГ, и РгодисЕ Орда{е ОВТ, — адрес в Интернете, по ко- 
торому можно найти программу и обновления; 


» Ри БШ5Пег — здесь опять указывается название компании; 


_® *Зиррогё СощасЕ — контактная информация со службой поддержки (здесь. 
указывается почтовый адрес службы поддержки — ваш е-та1)). | 
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СОВЕТ. Остальное — специфичные настройки, которые используются редко. Жела- 
тельно не указывать в качестве службы поддержки свой телефон или реальный поч- 
товый адрес, используйте только е-тай. 
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создана только одна воз- 
можность — АМмау$ зай 
(инсталлировать всегда). Рис. 24.12. Свойства пункта Реафиге$ 
Щелкните правой кнопкой | 
мыши по верхнему эле- — 
менту или нажмите клавишу <[15>, чтобы создать новую возможность. Назовите 
ее — Оггаштег. Допустим, что мы создаем программу установки какой-нибудь 
программы. Все файлы этой программы поместим в пункт Жмау$ тай. У ин- 
сталлятора будет и дополнительная возможность — органайзер, который поль- 
зователь должен иметь возможность выбирать — устанавливать или нет. 
Выбирая одну из возможностей, вы можете указать ее свойства: 


» ОезсирНоп — описание типа установки; 
» Кедашгей — обязательность типа; 
» У5ЯЫе — видимость. 


Для пункта Ам\ау$ за] здесь указывается невидимость, потому что будут. 
указываться пункты, которые должны инсталлироваться всегда. Для пункта 
Оггашяег, который должен быть виден в окне выборочной установки, здесь 
нужно ставить У15Ые апа СоПарзеа. Это для того, чтобы пользователь мог вы- 
бирать, устанавливать ему дополнительную возможность (органайзер) или нет. 


О Зешр Туре$ — типы установки. Если выбрать этот пункт, то в центре окна вы 
увидите еще одно окно, которое показано на рис. 24.13. В левой его части нахо- 
дится список разных типов установки: Турса! (типичная), Мйпита! (минималь- 
ная) и Си$от (выборочная). У каждого пункта есть элемент управления 
СотБоВох, в котором вы можете выбрать — нужен этот тип установки или нет. 
По умолчанию во всех типах стоят флажки. Для нашего примера оставим все 
так, как есть, пусть будет три типа установки. Для небольших проектов чаще 
всего достаточно одного типа ‘установки, при котором устанавливается все. 
В этом случае оставьте только Туриса|. 
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Выделяя в левом списке тип установки, вы можете в правом списке указы- 
вать то, что должно устанавливаться в данном случае. При выборе Турса! 
должно устанавливаться все, поэтому в левом списке оставляем выделенными 
все пункты. При выборе типа Машита! должен устанавливаться необходимый 
минимум, т. е. органайзер не обязателен и с него снимаем флажок. При выборе 
Сизющ, опять же, оставляем все выделенное, чтобы пользователь сам мог уб- 
рать то, что ему не нужно. | 
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эресНу АррИсаНоп Баба — это следующий раздел, в котором нужно указать, 
какие файлы нужно устанавливать на компьютер клиента. Этот раздел состоит из 
_ целого ряда пунктов. 


С ЕШез — здесь указывается, какие файлы нужно устанавливать на компьютер 
клиента. Если выбрать этот пункт, то в центре окна вы увидите его свойства 
(рис. 24.14). 

Сверху вы можете выбирать в ниспадающем списке тип установки. У нас 
должно быть там два пункта: А]\мау$ $] и Оггаштег. | 

Чуть ниже слева находится список дисков и папок вашего компьютера. Вы- 
бирая папку, вы справа будете видеть файлы выбранной папки. Перейдите 
в папку, где находятся файлы программы, для которой вы создаете программу 
установки. 

Внизу слева можно видеть окно, в котором мы должны выбирать папку на 
компьютере клиента (в которую нужно устанавливать файлы). Щелкните в этом 
окне правой кнопкой мыши по пункту Эезипайоп Сотршег (компьютер, на ко- 
торый будет производиться установка) и в появившемся меню выберите пункт 
Эпо\ Ргедейпед Ко4ег. Затем выберите пункт ПМТАГТОТЖ]. В дереве этого 
окна появится соответствующий пункт. В этот пункт надо переместить основ- 
ные файлы, которые требуется скопировать в папку, куда будет устанавливаться 
программа. Если какие-то файлы должны быть помещены в папку \Мтдо\$, то 
щелкните в этом окне правой кнопкой мыши по пункту Оезиптайоп Сотаршег и 
в появившемся меню выберите пункт ЗВо\ Ргедейпеа Ео!4ег и затем выберите 
пункт [УУМшдом$Го! ет]. В созданный пункт дерева можно’ переносить файлы, 
которые должны быть в папке У тдо\$. 

Теперь в ниспадающем списке Реафиге$ (вверху окна) выберите` пункт 
Оггапег. Снова создайте в левом нижнем окне пункт ПИМЗТАЕТОЩ] и пере- 
несите в него файлы органайзера. _ | 


ПРИМЕЧАНИЕ. Во время создания списка устанавливаемых файлов вы не можете 

‚ создавать вложенные папки, если пользуетесь ограниченной версией с компакт-диска 
Оер:. Все файлы могут копироваться только в папку, которую вы выбрали в качестве 
установочной. Дерево каталогов копируемых файлов запрещено. 


С ЕШе5 апа Кеашге$ — здесь вы можете просмотреть информацию о копируемых 
файлах в виде списка (рис. 24.15). 


О ОЩес/Мегге Модшез — здесь вы можете указать, какие модули нужно пере- 
нести на компьютер клиента. Выделите этот пункт, перед вами откроется список 
установленных на вашем компьютере модулей, которые можно перенести на 
компьютер клиента (рис. 24.16). 


Допустим, что ваша программа использует базы данных М5 Ассез$. В этом 
случае на компьютере клиента должна быть установлена надстройка ОАО. Ва- 
ша программа установки может автоматически перенести эту надстройку на 
компьютер клиента. Достаточно только найти ее в списке левого верхнего окна 
и поставить напротив этой строки флажок. Программа сама определит файлы, 
которые надо скопировать на компьютер клиента, и при установке внесет необ- 
ходимые изменения в реестр. 
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Рис. 24.16. Свойства пункта Оес$/Мегде Модше$ 


Если вам необходимо установить на компьютер клиента какой-нибудь ком- 
понент АсйуеХ, то опять же его можно найти в этом списке. Созданная про- 
‘грамма установки сама зарегистрирует этот компонент во время инсталляции, 
и вы избавитесь от всех проблем по установке и регистрации АсйуеХ- 
компонентов. = | 
Сопйргиге Ме Тагреё Зу%бет — это следующий раздел, в котором вы можете 

указать, какие изменения надо произвести на компьютере клиента. 

С бВогси6/Еоег$ — здесь мы указываем ярлыки, которые нужно создать в про- 
граммном меню для вызова программ. Выделите этот пункт и увидите в правой 
половине окна информацию, определяющую эти действия (рис. 24.17). 

Если вы хотите создать ярлык для вызова программы из меню Пуск, то вы- 
делите пункт Ргоггат Мепи и щелкните по нему правой кнопкой. В появив- 

_ шемся меню выберите пункт М№ем Ео@4ег, чтобы создать отдельную папку для 
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своей программы. Теперь выделите эту папку и щелкните правой кнопкой мыши 
по ней. Здесь нужно выбрать пункт №ем ЗВог(сиф чтобы создать ярлык для про- 
граммы. 


в“ НОЦ . 
С в Таз®баг | | Ргодгат$ Мепи 
И ЗА ва: Мепиу . 
8 Реодгатз Мапи:  Вапе-сйск оп Ргодгат$ Мепи +0 
- #2) чвакир | Чездп а эПогси{ ог ргодгат 
| Гоег. Па{ м! Бе сгеа{е4 оп 


{Бе {агде{ зуз{ет'5 Ргодгате 
тепи мРеп {95$ Геа{иге 1$ 
заес{ед ог тэ{а!айоп. 


Рис. 24.17. Свойства пункта Зписи$/Роегз 


Выделив имя созданной иконки, вы увидите следующие ее свойства: 
ОезстрНоп — описание программы; | 

Ееашге — когда создавать ярлык (по умолчанию стоит . Всегда, но вы можете 
выбрать пункт Оггаш2ег, если иконку нужно создавать, когда пользователь 
требует установку органайзера); 

Агритеп{$ — здесь указываются параметры, которые нужно передавать про- 
грамме; 

Тагреё — файл, который надо запускать при выборе этой иконки (здесь 
нужно указывать имя исполняемого файла, относительно компьютера клиен- 
та, например, \(ПУЗТАЕГОГК \ограпл2ег.ехе); 

Тсоп ЕЙе — файл иконки для ярлыка; 

Тсоп шдех — если у программы есть своя иконка, то вы можете указать ее 


индекс (например, если здесь указать 0, то будет использоваться первая 
иконка программы, которая установлена по умолчанию); 


Кип — здесь указываются параметры запуска программы (по умолчанию 


стоит нормальный запуск — М№огта] УУтдом); 


У’огкше Пгесюгу — рабочая папка программы (здесь также нужно указы- 
вать папку относительно компьютера клиента (например, ПМТАГТОГВ]). 


Ве гу — здесь указываются изменения, которые надо произвести в реестре. 


Окно разделено на две части: в верхней вы видите свой текущий реестр, снизу 
вы видите изменения, которые надо произвести. 


Для создания нового параметра, который нужно будет создать на машине 


клиента, вы должны щелкнуть правой кнопкой мыши по нужному разделу 
и в появившемся меню выбрать пункт Кеу для создания нового ключа. В этом 
ключе вы можете создать еще один ключ или параметр, снова щелкнув правой 
кнопкой МЫШИ. 


ООВС Ке5оигсе$ — здесь вы можете увидеть в виде дерева все установленные 


ОПВС-драйверы. Эти драйверы используются для доступа к базам данных через 
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компоненты АРО. В примерах этой книги использовался М5/еЕ-драйвер, кото- 
рый относится к ОАО, но вам могут понадобиться и ОРВС-драйверы. Если ну- 
жен такой драйвер, найдите его в левом верхнем окне (рис. 24.18) и поставьте 
флажок против его имени. 
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Рис. 24.18. Выбор ООВС-драйвера 


Как только вы выбрали ООВС-драйвер, сразуактивизируются правое верхнее 
и левое нижнее окна. В правом верхнем окне вы можете указать, в каких типах 
установки нужно устанавливать этот драйвер. В левом нижнем видны свойства 
драйвера. 
О ТМГ Ее СБапрге$ — указывается, какие изменения нужно произвести в ПМ|- 
файлах. Сейчас вся информация хранится в реестре и должна храниться именно 
там. Поэтому мы не будем останавливаться на этом пункте и пойдем дальше. 


О Ее Ехжепяюп$ — здесь вы указываете, какие расширения нужно зарегистрировать 

под программу. Выберите этот пункт и слева появится окно, показанное на рис. 24.19. 
Чтобы создать новое расширение, щелкните правой кнопкой по пункту ЕЙе 

Ежеп$10п$ в дереве слева. В результате появится новый пункт, в котором надо 
ввести имя расширения. В правой половине окна вы должны в свойстве Е Пе ука- 
зать имя программы, которая должна запускаться. Вы также можете указать до- 
полнительные аргументы программы и иконку, которая будет отображаться для 
всех файлов этого типа. 
Си$юпи2е Фе Зешр Арреагапсе — в этом разделе находятся пункты настроек, 

в которых вы можете указать, как должна выглядеть программа инсталляции. 


О 01а102$ — здесь вы указываете, какие диалоги должны быть видны во время 
инсталляции. Выберите этот пункт, и вы увидите окно, показанное на рис. 24.20. 
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В левом верхнем окне находится дерево, в котором перечислены все доступные 
диалоги. В левом нижнем окне можно увидеть примерный внешний вид выде- 
ленного окна. В правом верхнем окне будут отображаться свойства, которые вы 

можете изменить. | | 


» ай ВИтар — если напротив этого пункта установлен флажок, то в начале 
загрузки будет отображаться рисунок. В свойстве ЭразВ В тар этого окна 
вы можете указать картинку, которая должна отображаться в окне. 


е ШшУаП У/@соте — окно приглашения в программу установки. Это окно не- 
возможно отключить, и оно обязательно должно присутствовать в программе 
установки. Вы можете только изменять свойства окна: В1етар Тпаде (кар- 
тинка, которая будет отображаться в окне), $пом соруг1лаве (показывать 
строку соруг1аНе), Соруг1а Е Техе (текст строки соруг1а1ь). 

® Илсепзе Аргеетепт — окно лицензии. У этого окна два свойства: ваппех 
В1 Стар (картинка иконки), т1сепзе Е11е (файл с текстом лицензии). 


»е КВеадте — окно с дополнительной текстовой информацией об устанавливае- 
мой программе. У этого окна есть два свойства: Ваппег В1етар (картинка. 
ИКОНКИ) И Беадме Е11е (файл с текстом). 
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Рис. 24.20. Окно регистрации нового расширения 
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® Сизютег П{огтаНоп — окно, в котором пользователь должен вводить дан- 
ные о себе (имя, название компании). У этого окна много свойств, и все они 
достаточно интересны: 


$ Ваппег ВИтар — картинка иконки; 


$ 5пом 5ема! Митбег — показывать строку для ввода. серийного номера 
продукта; | 

$ Зета! МитБег Тетр]айе — шаблон серийного номера. Здесь вы можете 
указать шаблон, по которому будет вводиться серийный номер. Например, 
серийный номер состоит из двух чисел (каждое по три цифры), между ко- 
торыми стоит знак тире. В этом случае шаблон будет выглядеть так — 
Ннн-НН. Если вначале должны быть какие-то обязательные буквы, напри- 
мер, зегпит, то шаблон можно записать как — зегпат#-###; | 


$ зема! Митфег УаНдаНноп ОГТ, — здесь можно указать ОГ-файл, кото- 
рый будет отвечать за проверку правильности введенного серийного но- 
мера; | 

$ УаНажме Еипсбоп — здесь указывается функция из библиотеки, которая 
будет проверять серийный номер; 

$ 5иссез$ Вешги Уаше — значение, которое должно возвращаться при по- 
ложительном результате проверки; 


$ Вешу Гали! — количество попыток, которые пользователь может ввести 
при регистрации; 


$ Ном АП Озег5 Орбоп — показать возможность выбора, для каких поль- 
зователей будет доступна программа. В У/тдо\з$ МТ/2000/ХР есть воз- 
можность давать доступ к программе только тому пользователю, который | 
ее устанавливает, или всем пользователям компьютера. 


» ПезИпаНоп Ко!4ег — показывать окно выбора папки, в которую надо уста- 
навливать программу. 


е Ожарбазе Ео4ег — окно выбора папки, куда будут устанавливаться базы 
данных. . 


» Зешр Туре — окно выбора типа установки. В этом окне пользователь смо- 
жет выбирать, какая установка ему нужна: типичная, минимальная или выбо- 
рочная. Если у вас используется только один тип установки, то нет смысла 

‚ отображать это окно. 


е Сизфот Зефир — окно, в котором будут отображаться компоненты вашей 
программы, если пользователь выбрал выборочную установку. У этого окна 
в. свойстве ЭВо\ СВап?е ОезИпаНоп установите ские. В этом случае пользо- 
ватель сможет менять папку установки. 


» Кеаду 10 шуаЙ — окно, предупреждающее о начале копирования файлов. 


е зефир Рго?ге$$ — показывать окно хода установки. Если у этого окна в свой- 
стве ЗВо\ Ргоггез$ Ваг установить Еа1зе, то пользователь не будет видеть 
Ргодгезз Ваг, В КОТОром отображается ход установки. 
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. Зешр Сотрае биссез$ — окно окончания установки. У этого окна масса 
интересных свойств: 


$ Ваппег ВИтар — картинка иконки; 


$ 5по\ Гацоев Ргоггат — показывать возможность запуска программы по 
окончанию процесса установки; 


$ Ргоргат ЕЦе — имя файла программы, которую надо запустить; 

$ Соттапа Глпе Рагатеег$ — параметры командной строки, которые на- 
до передать программе; 

$ эпо\ Веадте — показывать текстовый файл с дополнительной информацией; 

$ Веадте Ше — текстовый файл с дополнительной информацией. 


Ребпе Зешр Кедшгетепт5 ап@ Асйоп$ — в этом разделе делаются последние 
настройки программы установки. 


О КВедшгетепт6 — здесь можно указать ОС, тип процессора, количество памяти 
и другие параметры, необходимые программе. Программа установки при старте будет 
проверять эти параметры, и если что-то не совпадает, то установка не произойдет. 


О Ргераге Гог В@еа$е — в этом разделе вы создаете программу установки. 


О Вый9 Уоц К@еа$е — здесь вы должны выбрать носитель, на котором будет рас- 
пространяться программа. В зависимости от типа носителя программа установ- 
ки может. отличаться. Если вы выбрали дискеты по 1.44 Мбайт, то ша зе 
автоматически разобъет инсталляцию по файлам такого размера. Для запуска 
процесса создания программы установки нужно нажать клавишу <Е7> или вы- 
брать из меню Вий одноименный пункт. 


О Тез Уои ВК@аеа$е — здесь можно протестировать созданную программу уста- 
НОВКи. 


О Оше Уоп К@еа$е — этот пункт позволяет скопировать программу уста- 
новки на носитель. 


24.4. Как писать и распространять программы 


Теперь у вас есть необходимые для написания собственной программы знания 
и остается только узнать, как писать‘программы и что именно надо писать. Самое 
главное при написании программы это не идея. А что же можно назвать главным 
фактором успеха программного продукта? Вот именно это мы постараемся сейчас 
ВЫЯСНИТЬ. 

Какую программу все же написать? Для этого не надо далеко идти. Просто по- 
думайте, что вам нужно? Если вы работаете с базами данных, то займитесь их на- 
писанием. Если вы работаете с графикой, то напишите простенькую программу, 
которая будет делать несколько эффектных действий. При.этом ваша будущая про- 
грамма должна удовлетворять нескольким критериям. 

О Программа должна быть нужна вам. Если она не нужна даже разработчику, то 
ею не будет пользоваться никто. Если вы дизайнер, то кто, как не вы, лучше 
знает, что нужно настоящему художнику? 


0 


О 
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Программа должна быть уникальна. Если в вашей программе есть какая-то 
изюминка, то она точно найдет своего пользователя. 


Программа должна быть простой в использовании. Не стоит загромождать ее 
лишними действиями. Если вы гений в графических фильтрах, то напишите 
простенький р!?-ш к РВоюЗВор, но не надо писать целый графический редак- 
тор ради одного эффекта. Это только усложнит конечный продукт и отпугнет 
потенциальных пользователей. Программа должна выполнять только самые не- 
обходимые действия и содержать как можно меньше лишних функций. Поэтому 
не стоит встраивать в графический редактор текстовый процессор, такие боль- 
шие продукты уже есть, и вы все равно не сможете с ними конкурировать. Чем 
проще пользоваться программой, тем больше у нее шансов. Рассмотрим один 
пример. Глпих — дешевая и сложная ОС, поэтому она не получила распростра- 
нения. \/тдо\/$ простая и дорогая ОС, но используется на большинстве компь- 
ютеров. Парадокс, но это так. 


Интерфейс — должен быть удобным и симпатичным. Цвета желательно выби- 
рать не очень яркие, чтобы они не резали глаз. Советую использовать только 
системные цвета, чтобы они изменялись в зависимости от выбранной в компью- 
тере цветовой схемы. Все часто используемые функции нужно выносить из ме- 
ню на панель, чтобы можно было получить к ним быстрый доступ. Посмотрите 
на все программы У тдо\з$ и старайтесь не сильно выделяться, а то это иногда 
шокирует, и люди не очень. охотно используют такие вещи. | 

Документация — она должна быть полной и желательно с конкретными приме- 
рами. Пользователи любят, когда описаны конкретные действия при работе 
с программой. Не надо ограничиваться простым описанием возможностей. По- 
старайтесь дать как можно больше информации и конкретных примеров. 


Этот список можно продолжать бесконечно, но остановимся на сказанном. 


В этой главе мы еще вернемся к уже описанным требованиям и рассмотрим еще 
некоторые вещи. | 


Прежде чем писать программу, поставьте перед собой конкретные цели. Глав- 


ное, чтобы цель была достижима, причем в кратчайшие сроки. Не надо ставить пе- 
ред собой задачу написать текстовый редактор, потому что их уже достаточно, вы 
не напишете лучше, чем М!сгозоВ, но даже если это и так, то пока вы будете пи- 
сать, М!сгозой выпустит уже десять новых версий. Вы не сможете угнаться за ги- 
гантами. Поэтому делайте свою цель менее фантастической. 


0 


Программу желательно сделать маленькой. Для этого есть несколько причин. 


Пользователи не любят слишком сложные программы. Об этом мы уже говори- 
ли и рассмотрели несколько примеров. | 


Первая версия программы должна быть готова максимум через несколько меся- 
цев. Если вы затянете написание программы на год, то через этот период может 
пропасть необходимость в ней или кто-то уже реализует вашу идею, и вы потра- 
тите время зря. | | | 


Именно поэтому ставьте реальные и быстро достижимые цели. 
После того как вы поставили перед собой цель, начинайте писать программу. 


Во время написания нужно четко придерживаться поставленной цели. Ни в коем 
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случае нельзя обращать внимание на такие соображения, как — "Надо бы добавить 
вот такую возможность". Если вы хоть раз обратите на это внимание и начнете вы- 
полнять все предполагаемые доработки, то вас затянет рутинная работа, которой не 
будет конца. Вы будете вечно добавлять новые возможности, а программа выйдет 
в свет с большим опозданием. Лучше записывайте появляющиеся мысли на бумагу 
и реализуйте их по мере возможности в следующих версиях программы. 

Когда вы закончите выполнять первоначальный план, переходите к тестирова- 
нию программы. Тестируйте максимально тщательно, ошибки отрицательно ска- 
зываются на популярности и вашем имидже. 

Пока все пользователи работают с первой веррией программы, можно начать 
доработки, оформляя новую версию. Вот тут можете достать бумажки с записями о 
том, что вы хотели добавить в программу во время разработки первой версии. 

Постарайтесь хорошо тестировать свою работу. Для этого можно набрать груп- 
пу тестеров среди пользователей. Раздайте им бесплатные лицензии, они все равно 
не заплатят (в России еще не привыкли платить за программы). Чем больше будет 
ошибок в программе, тем хуже будут к вам относиться. о 


ь 


ПРИМЕЧАНИЕ. Если вы сильно`запустили свои программы, и пользователи потеряли 
к ним интерес, то вам ‘понадобятся несколько дней, чтобы исправить все ошибки, 
и годы, чтобы снова завоевать доверие. Выводы делайте сами. 


Когда ваша программа готова, ее надо где-то разместить, чтобы потенциальные 
клиенты могли ею воспользоваться. Для этого можно использовать серверы, кото- 
рые бесплатно предоставляют место для ваших \еБ-страниц. Конечно же, это не 
самый хороший шаг, потому что в цивилизованных странах не очень любят поль- 
зоваться такими серверами. Но для вас этого будет достаточно. Вы сможете зара- 
ботать свои деньги даже при использовании бесплатного хостинга (бесплатной ус- 
луги размещения файлов на \еБ-сервере). 


СОВЕТ. Желательно выбирать сервер за границей, чтобы ничего в его адресе не ука- 

‚ зывало на страну происхождения программы. Желательно, чтобы никто не знал, что 
вы русский. Ваш почтовый ящик тоже должен быть не в зоне НУ. Очевидно, что М/еБ- 
страница должна быть сделана без ошибок на английском языке. Если ошибки есть, 
то ваши шансы заработать падают на 99%. 


После того как программа будет опубликована в глобальной сети, ее надо сна- 
чать рекламировать. | 


СОВЕТ. Желательно зайти на адрес: И4р://4о\митоад.спе!сот/. Там найдите ссылку 
Зибтй Ше. Перед вами появится окно для регистрации, после чего вы сможете до- 
бавлять свои программы в каталог сайта. Только тут есть одна проблема. Добавлять 
вы можете, но отображаться они не будут, потому что этот сервис платный. Самая 
дешевая регистрация одной программы стоит $79 (на момент написания книги). Вы, 
конечно же, можете обратиться и к другим каталогам программ, но опыт показывает, 
что за последние 6 лет не продалась ни одна копия программы, которая не была бы 
отображена на Эоммпюа@.сот. 


Через каталоги вашу программу будут скачивать по 100 копий в сутки. Не ду- 
майте, что на этом сервере будет располагаться сам файл. Его будут скачивать 
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с вашей страницы, а каталоги хранят только описание и ссылку на файл, который 
надо скачивать. Так что приготовьтесь к серьезному трафику. Не каждый хостинг 
разрешит подобное, поэтому следует очень серьезно подойти к выбору площадки 
для хранения программ. 

Если вы все правильно сделали и программа оказалась в каталогах, то через не- 
которое время другие архивы программ будут сами делать ссылку на вашу страни- 
цу и файл с программой. Так что можно не слишком много времени тратить на ре- 
гистрацию во всевозможных каталогах. Советую обратить внимание на 5—10 
основных сайтов, а их можно определить по рейтингам посещаемости. 

Программа готова, выложена в Интернете, и ее скачают. Возможно, что ее скоро 
захотят купить. Вы должны заранее приготовиться к этому моменту. Самому полу- 
чать деньги от клиентов не получится. Как же тогда решить эту проблему? Есть 
несколько серверов, которые предоставляют услуги по оплате счетов через Интер- 
нет, почту и даже телефон. Вы просто регистрируетесь у них, и они сами будут по- 
лучать деньги от клиентов. За свои услуги они берут немного, всего 9—15 процен- 
тов. Не надо жадничать, это действительно очень мало. Воспользуйтесь этими 
услугами. Европейцы и американцы доверяют таким сервисам и без проблем пока- 
зывают им свои кредитные карточки, потому что знают, что сервисы защищены. 
Незнакомой компании никто ничего показывать не будет. 


СОВЕТ. Здесь можно посоветовать использовать м/мим.гедпоми.сот. Он очень удо- 
бен, а главное — прост в использовании. При его использовании после регистрации к 
вам приходит письмо, в котором находятся логин и пароль доступа. Когда вы войдете 
в свою зону, сможете легко разобраться с работой сервера. Просто попробуйте, там 
все понятно, если вы хоть немного понимаете английский язык или умеете пользо- 
ваться переводчиками. 


Глава 25 


Практика 


Мы уже знаем достаточно много о том, как программировать на Ое]ры, и теперь. 
вы готовы к самостоятельному изучению тонкостей этого интересного (по крайней 
мере для меня) занятия. Здесь будут рассмотрены несколько полезных примеров, 
чтобы вы лишний раз могли понять логику, которой надо придерживаться при на- 
писании собственных программ. Я постарался подобрать наиболее полезные и ин- 
тересные примеры. | 

Те примеры, которые мы рассматривали на протяжении всей книги, поучитель- 
ны и удобны в образовательных целях. Но для полной готовности к реальной жиз- 
ни надо еще немного попрактиковаться, потому что рассмотренные программы 
были небольшими (в целях экономии места в книге) и теперь надо научиться весь 
рассмотренный материал собирать в единое целое. 

Достаточно много дополнительной информации вы найдете на компакт-диске, 
прилагаемом к этой книге. Читать с монитора, как известно, не так уж удобно. Но 
в этом случае книга будет не слишком дорогой. Библия Рер должна стать дос- 
тупной каждому. В ней сделана попытка дать максимум информации и заполнить 
компакт-диск не какими-либо, а именно необходимыми для работы данными. Та- 
ким образом, не поленитесь, и после прочтения книги обязательно загляните в пап- 
ку \Документация. | 


25.1. Создание ЗсгеепФауег 


Если вы до сих пор считаете, что Оеры — это язык, предназначенный для рабо- 
ты с базами данных, то сейчас мы окончательно опровергнем это мнение. Давайте 
рассмотрим, как при помощи Рер№М можно’написать хранитель экрана. Самое 
главное, что никаких особых усилий для этого не понадобится. 

Создайте новый проект приложения. Для того чтобы Веры мог создать храни- 
тель экрана, вы должны сделать несколько установок для своей формы. 

С Перед объявлением типов вставьте строку кода: 

{$2 ЭСВМЗАУЕ бахег} 


Здесь 5ауег — имя проекта, его надо сохранить под именем $ауег.4рг. 


С Свойство формы вохдех5%еу1е поменяйте на ЪзМопе. Это означает, что у формы 
не должно быть никаких заголовков и обрамлений. 


С] Все параметры в вохаег Тсопз установить в Еа1 зе. 
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О Свойство формы имзпаомзекаЕе поменяйте на изМах1т1теа, чтобы окно появля- 
лось максимизированным на весь экран. 


О Создайте событие опкеургезз и вставьте туда всего лишь одну процедуру — 
С1озе() (закрытие хранителя экрана по нажатии любой клавиши). Можно до- 
бавить еще закрытие формы по движению мышью, ведь хранители отключают- 
ся и на. это событие. 


О Для события кохпаАсЕ1уаЕе нужно значения теЕЕ И Тор установить в ноль. 


Теперь Реры будет компилировать исполняемый файл, совместимый с храни- 
телем экрана. Что такое Зсгееп бауег? Это та же программа, только с расширением 
5сг. Таким образом, остается одна деталь — изменить расширение на 5сг. Вы може- 
те после компиляции программы переименовать файл в *.5сг или возложить этот 
труд на Оеры. Для’этого необходимо выбрать пункт ОрНоп из меню РгодесЕ и. на 
вкладке АррйсаНоп в строке Тагреё Ше ежепзюоп написать "5сг". В этом случае 
Веры сам подставит расширение. = 

Подготовительные работы закончены. Можно приступать к написанию непо- 
средственно кода. Вы уже знаете достаточно много и сможете сами написать что- 
нибудь интересное. Здесь будет рассмотрен простейший пример. 

Для примера понадобится объявить три переменные в разделе рге1уаее: 

ргх1уаее 

{ Рифуаее аес1агае1опз } 
ВСЬ1 бар: ТВ1 тар; 

оС : Ш; 

ВаскагочпаСапуаз : ТСапуаз; 


Затем, в обработчике события опсгеаке формы напишите код, представленный 
в листинге 25.1. 


ргоседиге ТЕогт1 .РоушСгеаее (бепаех: ТОБ]ес®); 
Бед1п | 
ВСЬ] стар: =ТВ1 Стар.Сгеаее; / /Инициализация` 


// Выставляем размеры картинки как у экрана 
ВСЬ1етар.М1Аей := 5сгеей.илаен; 
ВСЬ1Етар.Незоре := 5сгееп.Незаве; 


РС := Сееёос (0); 
ВаскКагоипЯСапуа$ := ТСапуаз .Сгеаее; 


ВаскагоипаСапхуаз .Напа1е := ГС; 


_ ВСВ1Етар.Сапуаз .СоруВес* (Весе (0, 0, $схееп.мМ1аеь, Зсгееп.Не1ае), 


ВаскагоцпЯСапуаз, 
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Весе (0, 0, $сгееп.М1АЕВ, 5сгееп.Не1оте)); 
ВаскКагочпЯСапуа$ .Егее; 
гапЯом12е; 


еп; 


Что происходит в этой процедуре? В самом начале мы инициализируем пере- 
менную всь:еЕтар и устанавливаем ей размер как у экрана. Эта переменная у нас 
является картинкой В!итар и будет выполнять роль заднего буфера для ускорения 
вывода графики. | 

Объект $сгееп — это объект, который создается автоматически при старте про- 
граммы, и содержит в себе информацию о нем. В свойствах и1аеН и незоне нахо- 
дятся ширина и высота экрана. | 

Потом в переменную гс заносится указатель на контекст вывода экрана. На пер- 
_ вый взгляд это происходит не явно. На самом деле функция сеерс возвращает ука- 
затель на контекст указанного в качестве параметра устройства или формы. Если 
указать 0, то беерс вернет указатель на контекст воспроизведения экрана. Если вы 
захотите получить контекст воспроизведения своей формы, то должны написать 
Сеерс (Напа1е). В качестве параметра выступает напа1е окна. Но вы в таком виде 
не будете никогда использовать сеерс, потому что у вас уже есть контекст воспро- 
изведения формы — это Саптаз, а указатель на него — Сапуаз .Напа1е. 

Дальше создается васкагочпаСапуаз. ЭТО ТСапуаз, который будет указывать на 
экран (рабочий стол). Мы делаем данное действие только для удобства. Для рисо- 
вания можно было бы использовать рс, но все же тсапуаз более понятен и мы 
с ним достаточно подробно разобрались в главе, которая посвящена графике. . 

С помощью следующей строки, сохраняем копию экрана: 

ВСВ1 тар .Сапуа$ .СоруВес® (Кесе (0, 0, $сгееп.\М1аАЕр, 5сгееп.Не1оаре), 

ВаскагочпЯСапуаз, Кесе (0, 0, 5сгееп.М1АЕВ, 5схееп.Не1аре)); 


Затем уничтожаем указатель на контекст экрана ВаскагонпаСапуаз. Егее, ПОТО- 
му что больше он нам не понадобится. 

Самая последняя функция — гапдоп1=е, которая инициализирует таблицу слу- 
чайных чисел. Если вы этого не сделаете, то после запроса у системы случайного 
числа, вам вернется значение из текущей таблицы, которая не всегда удачна. Вам 
не надо будет видеть таблицу случайных чисел, она прекрасно будет работать и без 
вашей помощи. 

В обработчике события опрезекоу мы уничтожаем картинку: 

ВСВ1етар.Егее; 


Последняя функция - — это обработчик таймера, который мы должны поставить 
на форму: 
ргосеацге ТЕоги1 .Т1мег1Т1мех (бепаег: ТОБ)ес®); 
сопзе | 
РуамСо1ог$: аггау[0..7] оЕЁ ТСо1ог =(с1Веа, с1В]ае, с1Уе1]1ом, с1Сгееп, 
с1Аааа, ‚с1Расрз1а, с1Магооп, с1$11]уег); | 
Бед1п 
ВСВ1етмар.Сапуаз .Реп.Со1охг : =ОЮгамСо1ог$ [гапЯом(7)]; 
ВСВ1@тар .Сапуа$ .МоуеТо (гапаом (Зсгееп.мМ1аеп) , гапЧом (бсгееп.Нелзаре));. 
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ВСВ1етар.Сапуаз .[1пеТо (гап@ом (5схееп .\1аЕй), хапаом (5Зсхееп.Не1оЪе)); 
Сапуаз .Охгам (0,0, ВСВ1 тар); 
еп; 


В разделе констант надо объявить массив РхгамСо1охз, который хранит восемь 
цветов. Объявление происходит следующим образом: 


_Имя_Массива : аггау [Индекс_первого_значения .. Индекс_последнего_значения] 
ОЁ Тип_значения_Массива = (Перечисление_значений) 
В ПОоЛе перечисление_значений ДОЛЖНО быть определено — (Индекс_ 


последнего_значения — Индекс_первого_значения + 1) параметров. В нашем слу- 
чае это — (7—0 +1) = 8 значений цвета. 

Дальше заменяем цвет у контекста рисования формы всв1етар.Сапуаз .Реп.Со1ог 
случайным цветом из массива ргамСо1охз. ФУНКЦИЯ гапаот. возвращает число из 
таблицы случайных чисел, при этом это число будет больше нуля и меньше значе- 
ния переданного в качестве параметра. Это значит, что гапаот(7) вернет случайное 
число от 0 до 7. С помощью ВСВ! Емар.Сапуаз .Моуето мы перемещаемся в случай- 
ную точку внутри картинки всв1Етар И С ПОМОЩЬЮ ВСВ1Етар.Сапуаз .Г1пеТо рису- 
ем из этой точки в новую точку ЛИНИЮ. Сапуа$ .Пгам(0,0,ВСВ1Етмар) выводит наше 
произведение на экран. 

Попробуйте запустить пример, и вы увидите, как экран засыпается линиями со 
случайными координатами. Но если вы протестируете пример, то заметите несколько 
недостатков. 


О Если скопировать хранитель экрана в системную папку (\ш4до\$ или \тпо_ 
и попытаться установить этот хранитель, то будут заметны блики. 


О При нажатии на кнопку На- 
строить запускается хранитель, 


> Свой иства: .3 н | их 
а не окно настройки. ЕЕ ии 


СТеы р рабом с стол. _ Заставка Озорные Параметры | 


Как же нашему хранителю эк- 
рана узнать, что надо отображать 
окно настройки, а не запускаться 
самому? Очень просто. При старте 
хранителя экрана в командной 
строке передаются параметры. Они 
могут быть следующими: 


О /з — надо запустить хранитель 
экрана; 

С /р — хранитель экрана должен 
отображаться в окне свойств эк- 


рана на рисунке ‘монитора я = ет 
. 2: |” ме. ° Для изменения я параметров п питания ня мониторё : 
(рис. 25. 0); .. 1% нажмите е кнопку "Питание". =. лы ил 


О /с:ххххх — нужно отобразить 
окно настроек (здесь после двое- |. ит етияи 
точия вместо хххх стОит ЧИСЛО). о Е > —_ Отмена ^_[ `Праценять [| 
Количество параметров, пере- Н————— —_—_—— 

данных программе, можно узнать, Рис. 25.1. Окно настройки хранителя экрана 
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вызвав функцию РахамСоциЕ. Эта функция вернет только количество параметров. 
Сами параметры можно получить с помощью функции Рагашбег. Этой функции 
нужно только передать номер параметра, который мы хотим получить. Чтобы пе- 
ребрать все, переданные программе значения, можно использовать следующий код: 
\уах | 
1:Тпбеаег; 
Беа1п 
Бог 1:=0 со РагатСоцле-1 Яо 
Переменная: =Рахатб Ех (1); 
епа; | 


Теперь забудем на минуту про параметры и для начала избавимся от бликов. 
Для этого по событию опсгеаее в самом начале программы присваиваем ширине 
и высоте окна значения 0, чтобы окно было минимальным. В этом случае окно не 
будет мерцать, потому что его просто нет на экране из-за нулевой ширины и высоты. 

ИзаЕр:=0; | 
незоне:=0; 

Теперь вернемся к параметрам. По событию опзном для главной формы напи- 

шем код, представленный в листинге 25.2. 


Во АыЕ 
ось Я. 


ргоседиге ТбахегРоги. Еогабнои (бепаег: ТОБЗесЕ); 
Беа1п 
1ЁЕ РагашСоипе>0 Ереп 
Беа1п 
1Е Рахамбех(1)='/р' Ереп 
Беа1п 
С1о5е; 
ех1*; 
епа; ‚ 
1Е Рагамзег (1) [2]='с' Евеп 
Беа1п 
ОРЕ1опзЕоги. НоММода1 ; 
С1о5е; 
ех1(; 
епа; 


ера; 


Т1пег1 .Ераблеа:=егие; 
М1АаЕЙ :=бсгееп .\\М1аер; 
Не1ареЕ: =5бсгееп .Не1аще; 


ева; 
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В самом начале процедуры происходит проверка — если количество параметров 
больше нуля, то нужно будет проверить, что передали. Если параметр равен /», то 
мы просто будем закрывать хранитель экрана и ничего отображать не будем. Если 
параметр равен /с:хххх, то будем отображать окно настроек. Но здесь с проверкой 
небольшое затруднение, ведь мы еще не знаем, какое число будет вместо хххх. 
Поэтому просто проверяем второй символ параметра, и если он равен букве с, ТО 
значит это /с. 

Окно свойств сделаем простейшим, в нем всего лишь запрашивается пароль для 
хранителя экрана. Саму реализацию работы с паролем мы не будем рассматривать, 
попробуйте добавить ее самостоятельно. Вам нужно сохранять этот пароль в реест- 
ре, а при попытке выхода из программы запрашивать ввод пароля. Если пользова- 
тель ввел правильный пароль, то хранитель экрана можно закрывать. Попробуйте 
всю эту логику написать сами. Если что-то не получится, то на компакт-диске, при- 
лагаемом к книге, можно найти пример, в котором реализовано все необходимое. 

Теперь вернемся к обработчику события оп5вом. После проверки всех парамет- 
ров, делаем таймер (т1тех1) активным. Если у вас на форме стоит активный тай- 
мер (свойство ЕпаЪ1еа равно схие), То сделайте его неактивным. | 
_ После активизации таймера определяем ширину и высоту окна как значения 
ширины и высоты всего экрана, чтобы окно раскрылось на весь экран. 

Остальной код практически не изменился, за исключением того, что вы должны 
добавить проверку пароля. Здесь можно посоветовать добавить возможность 
управления частотой таймера в окне настроек, но это уже по желанию. 


ПРИМЕЧАНИЕ. На компакт-диске, прилагаемом к книге, в папке \Примеры\Г лава 25\ 
ЗсгеепЗауег вы можете увидеть пример этой программы. 


25.2. Компоненты в гипёте 


Сейчас мы рассмотрим маленький пример, который ответит сразу на два вопро- 

са: как создавать компоненты во время выполнения программы и как ими управ- 

лять. Что такое гипите? Ваша программа может находиться в двух состояниях — | 

_ дезепате (время создания проекта) и гипИите (время выполнения проекта). В этом 

случае будем создавать компоненты не путем рисования на форме, а путем исполь- 
зования программного кода во время выполнения программы. 

Создайте новый проект и установите на его форму два компонента ттаъе1. Все 
остальное будем программировать. Для начала в разделе рх1уаеке объявите пере- 
менную СошрГ1зЕ Типа ТЬ1$е. ТЬ1зЕ — это класс-контейнер, который может хра- 
нить динамический массив других объектов. Точнее сказать, он хранит только 
ссылки, но это не главное. Главное — тт1зе позволяет хорошо управлять храня- 
щимися в нем объектами. | 

Для события опсгеаее напишите следующий код: 

СошрГ15%Е:=ТГ1$е.Сгеаке; 


Здесь мы инициализируем переменную сопрЬ1зЕ с помощью объекта тг. 
Во время инициализации выделяется память под эту переменную. Сразу же для со- 
бытия опрезегоу напишем следующую строку кода: | 

СомрГ1$еЕ.Ргее; 
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Здесь мы освобождаем выделенную переменной сопрь+зе память. 

Теперь создадим обработчик события, возникающего при нажатии клавиши 
мыши — ОпМочзеромт. По нажатии кнопки мыши, мы будем создавать на форме 
новый компонент тРапе1. Давайте в нем напишем код, показанный в листинге 25.3. 


ргосеаиге ТЕои1 .РогиМочзероит (Зепаег: ТОБ]есе; Ваббоп: ТМоцзеВоЕЕоп; 
ЗЕЕ: Т5В1ЕЕббаке; Х, У: Тпеедег); | 

уах 
ТепрРапе]1 :ТРапе1; //Объявляем переменную для панели 

Беа1п | 
//Создаем панель. В скобках у Сгеабе указан будущий владелец 


ТепрРапе] : =ТРапе1 .Сгеаее (Роги1); 


ТепрРапе1.ГеЁе:=Х; //Устанавливаем левую и правую координаты 


ТепрРапе1.Тор:=У; //в Хи У позиции, где нажата кнопка мыши 


ТетрРапе]1.ИМ1АЕй:=20; //Устанавливаем ширину 


ТетрРапе]1 .Не1апЕ:=20; //Устанавливаем высоту 


//Далее устанавливаем обработчик нажатия на эту панель 


ТепрРапе1 .ОпМочзеро\мт : =Рапе1Моизеро\млт; 


//Добавляем панель в контейнер Сотр1зе (СотрЬ1$е.Ааа) 


//и сохраняем результат в ТепрРапе]1.Тад 
ТепрРапе!] .Тач : =СотшрЬ1$е.Ааа (ТетрРапе]1); 


Еоут1 .ТпзегЕСопехго]1 (ТетрРапе1); //Вставляем панель на форму 


ета; 


` Для начала вспомним, что это за свойство Тад у компонента тРапе1. Таа — ЭТО 
просто целое. значение, которое вы можете использовать по своему усмотрению. 
Именно этим свойством мы и будем часто пользоваться во время программирова- 
ния нашего примера. | 
Теперь разберем написанный выше код. В разделе уаг объявим одну перемен- 
ную ТепрРапе1 ТИПа ТРапе1. Это временная переменная, в которой будет инициали- 
зироваться новая панель. В первой же строке кода обработчика инициализируем 
_ эту переменную как панель. В качестве параметра методу сгеаЕе передается имя 
объекта, который будет являться родителем создаваемого компонента. Мы переда- 
ем нашу главную форму, потому что компонент будет размещаться именно на ней. ' 
На следующем этапе устанавливаем левую и правую позицию панели как коор- 
динаты места указателя мыши, где произошел щелчок ее кнопки (х и у, которые 
нам переданы: в обработчике, указывают на точку, в которой была нажата кнопка 
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мыши). Далее происходит установка ширины и высоты панели. Занесем туда зна- 
чение 20, пусть создаваемая панель будет квадратная. | | 

Теперь об обработчике события тепрРапе! .ОпМочзеромт. Здесь указываем имя 
функции Рапе1Моцзеромт. Но такой функции нет среди стандартных. Поэтому мы 
должны ее создать самостоятельно. Как это сделать эффективно? 


1. Мы создаем обработчик для тТРапе1, поэтому временно поставьте один 
экземпляр панели на форму в произвольное место. 


2. Создайте для него обработчик на опмоизеронт и переименуйте его в Рапе1Моизеромт. 


3. Напишите нужный текст (его рассмотрим позже), и можно удалять временно 
созданный на форме экземпляр тРапе1. 


Таким образом, вы можете быть уверены, что ошибок не будет, потому что 
Вер! сам пропишет функцию Рапе1Мочзеромт где надо и укажет все необходимые 
для данного типа события параметры. | 

Если захотите объявлять эту функцию самостоятельно, то напишите в разделе 
рг1уасе следующий код: 

ргоседиге Рапе1МоцзеПо\мт (бепдег: ТОЮЗесе; ВаЕбоп: ТМоцзеВаееоп; 

5р1ЕЕ: Т5Р1ЕЕбеабе; Х, У: Табедег); 


Объявлять можно и до ре1уаке, там, где Оеры объявляет обработчики событий, 
но желательно этого не’ делать. Теперь опишем саму функцию: 
рхгосеацге ТРотт]1 .Рапе1Моцзеро\мт (бепаег: ТОБЗесе; Ваббоп: ТМоцзеВиееоп; 
ЗВ1ЕЕ: Т5р1ЕЕбеасе; Хх, У: Тобедег); 
ред1п 


еп; 


СОВЕТ. Обязательно нужно следить, чтобы количество и тип параметров точно сов- 
падали с необходимыми. У каждого обработчика свои параметры и при объявлении 
процедуры вручную нужно относиться к этому вопросу очень внимательно. Именно 
поэтому вам необходимо использовать первый способ с временной панелью, когда 
Ферт! сам создаст обработчик для одной панели, а вы будете использовать его для 
других, создаваемых во время выполнения программы. 


Теперь панель готова и ее надо сохранить в контейнере сопрь:з+. Для этого 
нужно выполнить метод даа контейнера и в качестве параметра передать ему нашу 
панель: 

СомрЬ13е. ААА (ТепрРапе1) 


Этот метод добавит панель в. контейнер И вернет индекс компонента в контей- 
нере. Этот индекс мы сохраняем в свойстве Тач Панели ТепрРапе1. 


ПРИМЕЧАНИЕ. Свойство Таз абсолютно не влияет на сам компонент, но нам этот 
`индекс пригодится для дальнейшей работы. 


Теперь давайте посмотрим на функцию рРапе1Моизеромл, которая должна быть 
следующей: | 
ргоседиге ТЕогт1 .Рапе1Молзеро\мт (бепдехг: ТОБЗесе; Виебоп: ТМоцзеВаееоп; 
ЗВ1ЕЕ: ТбВ1ЕЕ5еасе; Х, У: Таеедег); 
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Беач1п 
Гаре11.Саре1оп : = 
ТоЕТобег (ТРапе!1 (Сопр1з®.теемз (ТРапе1 (бепаег).Тад]) .ГеЁЕс); 


‚ Тафе12.СарЕ1оп : =ТпЕТобех (ТРапе1 (бепаег) .1ШеЕе); 
епа; 


Здесь две строки кода, правда, первая строка разбита на две, потому что в одну 
не уместилась. Обе строки кода выполняют одно и то же действие, но по-разному. 
Эти строки записывают в свой ТтаЪе1 левую позицию панели, по которой произ- 
веден щелчок мышью. 

Первая строка, чтобы получить левую позицию панели, использует Сопр!.1 эк, 
а вторая работает с панелью напрямую. Рассмотрим сначала вторую строку. В ней 
основным является выражение тРапе1 (5еп4ех) .ГеЁ+Е. Зеп4ехг — передается про- 
цедурой-обработчиком Рапе1Моцзеромт. В нем записан указатель на объект, кото- 
рый сгенерировал событие опмоцзеро»т. В нашем случае это будет указатель на 
панель, по которой вы щелкнули мышью. Так как мы точно уверены, что это па- 
нель, то так и показываем тРапе] (5епаех). Этим мы приводим 5епдех, который 
имеет тип тоь3есе, К ТРапе1, и теперь вы можете использовать все свойства и ме- 
тоды панели (для примера нам достаточно свойства ГеЕЕ). 

Если бы мы знали точное имя панели, то этого писать не пришлось бы. Но это 
невозможно, потому что все создаваемые в Випите панели (а их можно создать 
любое количество) у нас используют один обработчик, вызываемый по щелчку 
кнопки мыши, и мы не знаем, по какой именно панели был произведен щелчок. 
Получив значение левой позиции, мы переводим значение левой позиции (целое 
число) в строку с помощью тпЕТобех. 

Первая строка очень похожа на вторую, только внутри ТРапе1() мы используем не 
Зепаех, а СопрГ13е.ТЕемв [ТРапе1 (Зепаег).Таа], т.е. значение из контейнера. Чтобы 
получить первое значение из контейнера, нужно написать — Сотрь1зе.теетз [0], ДЛЯ 
второго — СотрЬ1 зе .Теешз [1], ДЛЯ третьего — Сотрг1$е.тТЕемез [2] ит. д. Но по какой 
именно панели произведен щелчок? Чтобы это узнать, запишем тРапе1 (5епдех).Тач, 
т.е. получаем свойство Таз (там хранятся индексы панели) панели, сгенерировавшей 
событие. Далее все происходит точно так же. 

Запустите пример и пощелкайте мышью по форме. При каждом щелчке будут 
создаваться панели. Потом попробуйте пощелкать по самим панелям. На двух 
ТЬаБе1 будут появляться значения левой позиции панели, по которой вы щелкали. 

Теперь давайте рассмотрим еще несколько интересных свойств и методов, кото- 
рые есть у контейнера т115+. 


С соипЕ — в этом свойстве хранится количество элементов в контейнере. 


О теемз — здесь хранятся ссылки на элементы контейнера. Для доступа к ссылкам 
нужно написать теемз$ [Индекс элемента]. 


С) с1еахг — очистить список. 


О ре1ееке — удалить элемент из списка. В качестве единственного параметра нужно 
указать индекс удаляемого элемента. 


О] кхсвапде — поменять в контейнере местами два элемента. Здесь два парамет- 
ра — индексы меняемых местами компонентов. 
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О Е:хзЕё — получить указатель на первый элемент списка. Это то же самое, что 
и записать теемз [0]. | | 


О] траехоЕ — получить индекс указанного в качестве параметра объекта. Допус- 
тим, что вы знаете объект (ТРапе1) и хотите узнать, под каким индексом он рас- 
положен в контейнере. В этом случае можно написать следу- 
ЮЩИЙ КОД: СопрЬ1 зе. ТпаехоЕ (Рапе11). Ёсли такой панели не найдено в списке, 
то будет возвращено значение -—1, иначе правильный индекс указанной панели. 


О] тозегЕ — вставить новый элемент. У этого метода два параметра — индекс, под 
которым надо вставить элемент, и сам элемент. | 


О тазЕ — получить последний элемент списка. Это то же самое, что использовать 
СВОЙСТВО ТЕемз [СоипЕ — 1]. | 


О моуе — переместить элемент в новое место. У метода два параметра — индекс 
элемента, который надо переместить, и индекс, который должен получить эле- 
мент. 


О Раск — уничтожить и освободить память. При удалении элементов из контейне- 
ра они просто помечаются как нулевые. Выполняя этот метод, все нулевые эле- 
менты уничтожаются и занятая ими память освобождается. 


С вемоуе — удалить элемент. В качестве параметра нужно указывать элемент, ко- 
торый надо удалить, например, СопрГ1зе.Ветоуе (Рапе11). 


Давайте добавим в наш пример возможность удаления панели с формы и из 
контейнера. Это будет происходить по щелчку правой кнопки мыши в области 
компонента. | | 

Добавьте в конец процедуры Рапе1Моцзерома следующий код: 

Е Ваббоп=шьвзоьнеЕ ЕВеп | 

Ъеад1п 
1паех: =ТРапе]1 (бепаег).Тад; 
ТРапе1 (Сомр!Г1$5е.Теетз [1паех]).Егее; 
СотшрГ1$е .Бе1еее (1п4ех); 


Рог 1:=1паех во СопрЬ1$е.СомпЕ -1 @9о 
ТРапе1 (СопрГ1$е.Теетз[1]).Таа: =ТРапе1 (СогпрГ15®е.Теемз [1]).Тадч-1; 
епа; | 


В разделе уах этой процедуры нужно объявить две переменные 1пдех и 1. Обе. 
они будут числами типа 1пеедех. | 

Теперь разберем код. Сначала мы проверяем, если нажата правая кнопка мыши, 
То нужно удалить компонент, по которому произвели щелчок КНОПКОЙ МЫШИ. Для 
этого сначала сохраняем индекс компонента тРапе1 (беп@аетг).Таз В переменной 
1 пдех. Это необходимо, потому что после уничтожения компонент трРапе! (5епдекг) 
не будет существовать, и мы не сможем получить доступ к его свойству таз. 

Следующим этапом происходит удаление. Сначала МЫ уничтожаем сам компо- 
Ннент — ТРапе1 (СотмрГ1$е.ТеЕемз [1паех]) .Ргее, а после этого уничтожаем ссылку 
на него в контейнере сопрь1зе.Ре1еее (1п9ех). Вроде бы все удалили, но програм- 
ма после этого будет работать неправильно. Допустим, что у нас в контейнере было. 
5 элементов, и мы удалили третий. По идее, в контейнере должны остаться элемен- 
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ты с индексами 1, 2, 4, 5, а 3 должен отсутствовать. Но реально индексы перестро- 
ятся, и мы увидим индексы 1, 2, 3, 4. Если мы попытаемся оставить все так, как 
‚ есть, то программа будет нестабильна. Если вы щелкнете по последней созданной 
панели, то программа обратится к элементу в контейнере под номером 5, потому 
что в свойстве Таз панели находится цифра 5. Но такого элемента не существует 
и произойдет ошибка. Поэтому надо подкорректировать свойства таз у всех пане- 
лей, начиная с удаляемой. Для этого‘запускаем цикл от индекса удаляемой панели 
до последнего элемента списка и уменьшаем их свойство Тач: 

Еог 1:=1паех со СопрГЬ1$6.Сочпе -1 ао 

ТРапе] (СошрГ1$е.Теемз [1]).Тад:=ТРапе]1 (СошрГ1$е.Теетз$ [1]).Таз-1; 


Вот теперь у нас в контейнере будут элементы с индексами от | до 4 иу всех 
панелей на форме в свойстве таз будут правильные значения. 

Можно было бы написать тот же пример без использования свойства тас, а ис- 
кать нужный объект в списке тг1зе с помощью метода тпаехоЕ, тогда после удале- 
ния. не придется корректировать значение таз поля, но этот метод будет работать 
медленнее. | 


` ПРИМЕЧАНИЕ. На компакт-диске, прилагаемом к книге, в папке \Примеры\Глава 25\ 
Виупите вы можете увидеть пример этой программы. 


25.3. Тест на прочность 


У пользователей очень часто возникают вопросы, связанные с написанием про- 
граммы-теста. Видимо, преподаватели в институтах начинают любить компьютеры 
и используют их для тестирования знаний учеников. Но так как в наших школах 
есть проблемы с программным обеспечением, то преподаватели дают задания сво- 
им ученикам-программистам написать какой-нибудь определенный тест. 

В связи с этим в данном разделе будет рассмотрен процесс разработки програм- 
мы-теста. В этой программе будет множество интересных приемов программиро- 
вания, и для обучения такая программа будет просто идеальной. 

Итак, нам придется написать две программы: | 


О редактор тестов. В ней будут создаваться тесты и заполняться вопросы, на ко- 
торые надо будет отвечать, а также варианты правильных ответов; 


О программа тестирования. Это оболочка, которая будет загружать созданные 
тесты, и в ней пользователь должен будет отвечать на появляющиеся вопросы. _ 


Самое простое решение — использовать базы данных. Но для них нужны спе- 
циальные надстройки (ВОЕ, РАО ит. д., в зависимости от базы), что не желатель- 
но. В данном случае можно и даже нужно обойтись без этого. | 

Итак, начнем мы с редактора, потому что сначала нужно научиться создавать 
тесты, а потом уже будем их отображать и работать с ними. Для начала создадим 
главную форму, как это показано на рис. 25.2. Здесь у нас главное окно, в котором 
есть главное меню программы, панель кнопок быстрого вызова команд Тоо1ваг 
и строка состояния, которая будет отображать подсказки. Попробуйте создать что- 
то подобное. 
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Рис. 25.2. Главная форма редактора теста 


На форме созданы следующие кнопки (и соответствующие пункты меню): 


О Создать; - О Настройки программы; 
С Открыть; _ О Помощь; 

О Сохранить; — | 0 программе; 

СО Печать; 4 О Выход. 


У каждой кнопки в свойстве н1пе указана соответствующая ей подсказка, кото- 
рая должна появляться в строке состояния при наведении указателя мыши на эту 
кнопку. Чтобы эта подсказка появлялась еще и рядом с кнопкой, установите свой- 
СТВО 5Номн1пЕ у главной формы в значение егие. | 

Первым делом давайте сразу же сделаем возможность отображения подсказок 
н1пе в строке состояния. Для этого в разделе рх1уаее опишите новую процедуру: 

ргоседиге 5ЗПомН1пе (5еп@ег: ТОЪЗес+); 

Теперь нажмите сочетание клавиш <СН1>+<$>+<С>, чтобы создать заготов- 
ку для этой процедуры. В ней нужно написать следующее: 

ргосеаоге ТТезсЕЯ1еохРохи. ЗвоиНфле (епдек: ТОБ)есе); 

Ъед1п | 

Збаба$Вах.Рапе]13.ТеЕемсз [0] .ТехЕ := Аор11саефоп.НАпе; 

епа; | 

Здесь мы отображаем текст текущей подсказки, который находится в свойстве 
Н1аЕ объекта Арр11саЕ1оп. на нулевой панели строки состояния. Пусть строка со- 
стояния состоит из двух панелей. 

Теперь сделайте главную форму многодокументной. ля этого в свойстве 
Еогибеу1е нужно установить значение Езмотгкогим. | 

Можете сразу же создать окно О программе. Здесь это описываться не будет. 
потому что ‘фантазия у каждого программиста работает по-разному, ну а пример 
окна вместе с исходным кодом вы сможете увидеть на диске. 
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Создайте сразу обработчик со- 
бытия 0опс11ск для кнопки выхода 
и напишите там вызов метода 
С1озе, чтобы по нажатии этой 
кнопки наша программа закрыва- 
лась. Потом эту же процедуру- 
обработчик нужно назначить пунк- 
ту меню Выход. . 

На этом первые приготовления 
закончены. Теперь двинемся даль- 
ше. Создайте новую форму (уста- 
новите ее имя — МемтезЕЕогм), 
которая будет отображаться по на- 
жатии кнопки Создать. В этом ок- 
не нужно расположить строку вво- 
да имени теста и ниспадающий 
список для выбора типа теста. Как 
это сделать, показано на рис. 25.3. | | 

У ниспадающего списка измените свойство 5Еу1е на сзБхорромот1зе для того, 
чтобы пользователь мог только выбирать уже имеющееся значение в списке и не 
мог вводить новое. В свойстве теемз (список элементов) у нас будет только одна 
строка — Вопрос — варианты ответов. В принципе, можно было бы и не делать 
этот ниспадающий список раз там только один элемент, но он установлен, чтобы 
вы потом могли расширить возможности программы. 

Для кнопок Да и Нет установите только свойство Мода1вези1+ в значения пхок 
И пуСапсе1 соответственно. 

У самой формы измените свойства: 

Роз1Е10п На роМа1пРохиСепеех, чтобы окно показывалось по центру главного окна. 

Вогдегбеу1е на 5з51п91е, чтобы пользователь не мог изменять размеры окна. 

Эти свойства мы будем менять у всех форм, которые будут отображаться мо- 
дально. Кнопки Да и Нет у таких окон тоже всегда будут иметь указанные выше 
значения свойства Мода1Кези1е, поэтому мы больше не будем останавливаться на 
этих вещах. | 

Теперь возвращаемся в главную форму и по событию опс11ск для кнопки 
Создать пишем код отображения окна МехтезЕРоги. Это окно нужно отображать 
как модальное. 


[2 Окно создания нового теста 


Редактор Редактор тестов 
тестов | 


Рис. 25.3. Окно создания нового теста 


ПРИМЕЧАНИЕ. На компакт-диске, прилагаемом к книге, в папке \Примеры\Глава 25\ 
ТезИ\Редактор вы можете увидеть исходный код уже написанного примера. 


Теперь создадим окно формирования нового теста вопросов и ответов. Для это- 
го создайте новую форму и установите у нее следующие свойства: - 


О сарё1оп — Тест Вопрос — варианты ответов; 
О гогибеу1е — Езмотсь1лта (это у нас будет дочернее окно); 


С] маме — ОцезЕ1опвВези1ЕРогт. 
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По событию опс1озе пишем следующий код: 

ргоседиге ТОцез®1опВеза1ЕРоти.РогиС1о5е (бепЯег: ТОБ)дес(; 
уаг АсЕ1оп: ТС1озеАсЕ1оп); 

Беа1п 

АсЕ1оп: =саРгее; 

ОцезЕ1опВези1Роут: =п01]1; 

епа; 


Здесь в первой строке устанавливаем переменной Асе1оп (эту переменную мы 
получаем в качестве параметра) значение саегее, чтобы окно могло закрыться. До- 
черние окна по умолчанию не закрываются, а сворачиваются. Во второй строке об- 
нуляем переменную оцезЕ1опвези1 Рог, КОТОрая указывает на объект окна. 

Дочерние окна при старте автоматически становятся видимыми и отображаются 
в рабочем поле главного окна. Нам этого не нужно, потому что данное окно долж- 
но появляться только после того, как пользователь нажмет кнопку создания нового 
теста и подтвердит его создание. Для того чтобы отключить форму от авто с-тиче- 
ского создания, мы должны войти в свойства проекта (Ргодесй | Орйоп5$) и в поя- 
вившемся окне переместить имя формы оцезЕ1опВези1 Роги ИЗ СсПИСка Аиб-сгеме 
Гогт5 в список АуаЙаЫе Гогта5. 

Теперь перейдем к дизайну формы создания теста. Ее вид вы можете увидеть на 
рис. 25.4. В центре окна находится компонент тТкее\У1ем, растянутый по левому 
краю, и г1зЕУ1ем, растянутый по всему оставшемуся контуру (с1С11еп®). Вверху 
окна расположена панель Тоо1ваг со следующими кнопками: 


О Создание вопроса; | ’ О Удаление; 

О Редактирование; ‚ 0 Выход. 
Выделите компонент г,15Е\У1е\м и установите у него следующие свойства: 

О Сг1АГ1пез : =6хице; О У1ем5су1е: =узКерог®, | С] маше: =Кези1 Е У1ем. 
После этого дважды щелкните мышью по свойству Со1иаз и в появившемся 


окне создайте две колонки с именами Верно и Вариант ответа. У второй колонки 
установите свойство АцЕо51=те в значение сгле. 


Рис. 25.4. Форма окна создания теста 
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ооо 


Теперь объявим в разделе суре следующую структуру: 
РОцез&1оп=^ТОцезЕ1оп; 


ТОцезЕ1оп=гесога 
Маше: Зеулпта [255]; 
Везо1ЕСоцпе : Тпбедег; 
ВКез11ЕТехе: аггау[0..10] оЕ ЗЕх119 [255]; 
Вез11Е\Уа]ае: аггау[0..10] оЕЁ Боо1еап; 
епа; 
У структуры ТоцезЕ1оп есть следующие поля: 
Маше — здесь будет храниться вопрос; 
Вези1ЕСоцпЕ — количество вариантов ответов; 
Вез11еТехе — массив из строк для десяти вариантов ответов, | 
Вез11(\/а1ае —— массив из булевых переменных, указывающих, какие ответы 
верные. | 


Тут же объявлена переменная РОоцезЕ1оп, которая является указателем на струк- 


туру ТОцезе1оп. 


дактирования элементов, которую 
мы будет отображать на экране по 


В переменной рРгоЗесЕМаще 
будем хранить имя проекта. Спи- 
СОК ОчезЕ1опь1зЕ будет использо- 
ваться для хранения структур типа 
РоицезЕ1оп. Этот список должен 
инициализироваться по событию 
оп5вом и уничтожаться по собы- 
ТИЮ ОпС1озе. Как это делать, вы 
уже должны знать. | 


Теперь в разделе риЪ11с объявим следующие переменные: 
рчЬ11с 

{ РаБ11с аес1агае1опз } 

Рхо]есЕМапе : $6у1па [255]; 

Оце$Е101015$5%:7ТЬ1$6; 


| {Редактирование вопроса 


Далее создаем форму для ре- 


нажатии кнопки Создать вопрос 


и Редактировать вопрос. Резуль- 


Рис. 25.5. Форма окна ввода вопросов 


тат работы вы можете увидеть 
на рис. 25.5. 


Здесь находится строка тЕа1е для ввода текста вопроса и тсвескгь1зЕВох ДЛЯ 


ввода вариантов ответа. По нажатии кнопки Добавить будем показывать окно вво- 
да нового варианта ответа: 


ргосеаиге ТЕа1ЕОчезЕ1опРогм. МемКези1ЕВиекопС11ск (бепаехг: ТОБЗесе); 
уаг 

бег: бега; 
Беа1п 
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ег: ='' 

1ЁЕ Тпраббчегу ('Новый ответ', 'Введите текст ответа:', $56х) Етеп 

Кези1%115ЕВох.ТЕетз.АЧЯ(5ег); | 
епа; 


_ Здесь мы объявили одну строковую переменную. В первой строке кода ей при- 
сваивается пустая строка. Затем на экране отображается стандартный диалог ввода 
текстовой строки с помощью функции типриеочеху. 

У этой функции три параметра: 


О текст, который будет отображаться в заголовке окна; 
С текст, который будет отображаться в окне, рядом со.строкой ввода; 


С строковая переменная, через которую мы можем передать значение по умолча- 
нию и получить результат ввода. 


Если функция возвращает ехие, то пользователь после ввода нажал кнопку ОК, 
И В этом случае мы добавляем введенный текст в список ответов Кезц1ЕТ13з Вох. 
Для события опс11ск, связанного с нажатием кнопки Удалить, напишем сле- 
дующий код: 
ргоседике ТЕЗ1ЕОцезЕ1опЕогиа. брееЯВиекоп1С11сК (5$еп4ех: ТОЪЗес®); 
Беадлп 
1ЁЕ Кезо1ЕР1$ЕВох .ТеешТпдех<>-1 (реп 
Вези16115ЕВох. ТЕетз .Ое1есе (Кези1611$5ЕВох.ТеЕем1Тпаех); 
епа; 


В первой строке кода мы проверяем свойство тееттпаех, которое указывает 
на выделенный элемент в списке. Если оно не равно -1, значит, в списке есть 
выделенный элемент, и мы его должны удалить. Для этого выполняем 
Вез\1 611 5ЕВох.ТЕемз .Ре1еке, указывая в качестве параметра выделенную строку. 

Теперь вернемся к нашему окну ОчезЕ1опвези1ЕРоги. Здесь создадим обработ-_ 
чик события опс11сК для кнопки создания нового вопроса. В нем нужно написать 
код, представленный в листинге 25.4. | 


резов 
ы Я 2 
НГ:25. 4. 


ра НЕ ре 
: ава ох а 2 А о 

Е т 

АЯ А АИТ В 


ргоседцге ТоцезЕ1опВеза1ЕРоги.МемВиеЕопС11ск (бепаеху: ТОБ)есЕ); 
уах | | 

Мемочезе : РОцезЕ1оп; 

1:Тобедег; 
Беач1п 

//Очищаем содержимое окна ЕЯ1ЕОлезЕ1опЕотгт 

ЕЯа1 с ОцезЕ1опРога.Кеза1%11$5ЕВох. Теет$ .С1еаг; 


ЕЗ1 ЕОцезЕ1опРога.ОцезЕ1опЕЯ1 .Техе:=''!; 


/ /Отображаем окно на экране 


Еа1ОцезЕ1опРохи. бПомМоаа1 ; 
°1Е ЕЯ Очезе1опРога.МоЯа]1Кеза1Е<>тхОК ЕРеп ех1(; 


//Создаем в памяти новую структуру 
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Мемочез* : =Мем (РОцезЕ1оп); 
Мемоцезе .Маме : =ЕЯа1ОцезЕ1опРоги.Оце$Е1опЕЯ1е .Техе; 
Мелючезе .Кези1ЕСоцие : =Е 41 ОцезЕ1опРогт.Веза1Е11$ЕВох. Теешз .Соцпе; 


//Добавляем в структуру варианты ответов 

Еог 1:= 0 со №емюцезе.Веза1ЕСоцпе-1 Яо 
Бед1п | | 
Мемюиез*.Кез11еТехе [1] : =Е 416 Оцезе1опЕохт.Кези1%11$5ЕВох. Теетз .56г1п9$[1]; 
Мемоцез$е .Вез11&\/а1ае[1] : =Еа1ЕОцезе1опгоут.Вези1Е11$6Вох.СНескеяа [1]; 
епа; | 

Оце${ 1011156 .Ааа (Мемочезе); 


//Добавляем новый элемент в дерево вопросов 
м1Ей ОцезЕ1опТкее\У1ем. Теетз .Ада (п11, Мемоцезе .Маше) Чо 
Беа1п 
ГаачеТпаех: =0; 
Раса: =Мемоцез(; 
епа; | | 


епа; 


В самом начале очищаются элементы управления окна Еа1еОочезЕ1опРохт. 
Потом отображаем это окно, и если пользователь ввел название вопроса и нажал 
ОК, то нужно обработать введенную информацию. Для начала выделяется память 
под переменную Мемочез+. Эта переменная объявлена как РОоцезЕ1оп, а это указа- 
тель на структуру тоцезЕ1оп. Как вы знаете, любые указатели создаются пустыми, 
и, чтобы они на что-то указывали, им надо выделять память. Выделяем память 
с помощью функции Ме». Этой функции нужно передать в качестве параметра тип 
данных, под который надо выделять память. Мы указываем наш указатель 
РОцезЕ1оп, ПО которому функция определит, сколько памяти надо выделить. Ре- 
зультат выполнения функции — указатель на выделенную память, который мы со- 
храняем в переменной мемоцез+. | 

Если нужно уничтожить выделенную память, надо вызвать процедуру р1зрозе 
и передать ей переменную, которую нужно уничтожить, например, р1зрозе (Мемюцез(). 
Однако на данный момент не надо уничтожать эту переменную, потому что она 
потом будет использоваться, и мы ее добавляем в список оцезЕ1опт1зЕ ТИПа тЬ1 зе. 

После того как выделена память для структуры Мемочезк, мы заполняем ее поля 
в зависимости от введенной пользователем информации. Как только все заполнено, 
добавляем структуру в список: 

ОцезЕ1о0опГ1$6.АЯаа (Мембопезе); 


После этого происходит самое интересное. Мы должны создать новый элемент 
в дереве вопросов. Для этого выполняется следующий код: 
\/1ЕВ ОцезЕ1опТгееуУ1ем. Т6етз .Ааа(п11, Мемочезе.Мате) ао 
Беач1п | | 
ГлаачеТпаех: =0; 
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Раса : =Мелюцез(; 
епЯ; 


Давайте разберем этот код по частям. В первой строке в структуру дерева до- 
бавляется новый элемент с ПОМОЩЬЮ Вызова ОцезЕ1опТгее\У1ем. Теемз . Ада. В каче- 
стве параметров методу даа нужно передать указатель на родительский элемент 
в дереве и текст элемента. В качестве родительского элемента передаем 011, ПОТО- 
му что мы будем создавать дерево без вложенных элементов. В качестве текста 
элемента передаем текст вопроса. | 

Выполненный метод даа возвращает указатель на созданный элемент. И тут 
у нас стоит оператор \71 ЕВ, который заставляет выполнить следующие действия 
с указанным объектом. Получается, что действия, перечисленные между ъед1п 
И епа, будут выполняться с созданным элементом дерева вопросов. А там выполня- 
ется два действия. 


С ттадетпдех:=0 — индексу иконки присваивается значение 0. 


ВНИМАНИЕ. Давайте установим на форму список картинок падет 5", загрузим туда 
несколько картинок и укажем этот список в свойстве Тмазез нашего дерева. Получа- 
ется, что в этом коде мы назначаем элементу первую картинку из созданного списка. 


С рака: =МемоцезЕ — СВОЙСТВО Раса элемента дерева. 


ВНИМАНИЕ. Это такое же свойство, как Таз у всех компонентов. Оно также не влияет 
на работу компонента и его элементов и может использоваться в наших собственных 
целях. Это свойство имеет значение указателя, и мы можем в него вносить любые 
указатели. Мы присваиваем в это свойство указатель на структуру МемОчез\, которая. 
связана с созданным элементом. 


Теперь создадим обработчик события опсвапде для нашего дерева. В нем нужно 
написать содержимое листинга 25.5. 


3. эролей 


ргоседиге ТОцезЕ1опВези1еЕРока.Оцез(1опТгееУ1ем\Спапде (бепдег: ТОЮЗес®; 
Моде: ТтгееМоде); | 

уах 
1: Тпбедег; 

Бед1п 
//Очищаю список 


Веза1\1ем.тТЕетз .С1еаг; 


//Если не выделен элемент, то выход: 


1Е №@ае=р11 ЕПеп ех1(; 


//Запускаю цикл, по которому заполняются данные списка 
Рог 1:=0 со РОчезетоп (поае.Паба) .Кеза1ЕСоипЕ-1 @о 
\1СП Кези1Е\У1ем.Теетз.Аяаа @4о 
Беа1п 
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СарЕ1оп : =РОцез(1оп (поде .Рафа) .Кез11ЕТехе[1)}; 
1Е РОчезЕ1опт (поае.Раба) .Вез11Е\Уа1лае [1] =Ехае ЕВеп 
Без1п 
баБТЕетз .АЯа('Да'}; 
ТмачеТпаех:=2; 
епа 
е1зе 
Беад1п 
ЗиБТЕемз . Ааа ('Нет'); 
Ттадетпаех:=1; 
епа; 
епа; 


епЯ; 


Это событие генерируется всякий раз, когда пользователь выбрал какой-нибудь 
элемент. По выбору вопроса мы должны заполнить ответы в списке т,15Е\У1ем. 


Но прежде чем заполнять, очищаем список, потому что он уже мог быть заполнен-_ 


ным данными другого вопроса. 

В обработчик события передается параметр моде типа ТТкеемоде, который 
указывает на выделенный элемент. Второй строкой кода происходит проверка, 
если выделенный элемент равен п:1 (ничего не выбрано), то нужно выходить из 
процедуры. 

Чтобы получить доступ к структуре рочезЕ1оп, в которой хранятся данные об 
ответах выделенного вопроса, мы должны обратиться к свойству рака выделенного 
элемента Моде. Как вы помните, в это свойство мы поместили указатель на струк- 
туру РочезЕзоп. Но программа не может знать тип этого указателя, поэтому мы 
должны явно указывать это — РОчезе1оп (поЯае.Рака). 

Далее запускается цикл от 0 до количества вариантов ответов в данном вопросе 
РОцезЕ1оп (по4е.Рафа) .Кези1ЕСоичпЕ минус 1. Внутри цикла выполняем код 
Вези1Е\У1еи.Теетз.даа, который создает очередной элемент списка. Здесь метод 
лаа также возвращает указатель на созданный элемент, вместе с которым и будет 
выполняться дальнейший код (06 этом говорит оператор мзеъ). А внутри кода вы- 
полняются несколько действий. 

С Заполняется заголовок элемента Саре: оп. 


С Если рРочезЕ1оп (поде.Рака) .Вез11%\/а1ие[1] равно егие, т.е. ответ верный, 
то добавляем дочерний элемент (текст этого элемента будет отображаться во 
второй колонке списка) заътеемз.Ааа('Да') и присваиваем иконке индекс 2. 
Иначе текст дочернего элемента будет равен нет и иконка будет иметь индекс 
единицы. 


Таким образом, внутри цикла будут обработаны все варианты ответов и все они 
будут добавлены в список. Попробуйте сейчас запустить программу, создать пару 
вопросов и посмотреть, как все будет выглядеть. Окно созданной программы вы 
можете увидеть на рис. 25.6. 
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ЧФ Какие животные парнокопь 
--, Где обитает слон? 

:-.(#] Сколько горбов у верблюда | . 

Я Заяц - это. | Ад 


Рис. 25.6. Рабочее 
окно программы 


Здесь осталось рассмотреть код, по которому мы будем отображать окно, пока-. 
занное на рис. 25.6. Для этого надо скорректировать обработчик события опс1+1ск 
для кнопки создания нового проекта теста: | 

ргоседиге ТТезеЕЯ1ЕохЕониа.МемваеопС11сК (бепаех: ТОБзес®); 

`Беаап 

МемТезЕЕГохт. $ПомМода1 ; 
1ЁЕ МемтезЕРога.Мода]1Кезо1е<>шкОК Ереп ех1е; 


1Е МемтезеРогт.ТезеТуреВох. ТеетТпаех=0 (пеп 

Беач1п 
ОцезЕ1опКези1еРогт: =ТОцез(1опКези1ЕЕогт.Сгеаее (Оутег); 
Оце5Е1опВези1ЕРоута. Рго]ес&Мапе : =МемТезеРогм.Тез(МамеЕЯ1{е .Тех*е; 
ОпезЕ1опВези1ЕРотт.СарЕ1 от : =Оцез1опВези1ЕРоит.Саре10п+' : ' 

+ОцезЕ1опКеза1ЕРоум. Рго]есЕМапе; 
епа; | 
епа; 


В первой строке этого кода мы показываем окно создания нового проекта. Если 

‚ пользователь выбрал первый тип теста "Вопрос — варианты ответа" (в примере он 

будет описан как единственный), то создается окно, в котором мы создаем вопро- 

сы. Потом сохраняем имя выбранного проекта и изменяем заголовок окна. 
Обработчики. события кнопок Редактировать и Удалить вопросы мы рассмат- 

ривать не будем, а только рассмотрим их код с комментариями. Вы должны разо-. 

браться с этим кодом самостоятельно (листинг 25.6). 


ргоседцге ТоцезЕ1опВези1ЕЕРога. Еа 1 ВиебопС11сК (бепаег: ТОБзесе); 

ат 
1:Тибедег; 

Беа1п 
//Здесь Оцезе1опТгее\У1ем.бе1ессеЯ указывает на выделенный элемент 
//в дереве. Если он равен п11, то ничего не выделено, и нужно‘ выйти 


1ЁЕ Очезе1опТгее\У1ем. $бе1есвбеЯ=п11 ЕВеп ех1%; 


//Заполняем компонент ОцчезЕ1опЕЯ1еЕ в окне редактирования вопросов 
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ЕЗ1 с ОцезЕ1опРогм.ОцезЕ1опЕЯ1е .Техеё: = 
РОоцезЕ1оп (бцезЕ1опТгеве\У1ем.бе1ессеЯ.ПБаха) .Маме; 


//Очищаем список вариантов ответов в окне редактирования вопросов 
Еа1ЕОцезЕ1опРоум.Кези1Е11$ЕВох.С1еаг; 
Еох 1:=0 со РОцезЕ1оп (ОцезЕ1опТкее\У1ем.5е1ескеЯ.ПБака) .Вези1ЕСоупЕ-1 @о 
Ъеа1п | | 
//Заполняем список вариантов ответов в окне редактирования вопросов 
ЕЧ1ОцезЕ1опЕоги.Вези1 ЕТ зЕВох.Теетз.Ааа( | | 
РОоцезе1оп (ОцезЕ1опТгее\/1ем.5е1еске@.Рака) .Вез11ЕТехе[1]); 


//Если ответ верный, то ставим флажок 
1Е РОцезе1оп (ОцезЕ1опТгееУ1ем.бе1есееа.ПБака) .Вез11Е\Уа]1ае[1]=Ехае ЕВеп 
ЕЗ1 ОцезЕ1опРогт. Кези1 1,1 3ЕВох.Срескеа [1] :=Егае; 


епа; 


//Отображаем окно редактирования вопроса 


Е91ЕОцез&1опГота. бпомМо@Яа1 ; 
1Е Еа1Оцезе1опРогт.МоЯа]1Вез1*е<>итОКкК реп ех1(; 


//Записываем информацию обратно в структуру 
РоцезЕ1оп (ОцезЕ1опТгее\/4ем.се1ескеа.раеа) .Маще: = 
ЕЯ1ЕОцезе1опРохги.Оцезе1о0опЕЯ1е.Техе; | 
РочезЕ1оп (биезЕ1опТгее\У1ем .бе1есбеЯ.РаЕа) .Вези1ЕСоипе : = 
ка: кОцезЕ1опгоги.Вези1 ТА зЕВох. теешв .Соцае; 
Рог 1:= 0 во РоиезЕ1 оп (ОцезЕ4опТкее\Чем.Зе1ескей.Рака) .Вези1еСоиле-1 Чо 
Беа1п | 
РОцезЕ1опт (ОцезЕ1опТгее\У1е\м.бе1есееЯ.Рафа) .Кез11ЕТехе [1] := 
ЕЗ1 Оцезе1опРогиа.Вези1е115ЕВох. Теме .5ех1па$ [1]; . 
РОоцезЕтоп (Оцез1опТгее\У1ем.бе1ессеа.Раба).Кез116\Уа1ще[1]:= 
Е91ЕОцезЕ1опРоум.Везо111$ЕВох.СВескеяа[1]; 


епа; 


//Вызываем процедуру ОцезЕ1опТкее\/1еСрапае, которая должна обновить 
//информацию в Кезо1Е\У1ем. Первый параметр нас не ‘интересует, а второй 
//мы обязаны указать, потому что внутри процедуры Оцезе1опТгее\/1емСвапае 
//мы используем его. Здесь указывается выделенный элемент. | 
Оцез1опТкее\У1емСрапае (п11, ОцезЕ1опТкее\1ем.Зе1ескеа) ; 


епа; 


Единственное, что здесь нужно отметить, так это то, что обращение к структуре, 
связанной с элементом, происходит через свойство Рака выделенного элемента. 
Как мы уже знаем, там хранится указатель на структуру. То же самое можно было 
бы сделать, обращаясь через контейнер (в данном случае это будет не так удобно). 
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Но все же это возможно, и на. всякий случай рассмотрим пример, как можно обра- 
ТИТЬСЯ К СВОЙСТВу Маме: 


РОцезЕлоп (Оцез( 1001$ [ОцезЕ1опТгее\У1ем.бе1есееа. Тпаех]) .Мате 


Здесь используется контейнер оцезЕ1опЪ15еЕ. В квадратных скобках у него ука- 
зывается индекс элемента из контейнера, который нужен. Мы указываем индекс 
выделенного в дереве элемента оцез1опТгееУ\У1ем .5е1ессея. Тпаех. 


Для события опс11ск кнопки Удалить вы должны написать код, представлен- 
ный в листинге 25.7. 


ргоседиге ТоцезЕ1опВеза1ЕРохм.Бе1екеВае(опС11ск (бепЧет: ТОБ]есе); 
уах 


1паех, 1:Табедег; 
Бед1п 
1Е ОцезЕ1опТгееу\У1ем. $е1ескеЯ=п11 ЕВеп ех1е; 


//Подтверждение удаления 

1Е Арр11сае1оп.МеззадеВох (РСПаг ('Вы действительно хотите удалить — '+ 
ОпезЕ1опТгее\1ем.Зе1есееЯ.Техе), 'Внимание!!!', 
МВ_ОКСАМСЕГ+МВ_ТСОМТМЕОВМАТТОМ) <>1а0Кк ЕВеп Ех1е; 


//Сохраняем индекс выделенного элемента 


1паех: =ОцезЕ1опТгее\1е\м. бе1ескеа. Тпаех; 


//Удаляем выдёленный элемент из дерева 


ОцезЕ1опТхгее\1ем. ТЕетз .Ре1ебе (бцезЕ1опТкее\1ем. бе]есееа); 


//Удаляем из контейнера 
ОцезЕ1о0Г15$6.Бе1еке (Тпаех); 


ева; 


ПРИМЕЧАНИЕ. На компакт-диске, прилагаемом к книге, в папке \Примеры\Глава 25\ 
Тез{2\Редактор вы можете увидеть исходный код уже написанного примера. 


25.4. Сохранение и загрузка теста 


Наша программа умеет создавать тесты. Пора бы ее научить и сохранять их 
и тем более загружать потом созданные проекты для редактирования. Добавим 
кнопки открытия и сохранения проекта из дочернего окна в основное. 


ПРИМЕЧАНИЕ. Сохранение легче сделать внутри дочернего окна, а открытие в глав- 
ном. Но это нарушает правила оформления программ. Поэтому придется идти не со- 
всем простым путем, потому что мы должны писать программы правильно и хорошо 
разобраться с тем, как работать с дочерними окнами. 


Практика | | _ 647 


Для события ОпС11ск, связанного с нажатием кнопки Сохранить проект, напи- 
шем следующий код: 
ргоседиге ТТезеЕЯ1еохгЕРоги. бауеВи* 6 опС11ск (Зепаег: ТОБ)десе); 
Ъеач1п 
//Если активное дочернее окно равно нулю (нет активных окон), то выход 
1Е АсЕ1уемотср11Я=011 ЕВеп ех1{; 
//Если окно имеет имя ОцезЕ1опВеза1ЕРохут, то это 
//вопрос — варианты ответов, и вызываем для сохранения 
//процедуру ЗауеТезЕ1. | 
1Е АСсЕ1Уемотсь11а.Мапе='ОцезЕ1опКези1ЕРохиа' ЕНеп 
бауеТез*1; | | 
епа; 


Свойство АсЕ1уемртсь11а всегда указывает на активное в данный момент дочер- 
нее окно. Прежде чем использовать это свойство, его желательно сравнивать со зна- 
чением п:1, потому что в данный момент.может вообще не быть ни одного дочернего 
окна. В этом случае при обращении к. свойству может произойти "критическая" 
ошибка, потому что произойдет попытка чтения по несуществующему указателю. 

Процедуру зауетезе1 вы можете увидеть в листинге 25.8. 


ргоседоте ТТезЕЕЯ1еЕохРогт. бауеТез%1; 
уах 
Е$ :ТР1]ебегеап; 
1:Тобедег; 
З6еу: бегала [5]; 
Бед1п 
//Если у активного окна в свойстве #11еМате пусто, 
//то нет имени файла и нужно вызвать обработчик события 
//меню "Сохранить как...", чтобы появилось окно ввода 
//имени файла | | | 
1Е ТОцезЕ1опвези1 Рога (АСЕАУемотсн:1а) .Е11емапе='' реп 
Беа1п 
ЗауеА$МепасС11скК (п11); 
ех1(; 


ева; 


//Создаем новый файл. Если он уже существовал, то его 
//содержимое будет уничтожено 
Е3 : =ТЕ11е5егеашм.Скеа+е (ТОцезЕ1опВези1ЕРогта (АСЕ1Уемротср11а).Е11еМапе, 


ЕпСтеаее); 


ы 


//Сохраняем в начале файла текст "Тест", чтобы по нему потом 


//определить, к чему относится данный файл. 


22 Зак. 1273 
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ЗЕг:='Тест'; 
Е$ .Му16е($6х, 512е0Е (5х) ); 


//Сохранить имя проекта 
Е5 .Иг1Се (ТОцез1опВезу1 Роги (АсЕ1уеМотСср11а) .Рго)ес&Маще, 
$12е0ЕЁ (ТОцезЕ1опВезо]1ЕРогм (АсЕ1хемотсв11а) .РгозесЕМапе)); 
у 
//Сохранить количество вопросов 


Ез. Истее (ТОцезЕ:опрези1 Рони (АСЕЗУемотсь ла) ‚ Оцезефоп зе. Соцпе, 
$12е0Е (ТОчезЕ1опВеза1ЕЕохм (АСЕ1Уемотср114а) .ОцезЕ1опГг1$е.Сочпе)); 


//Запускаем цикл, в котором сохраняются все вопросы. 
Еох 1:=0 со ТОцезЕ1опвези1 Рога (АСЕАУемотсн1а) .Оцезетопьаве.Соипе-1 Чо 
Е5 .Мх16е (РОцезЕ1опт (ТОцез1опКеза1 Роги ( 
АСсе1уемотср11а) .ОцезЕ1оп1т1$6[1])^, $17еоЕ (ТОцезЕлоп)); 
Е1па]1у | 
//Закрыть файл 
Е5.Егее; 
епа; 


епа; 


Здесь все очень просто и с кодом можно разобраться по комментариям. Единст- 
венное, на что здесь надо обратить внимание, — это то, что структура Рочезе1оп 
находится В динамической памяти, поэтому при сохранении нужно указывать знак _ 
разыменования ^. Если этого знака не указать, то в файле сохранится адрес струк-_ 
туры, а не сама структура. В этом случае при чтении данных из файла будет прочи- 
тан адрес, но по этому адресу ничего интересного не будет, потому что после пер- 
вой же перезагрузки программы память очистится и сама структура уничтожится. 
В связи с этим для сохранения данных по адресу, а не самого адреса, нужно указы- ` 
вать знак ^. 

Обработчик события для пункта меню Сохранить как еще проще: 

ргоседцге ТТезеЕЯ1еогРогт. бауеА$МепаС11ск (бепаег: ТОБЗесЕ); 

ред1п 

1ЁЕ Збауер1а1о91.Ехесибе ЕВеп 
Бед1п 
ТОцезЕ1опКеза1 ЕРГохи (АСЕ1уУемотсв11а) .Е11еМаше : =бауер01а1о91. Р11еМаше; 
‘ЗауевиееопС11скК (1011); 
епа; 
епа; 


Здесь мы отображаем окно выбора имени файла. Если пользователь что-то вы- 
брал, то сохраняем имя файла в ‘свойстве г:1еМаме активного окна и вызываем об- 
работчик события кнопки Сохранить, где происходит сохранение. 

Теперь посмотрите на обработчик события 0пс11ск для кнопки Открыть проект 
(листинг 25.9). 
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ргоседаге ТТезсЕЯ1еогРогт.ОрепВиевопС11ск (беп@аег: ТОБЗесе); 
уах 

Е8:ТЕ11езегеам; 

1, Соцпе:Тибедег; 

ЗЕ’: беуапа [5]; 

Мемюдезе : РодезЕ1оп; 

‚ Беа1п 
//Показать окно открытия файла 
1ЁЕ поё Орепр+а10о4а1 .Ехесиее ЕВеп ех1е; 


//Открыть файл для чтения 
5 : =ТЕ11ебегеам.Сгеаее (ОрепП1а1091.Е11еМаше, ЁЕпОрепКеая); 


//Перейти в начало файла и прочитать заголовок 
Е5 .беек (0, зоггомВед1пп1п9а); 
Ё5.геаа(5ех, 512е0Е(5%г)); 


//Если заголовок равен тексту "Тест", значит, это "вопрос- 
//варианты ответов". 
1Е 5Ехг='Тест' ЕВеп 
Беач1п | 
//Создать новое окно теста 
ОцезЕ1опВе5\11*Гогт: =ТОцезЕ1опКеза1ЕРотм.Сгеа+е (Омтег); 


//Сохранить имя открытого файла в объекте окна 


ОцезЕ1опвези1ЕРоги.Е11еМапе: =Ореп01а10491.Е11епапе; 


//Прочитать имя проекта 
Е$ .Веаа (ОцезЕ1опВези1ЕЕогм.Рго]есЕМапе, 


$12еоЕ (ОцезЕ1опВеза1 Гоги. РгоЗесЕМате) ); 


Егу 
‚® //Прочитать количество вопросов 


Е5.Кеаа(СоцпЕ, з1хеоЁ(СоцпЕ).); 


//Запустить цикл чтения вопросов 

ог 1:=0 6о СомпЕ-1 ао 

Ъед1п | 
//Создаем новую структуру в памяти для вопроса 
Мемочцез* : =М№ем (РОцезЕ1оп); 
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//Читаю структуру 
Е5.ВеаЧ (МемОцез^, $12е0Е (ТОцезЕ1оп)); 


//Добавляем структуру в контейнер 
ОцезЕ1опВези1ЕРохт.ОцезЕ1о011$е.Ааа (Мемоиез(); 


//Создаем новый элемент в дереве 
м1ЕВ ОцезЕ1опКези1ЕРога.ОцезЕ1опТкее\У1ем . Теетмз .АЯа(п11, 
Мемоцезе .Мате) @о 
Бед1п 
ТтадчеТпаех: =0; 
Раса : =Мелюцче$е; 
епа; — 
епа; 
Е1па1]у 
//Закрываем файл 
Ез.Ргее; 
епа; 
епа; 


`епа; 


В чтении файла также ничего сложного нет. Все очень похоже на запись, и со 
всеми методами вы уже должны быть знакомы. Здесь также читаются данные 
в указатель на структуру РОчезЕ1оп, поэтому при чтении нужно разыменовывать 
указатель Мемоцез"^, чтобы данные записались по адресу, а не в адрес, т. е. в памя- 
ти, на которую указывает указатель. 


ПРИМЕЧАНИЕ. На компакт-диске, прилагаемом к книге, в папке \Примеры\Глава 25\ 
Тез{3\Редактор вы можете увидеть исходный код уже написанного примера. 


Вот на этом редактор можно считать законченным. Хотя еще не реализованы 
обработчики события для кнопок Печать и Свойства проекта. Но свойства проек- 
та нам не нужны, а вот печать оставим вам для самостоятельной работы. Попро- 
буйте добавить эту кнопку в структуру нашего проекта. 


25.5. Тестер 


Теперь напишем программу тестирования, которая будет загружать наши про- 
екты,` отображать вопросы и собирать статистику правильных ответов. Для этого 
будет-использоваться отдельная программа. 

Создайте новый проект и установите на форму ряд компонентов (форму вы мо- 
жете увидеть на рис. 25.7). 


О Панель тоо1вВах с тремя кнопками Открыть, Запустить и Выход. 


СО Компонент $каЕ1сТехе, где будут отображаться вопросы. В свойстве Маше ука- 
жите оцезЕ1опГаЪе1 И СВОЙСТВО АцЕо$1=е установите в Еа1зе. 
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^^ Програмна тестирования 


оная | а т к 


сои о Дальше» | 


Рис. 25.7. Форма будущей программы 


О Список съескь1 зЕВох, в котором будут отображаться варианты ответов. В свой- 
стве Маме укажите оцезе1опСпескг1 5. | 


С Кнопка Дальше. 


В разделе куре объявите структуру точезе1оп такого же вида, как и в редакторе 
вопросов. Количество и размерность полей структуры должны быть одинаковы, 
потому что мы будем использовать ее для загрузки данных из файла. 


ВНИМАНИЕ. Если какое-то поле будет отличаться от остальных, то при загрузке про- 
изойдет ошибка. 
суре 

РОцезЕ1оп=^ТОцезЕ1оп; 

ТОчезЕ1оп=гесога 

Маме: Зеулта[255]; 

Кези1ЕСочлпЕ : Тпбедег; 

Вез11ЕТехе: аггау[0..10] оЕ` 5Ег1та [255]; 

Вез11Е\Уа]ае: аггау[0..10] оЕЁ Боо1еап; 

епа; 


В разделе рх1уаЕе объявите следующие переменные: 
рих1уасе 
{ Ри1уаее аес1акаЕ1оптз$ } 
ОцезЕ1о0п11$%:7ТЬ15$6; 
ОцезЕ1оп, ОцезЕ1опМитрег, РГа1зеМопрег: Тпеедег; 
Р11еМаше : $Еу1па; | 


Рассмотрим, для чего нужны эти переменные. 


С оцезЕ1орр1зЕ — здесь будет храниться список вопросов, как и у редактора 
вопросов. 
О оцезЕ1оп — будет отображать текущий вопрос, на который отвечает испы- 


туемый. 
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С] оцезЕ1опМащьег — здесь будет храниться количество вопросов, на которые уже 
даны ответы. Нам же надо иметь счетчик, после которого тест должен закончиться. 


С га1зеМашьехг — определяет количество неправильных ответов. 


Теперь создадим обработчик события оп5Нвом для главной формы. В этом обра- 
ботчике нужно инициализировать список Оце5Е 1011156: 
ргоседцге ТТезЕРогта.РотгтабВом (бепдехг: ТОБзес®е); 
Бед1п | 
ОцезЕ1011$6:=Т1$6.Сгеаее; 
епа; 


По событию опоез сгоу МЫ ДОЛЖНЫ УНИЧТОЖИТЬ ЭТОТ объект: 

ргоседиге ТТезеРохт.РохтОезегоу (бепдег: ТОБ]есЕ); 

Ъеач1п | 

Оцез(101011$%.Еуее; 

епа; | 

Теперь для кнопки открытия напишем следующий код: 

ргоседиге ТТезЕРКоги.ОрепВаЕопС11ск (бепаег: ТОБ)ес®); 

Беа1п 

//Показать окно открытия файла 

1Е поЕ Орепр1а1о91.ЕхесиЕе ЕБеп ех1*; 
Е11еМаме : =Ореп01а1091.Е11епапе; 
ВКопВиебоп .ЕпаЬ1еа:=Ехое; 

епа; 

В первой строке кода отображаем окно открытия файла. Если пользователь на- 
жал на кнопку Отмена, то происходит выход из процедуры. Иначе в переменной 
Е11еМаше сохраняется имя выбранного файла. В принципе, этого можно было и не 
делать, потому что имя файла останется в свойстве орепр1а1091.Е11епаме. Но 
здесь все же определена отдельная переменная, в которой будет храниться имя 
файла (надеяться на свойства компонента диалогового окна не стоит). 

В последней строке делаем кнопку Запустить (ВопвВоеЕоп) доступной. Кстати, 
‚ на форме эта кнопка должна быть не доступной, чтобы при старте программы 
пользователь не мог ее нажать, пока не выберет файл. | 

Теперь напишем обработчик события опс11ск для кнопки Запустить: 

ргоседите ТТезЕРохм.КипВиееопС11ск (бепаег: ТОБ]есх); 

Бед1п 

ГоааЕ11е; 
ОцезЕ1опМипнет:=0; 

— Ра]1зеМ\№омрег : =0; 
МехЕВиебоп .Епар1еа: =етое; 
МехЕОцезе1оп; 

епа; | 

В первой строке вызываем процедуру гоааЕ11е, которую напишем чуть позже, 
и она будет загружать список вопросов из выбранного файла проекта. Почему мы 
должны загружать вопросы каждый раз при старте программы? Да потому что тест 
будет происходить следующим образом: 


1. Из списка вопросов случайным образом выбирается первый попавшийся вопрос. 
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Пользователь отвечает на него, и мы удаляем его из списка. Таким образом, 


_ в следующий раз, когда будем выбирать вопрос из списка, мы будем точно уве- 
рены в том, что в списке вопроса, на который уже отвечал пользователь, нет. 


‚ При следующем старте теста список вопросов инициализируется заново (мы 
снова загружаем весь список) и все вопросы возвращаются на свои места. 


После загрузки вопросов обнуляем все переменные и делаем доступной кнопку 
МехЕВиЕсоп (эТо кнопка Дальше, по нажатии которой будет выбираться следую- 
щий вопрос). При старте программы кнопка Дальше должна быть недоступной. 

В последней строке мы вызываем процедуру МехЕОцезЕ1оп, которая и будет вы- 
бирать случайный вопрос и отображать его в окне программы. | 
Теперь посмотрим на процедуру загрузки вопросов — ьоааЕ11е. Она идентична 
уже написанной процедуре загрузки в программе редактора вопросов, и ее код 
можно увидеть в листинге 25.10. 


р 


тоседите ТТезеРГоут.ГоаЯЕ11е; 


уаг 


ЕЁз:ТЕ11ебегеап; 

1, Сомпе: Тпбедег; 

Ех: 5Ех1па [5]; , 
Рхго)ес&Маме : $ег1па [255]; 
Меуоцез® : РОцезе1оп; 


Бед1п. 


Оце$Е1о0п11$е.С1еат; 
//Открыть файл для чтения 
Ез : =ТЕ11ебсгеам.Схгеабе (Е11еМапе, ЁпОрепКеаа); 


//Перейти в начало файла и прочитать заголовок 
Ез .беек(0, зоЕгомВеа1пп1п9а); 


Е$ .хеаа($еу, $17е0Е(5%г)); 


//Если заголовок равен тексту "Тест", значит, это 


’/варианты ответов". 


1Е ЗЕх='Тест' ЕВеп 
Беа1п 
//Прочитать имя проекта 
Е$ .Кеаа(РгоЗ]есЕМате, з1хеоЁ (Рго)есЕМаме) ); 


СарЕ1оп: =Рхо4есЕМапе; 


гу 
//Прочитать количество вопросов 


"вопрос- 
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Ез .Веаа (СоопЕ, э1лхеоЕ (СоцпЕ)); 


//Запустить цикл чтения вопросов 
Еог 1:=0 6о Соипе-1 ао 
Беач1п 
//Создаю новую структуру в памяти для вопроса 
Мемочезе: Ме (РОцезЕтоп) ; 
//Читаю структуру. 
Е .Веаа (Мемоцез®^, 512е0Е (ТОиезЕ1оп} ); ` 


//Добавляем структуру в контейнер 
ОцезЕ1о01,13Е.АДА (Мемючез();. 
епа; 
Е1па11у 
//Закрываем файл 
Е$.Егее; 
еп; 
епа; 


ета; 


Тут все должно быть понятно, но на всякий случай весь программный код поме- 
чен подробными комментариями. 

Теперь посмотрим на процедуру МехкОцезЕ1 оп, которая должна случайным об- 
разом выбирать вопрос из списка. Эту процедуру вы можете увидеть в листин- 
ге 25.11. 


ргоседиге ТТезЕРона.МехЕОчезе1оп; 
уах 
1: тибедег; 
Бед1п 
Капдоп12е; 
ОцезЕ1 оп: =Вапдот (ОцезЕ+опь1эЕ .Соипе-1); 


ОпезЕ1топГаЪе]1 .СарЕ1от : =РОцезе1оп (биезЕ1о0оп115% [ОцезЕ1оп])} .Мате; 


ОцезЕ1опСвескт1зе.Тееше.С1еаг; 
Рог 1:=0 во РочезЕ1опт (0цезЕ10п1156 [Оцез(1оп]) .Кези1ЕСоипЕ-1 ао 
оцезЕ1опСВескть1 зе. теемз.Ааа( о 
РОцезЕ1 опт (ОцезЕ 1001156 [Оцез610п]).ВКез11ЕТехЕ[1]); 


Тис (ОцезЕ1опМ№опрег); 


епа; 
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В первой строке мы вызываем процедуру вапдоп12те, которая инициализирует 
таблицу случайных чисел. Если вы опустите вызов этой процедуры, то ничего 
страшного не произойдет, и когда вы будете запрашивать случайное число, то оно 
будет случайным, но все же лучше инициализировать таблицу. Просто в этом слу- 
чае считается, что эффективность получения действительно случайного числа бу- 
дет наилучшей. - | 

Во второй строке вызываем функцию вапдот, которая возвращает случайное 
число. Ей нужно передать в качестве параметра максимально допустимое число. 
Мы передаем оцезе1опг1зе.Соипе-1, т.е. количество вопросов в нашем списке. 
Функция вернет случайное число от 0 до указанного числа. Сохраняем это число 
в переменной оцезЕ1оп. 

В следующей строке кода показываем в компоненте оцезЕ1опЬаЪъе1 вопрос. За- 
тем очищаем список ответов в компоненте оцезе1опСвескг1зЕ и заполняем его 
вариантами ответов, относящихся к данному вопросу. В последней строке кода 
увеличиваем переменную оцезЕ1опМильег, в которой у нас хранится количество 
вопросов, на которые уже был дан ответ. | | 

Для события 0пс1{ск, связанного с кнопкой Далее, напишите код, представлен- 
ный в листинге 25.12. 


И 


ргоседиге ТТезЕРГоуа.МехеВиевопС11скК (бепаехг: ТОБЗес®); 
уах 

ОК:Воо1еап; 

1: Табедег; 
Беач1п 


ОК: =Етие; 


Рог 1:=0 во РОцезЕ1оп (Оцез& 1001156 [Оцез(1оп]) .Везо1ЕСоипе-1 @о 
1Е РОчезЕ1оп (Оцез6 100156 [ОцезЕ1оп]) .Вез11ЕУа]пе[1]<> 
ОцезЕ1опСреск!1$Е .Свескея[1] ЕРеп 
ОК:=Еа15е; 


1Е ОК=ЁЕа1зе Етеп 
Тпс (Еа]1зем№опрет); 


//Удаление вопроса из списка 


ОцезЕ101115е.Пе1есе (Оцез®1оп); 


1Е Оцезе1опМитег<5 Ереп 
МехеОцез$Е1оп | 

е1зе 

Беа1п 


Арр11саЕ1оп .МеззадевВох ( 
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РСПат('Вы закончили тест с количеством ошибок = '+ 
ТпЕТобех (Га1зе\№отрехг)), 'Внимание!!!'); 
МехЕеВаебоп . ЕпаБ1е@: =Ёа15е; 
епа; 
епа; 


В первой строке кода логической переменной ОК присваивается значение сгие. 
В этой переменной мы будем хранить состояние результата ответа. По умолчанию 
будем считать, что ответ правильный, поэтому и устанавливаем значение. сгие. 

Далее запускается цикл от 0 до количества вариантов ответов в списке. Внутри 
цикла сравниваем значение правильных ответов с состоянием свойства Ссвескея 
компонента оцезЕ1опснескь1зе. Если что-то не совпадает, то тестируемый где-то 
ошибся и нужно переменной ОК присвоить значение га1зе, т. е. ответ неверный. 
После цикла происходит проверка, если переменная ОК равна Еа1зе, то увеличи- 
ваем счетчик неправильных ответов Еа1зеМольег на единицу. 

Все, текущий вопрос нам в списке больше не нужен. Его нужно удалить, чтобы 
он больше не появился, когда мы будем случайным образом получать следующий 
вопрос. 

Далее происходит проверка, если количество отображенных вопросов меньше 5, 
то выбираем следующий вопрос (вызываем процедуру МехеОцезЕ1оп), иначе ото- 
бражаем сообщение с состоянием пройденного теста и делаем кнопку Далее не- 
доступной. 

Как видите, наш тест состоит из 5 вопросов, и если вам нужно больше, то може- 
те увеличить это значение. В редакторе вопросов есть кнопка свойств, по нажатии 
которой можно отображать окно свойств проекта. Можно сделать возможность 
выбирать количество вопросов, на которые должен ответить испытуемый в этом 
окне. Потом эти свойства можно сохранить в файл проекта и загружать в програм- 
ме теста. Но все это делать мы не будем, потому что у вас уже есть достаточно зна- 
ний, чтобы попробовать все это проделать самостоятельно. — 


ПРИМЕЧАНИЕ. На компакт-диске, прилагаемом к книге, в папке \Примерь\Глава25\ТезИ\ 
вы можете увидеть исходный код уже написанного примера. 


ПРИЛОЖЕНИЯ 


Приложение 1 


Основные классы 
библиотеки УМСЁ 


В этом приложении мы рассмотрим основные классы библиотеки УСГ, которые 
являются базовыми для многих других классов компонентов. Мы рассмотрим ос- 
новные свойства и методы этих классов, которые могут вам пригодиться. Мы опус- 
тим те свойства и методы, которые созданы только для внутреннего использования 
‚ классом, а также закрытые. | 


П1.1. ТОБес! 


Класс тоь3есе является основным для всех классов в Оеры. Этот класс реали- 
зует основные функции, необходимые для создания и уничтожения объекта, мето- 
ды для определения типа объекта во время выполнения, выделение и освобождение 
памяти и т. д. Методы этого класса очень редко вызываются напрямую. = 


| П1.2. ТРегзг&1етЕ 


Этот класс реализует возможности работы с потоками и назначения. Если нужно, 
чтобы один объект можно было назначить другому, то в качестве предков должен 
присутствовать ТРехз1зЕепЕ или придется эти функции реализовывать самостоя- 
тельно. Методы этого класса описаны в табл. 11.1 | 


Таблица П1.1. Методы класса трегз1зкепе 
О СООО 
А5519 п Метод копирует в объект содержимое объекта, переданного в качестве 
| параметра | 


А5519пТо Метод копирует собственный объект объекту, указанному в качестве 
параметра | | 
СеЕМамерае В Функция возвращает имя объекта как имя, появляющееся в объектном 
инспекторе 
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П1.3. ТсСотропет 


Этот класс является предком для всех классов, которые хотят быть компонента- 
ми. Правда, этот класс может быть предком только для невизуальных компонентов, 
т. е. не видимых во время выполнения, а на форме видимых только в виде квадра- 
тика с иконкой. Свойства и методы этого класса описаны в табл. [11.2 и П1.3 соот- 
ветственно. | 


| | Таблица П 1.2. Свойства класса тсСотропепе 
СотропепЕСоцпеё. Количество компонентов, которыми владеет класс 


) 
Список компонентов, которыми владеет класс 
СотропепеТпаех Определяет позицию компонента в свойстве Сотропепез 


Компонент, который является владельцем для класса 


Таз Числовое свойство, которое можно использовать на свое 
| усмотрение 


_ Таблица П1.3. Методы класса тсотропепе 


О 


П1.4. ТСопно/ 


Если необходимо, чтобы компонент был.виден во время выполнения, то в каче- 
стве предка или среди предков должен быть ТСопЕго1. Описание свойств, методов 
и событий класса ТСопего1 представлено в табл. 11.4, П1.5 и П1.6 соответственно. 


Таблица П1.4. Свойства класса тсопЕго1 


Свойство оне 
Действие, привязанное к компоненту | | 
Выравнивание компонента относительно родителя 


Апсвог5 | Якоря, с помощью которых можно прикрепить компонент 
к одной из сторон родительского компонента 

Ацсо512е Автоматически подгонять размер компонента в соответствии 
с дочерними компонентами (содержимым) 
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Свойство Описание. 


СарЕ1оп Заголовок, связанный с компонентом 


С11епЕНезане Высота клиентской области компонента 


С11еп Е ИзаЕв Ширина клиентской области компонента 


С11епеВесЕ 


Клиентская область в виде структуры ТКесе 


Со1ог Цвет 


СопзЕга1пез Ограничения размера 


СопЕго1б6абе Состояние 


СопЕго15Еу1е Стиль 


Сиг5огх Указатель курсора, который принимает указатель мыши, 


когда находится поверх компонента 
РгадСигзох Курсор во время перетаскивания (Огаддта)` 
РгачкК1па Стиль перетаскивания компонента 


Епаь1еа Доступен компонент или нет 
Шрифт 


Высота 


РопЕ 
Незаве 


Не1рСопсехе Идентификатор раздела файла помощи, связанного с компонентом 


Не1рКеумока Ключевое слово для контекстно-зависимой помощи 


‚| Ракепе Родитель, т. е. компонент, на поверхности которого расположен дан- 
ный компонент 


РагепЕСо1ог Цвет компонента должен браться у родителя 


РагепЕРопе Шрифт компонента должен браться у родителя 


РагепЕ5помН1ие | Свойство 5номн1пЕ установить как у родителя 


РорарМепи Всплывающее меню 


ЗВомНапЕ Нужно ли отображать подсказки 


Техе | Текст, связанный с компонентом 


Тор Верхняя позиция 


Е1оае1па Является ли компонент плавающим 


(не прикрепленным к родительскому компоненту) 


ОпаоскНнелаве Высота компонента, когда он плавающий 


Опаоски1аеь Ширина компонента, когда он плавающий 


\у15151е Видимость компонента 


изаев 
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Таблица П1.5. Методы класса тСопего1 


| ве9115ха9  — Начать перетягивание компонента 
Открепить компонент программно . 


РагепеТоС11епе Преобразовать родительские координаты в клиентские для эле- 
| мента управления | | 


[ева — |[Усзновить позицию она вместь срамером оной ужей — 


Все события класса ТСопего1 являются закрытыми и по мере необходимости 
открываются наследниками. | 


Таблица П1.6. События класса ТСопЕго1 
О ОО 
ОпСапкез12е Когда происходит попытка изменить размер компонента, здесь вы 
можете заблокировать попытку | 


ОпС11ск _ Когда пользователь нажимает кнопку мыши на компоненте 


опсопсехЕРорир Когда необходимо отобразить контекстное меню, т. е. пользова- 
тель нажал правую кнопку мыши или нажал клавишу вызова кон- 
текста на клавиатуре | 


0п0Ь1С11ск Возникает при двойном щелчке кнопки мыши 
ОпргачеОгор Когда пользователь бросил перетаскиваемый компонент 
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Таблица П1.6 (окончание) 
ОпргачОуег Когда пользователь перетаскивает компонент поверх 
существующего . | 
ОпЕПаОгад Когда завершено перетаскивание — компонент брошен или поль- 
зователь отменил операцию 
ОпЕПароск Когда завершено перетаскивание, а в свойстве ргазК1па указано 
значение акроск 


ОпМоцзеАсЕ1уаее | Когда пользователь нажал кнопку мыши в тот момент, когда 
указатель находился поверх компонента, при этом родительская 
форма не активна ` 


Когда указатель мыши вошел в зону поверхности компонента , 


ОпбкахгеРоск Когда пользователь начинает перетаскивать компонент, 
а в свойстве ргадк1па указано значение акроск 


П1.5. ТИпСопно/ 


Все компоненты, которые являются оболочкой для элементов управления 
\УЛт4о\з, являются наследниками данного класса. Компоненты, которые в Веры 
расположены на вкладке У\апдага, являются как раз оболочками. Дело в том, что 
компоненты \У/тдо\$ в чистом виде даже не являются объектами, поэтому 
в ВоПап4 создали классы, которые являются оболочкой для необъектных компо- 
нентов \Ут4о\$. Свойства, методы и события класса Ти1пСопЕко1 описаны 
в табл. 11.7, 11.8 и П1.9 соответственно. 


| Таблица П1.7. Свойства класса Ти1пСопЕго1 


А119п01заЪ1еа Преобразование заблокировано | 
Кисть, используемая для отображения 
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Свойство — Описание 


СопЕго1СомпЕ Количество дочерних элементов управления. 
Не путайте с СопропепЕСочцпЕ у ТСотропепе 


[созеко1е | Список дочерних элементов утраеня | 


| Таблица П1.7 (окончание) 


Идентификатор компонента 
РагепЕ\М1пом Родительское окно 


ТаБОгаег Индекс компонента в списке переключения с помощью клавиши 
<ГаЬб> 
ТаЪ5Еор Можно ли переместить фокус на компонент с помощью клавиши 


<Габ> 
Возвращает, может ли элемент управления получать фокус 


Сопеа1п5СопеЕго1 В качестве параметра передается элемент управления, и если он 
есть среди дочерних, то результатом будет ские 


СеЕТафОг4ех11 5% Вернуть список порядка перехода между дочерними компонентами 
с помощью клавиши <Таб> 


ТпзесЕСопЕго1 Вставить дочерний элемент управления 


Таблица П1.8. Методы класса ТИ1пСопЕго1 


Ра1пЕТо Нарисовать содержимое компонента на холсте, переданном 
в качестве параметра 


| ВетоуеСопЕко1 Удалить элемент управления 
Перерисовать 


, 


Все события являются закрытыми и по мере необходимости открываются на- 
следниками. 
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Таблица П1.9. События класса ти1пСопЕго1 


ОпА119лТпзегЕВеЕоге Когда компонент выравнивается при вставке 
ОпА119пРо51Е10п Когда компонент выравнивается в новую позицию | 


ОпроскОгор Когда другой компонент прикрепляется к данному элементу 
управления 


ОпОпроск Когда приложение пытается открепить компонент, прикреплен- 
| ный к оконному элементу управления 


П1.6. ТАррИсаНоп 
События класса тАрр11саЕ1оп описаны в табл. П1.10. 
Таблица П1.10. События класса ТАрр11саЕ1оп 


Событие 


ТАСсЕ1опЕхесиее Когда срабатывает метод кхесиее объекта Асе1оп, а список 
АСЕ1оп Не обработал событие . 


ТАС 1опОраасе Когда срабатывает метод прааЕе объекта АсЕ1оп, а список 
АсЕ1 оп Не обработал событие 


ОпПАСсЕ1уасе Когда приложение становится активным 
ОпреасЕ1уаее Когда приложение становится не активным 


ОпМе5завде Когда курсор становится поверх компонента, содержащего 
подсказку Н1пЕ 
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Таблица П1.10 (окончание) 


опбееЕ1паСпапде Когда \\Мтдом/$ сообщает приложению о том, что изменилась 
политика или системные настройки 


Оп5ВокЕСие Когда пользователь нажимает клавишу, но до обработки события 
опКеуПомт | , 


Оп5ВомН1пЕ Когда приложение должно отобразить подсказку в1пЕ 


Приложение 2 


Описание компакт-диска 


Структура компакт-диска, прилагаемого к книге, представлена в табл. 12.1. 


Таблица П2.1. Структура компакт-диска 


\ О! Динамические библиотеки, необходимые для запуска примеров 
работы с графикой 
\ |тадез$ Набор картинок для ваших приложений | 
| \ Ргодгатз Программы | 


\ Документация Дополнительные документы в формате РОЕ 


\ Заголовочные файлы | Заголовочные файлы для работы со звуком и графикой 
\Компоненты Дополнительные компоненты 
\ Примеры Исходные коды примеров из книги | 
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Руе | Флёнов Михаил . 
Библия С# 
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мимими.БИМ.ги 


Магазин "Новая техническая книга": СГб., Измайловский пр., д. 29, 
тел.: (812) 251-41-10 


Отдел оптовых поставок: е-тай: ор{@ БЛу.5рь.зи 


Программирование может быть доступно каждому! 


“... В этой работе я постарался дать максимально возможную и полезную информацию о плат- 
форме „МЕТ и языке С#. На компакт-диск выложено множество дополнительных материалов, ко- 
торые пригодятся вам в самостоятельном изучении. Книга дает основную и необходимую информа- 
цию, чтобы вы сразу после ее прочтения смогли приступить к написанию своих собственных 
приложений ... 


2) 


Михаил Флёнов 


Программирование для .МЕТ на С# 

Базы данных 

Графика и мультимедиа . 

Повторное использование кода 

Изучение языка на полезных примерах 

Большое количество дополнительной информации 

на СО 

Книга будет полезна всем, кто хочет научиться писать про- 
граммы для платформы М!сгозой .МЕТ на современном и удоб- 
ном языке программирования С#. Большое количество практи- 
ческих примеров, легкость изложения материала и интересные 
комментарии призваны сделать обучение занимательным и не- 
скучным, а подробное описание логики выполнения каждого 
участка кода поможет читателю использовать полученные зна- 
ния при разработке собственных приложений. Электронная справочная информация и ста- 
тьи, содержащиеся на компакт-диске к книге, послужат дополнительным источником зна- 
ний в процессе дальнейшего обучения. Особого внимания заслуживают расположенные на 
СР готовые компоненты, изображения и тестовые программы компании Сур бой\аге Габ$ 
(у\му.суд5оЙ.сот), которые могут быть полезны для программистов и сетевых администра- 
торов. 


Флёнов Михаил, профессиональный программист. Работал в журнале «Хакер», в котором несколько 
лет вел рубрики «НаскК-ЕАО» и «Кодинг» для программистов, печатался в журналах «Игромания» и 
«Стр-Россия». Автор бестселлеров «Библия Ре!рШ», «Программирование в Бер! глазами хакера», 
«Программирование на С++ глазами хакера», «\МеБ-сервер глазами хакера», «Компьютер глазами ха- 
кера» и др. Некоторые книги переведены на иностранные языки и популярны в США, Канаде, Польше 
и других странах. 


_ Мауогдото_ 


Хостинг. Домены. Серверы. 


(812) 335-35-45 (495) 727-22-78 
угигиг. па) ототло.ги 
Входит в пятерку крупнейших хостинг-провайдеров России. 


На рынке с 2000 года. Полный комплекс услуг, — 
связанных с размещением Вашего сайта в сети Интернет. 


Кед!гапе 


Крупнейший аккредитованный регистратор 
доменных имен в зоне .гаи .5и 
в Северо-Западном регионе России. 


(812) 335-35-45 (495) 727-22-78 
угигиг.тед1${тапе.ги 


Полный комплекс услуг, связанный с регистрацией, продлением и 
переоформлением Вашего домена. 


соединяйтесь 
к техническому сообществу 


Мисго$о 


„тпт5 ай 


Русский М$ОМ — портал для разработчиков ПО, содержащий техническую 
информацию о продуктах и технологиях МкгозоЙ: АЗРМЕТ, $Иуе ам, Миа! 
ито, $ОЕ егуег, .МЕТ ЕгатемогК и др. На портале вы найдете: - 


— Новости для разработчиков 

— Техническую библиотеку 

— Форумы 

— Блоги сотрудников Мсгозой 

— Пробные и бета-версии продуктов МкгозоВ 


Начинающие разработчики смогут найти информацию о том, как шаг за 
шагом разработать свое первое приложение для настольного ПК, мобиль- 
ного телефона, облака или веба, 


\_ Имиист5дп.соти/ги-ги 


Мисгозой: | Тес Ме! 


Русский ТесНМет{ — портал для специалистов в области системного админи- 
стрирования и поддержки пользователей, содержащий техническую инфор- 
мацию о продуктах и технологиях Мсгоб$оЙ: МУйп4о\м$ Зегуег, ЗПагеРо!п\, 
Ехспапде, 5ует Сегиег, Еогетоп, ОЙке и др. . 


\ор: ОО МОКАНЬХАКАЮ ОК ИМЕ Им кии ху 


(и ии, Чесвпее сотуги-ги 


Магазин-салон 


| «НО ТЕХН 


190005, Санкт-Петербург, — ВХ 
Измайловский пр., 29 


по компьютерным технологиям, радиотехнике и электронике, 
физике и матемотике, строительству и архитектуре, транспорту, 
машиностроению и другим естественно-научным 

и техническим направлениям 


Ежедневное пополнение ассортимента — ПЕ 


_ Подарки м скидки покупателям 


*. 


- › Магазин работает с 10.00 до 20.00 
| без обеденного перерыва 
выходной день — воскресенье 


Тел.: (812) 251-41-10, е-тай: гаче@\еспкпва.сот 
| млАим/.БКУ. ГИ _ | 


Библия 
Берш 

3-е издание 
Вы хотите научиться быстро и качественно писать. свои собственные 
программы на Вер? Вы уже Начали изучать. программирование, но 
многие вещи вам еще непонятны или вы хотите повысить свой уровень? 
Тогда эта книга для вас. В ней вы найдете полную информацию’ по 
программированию от самых основ до примеров построения конкретных 
приложений. Прочитав ее, вы научитесь создавать программы, которые 
помогут в повседневной жизни, учебе и, возможно, принесут доход 
в работе. Электронная справочная информация и статьи, ‘содержащиеся 
на компакт-диске к книге, послужат дополнительным источником знаний 
в процессе дальнейшего обучения. Особого внимания заслуживают рас- 
положенные на СР изображения и компоненты, которые помогут сделать 
программы более элегантными и привлекательными. 


«...Я постарался сделать эту книгу как можно более интересной и как 


можно менее скучной. Обучение не может быть легким, но оно должно 
быть максимально интересным, и тогда материал усваивается на- 
много лучше. На компакт-диске я выложил много полезной докумен- 
тации, которая поможет вам двигаться дальше после прочтения 
книги...» 


Ср 


Компакт-диск содержит исходные коды программ, дополнительную спра- 
вочную информацию, а также готовые изображения и компоненты. 


Михаил Фленов 


Флёнов Михаил, профессиональный программист. Рабо- 
тал в журнале «Хакер», в котором несколько лет вел рубрики 
«Наск-РАО» и «Кодинг для программистов», печатался в 
|-= журналах «Игромания» и «СШр-Россия». Автор бестсел- 
Да "ее «Библия С#», «Программирование в Берн! глазами 
№ хакера», «Программирование на С++ глазами хакера», 
| «\МеБ-сервер глазами хакера», «Компьютер глазами хакера» и др. Неко- 
торые книги переведены на иностранные языки и изданы в США, Канаде, 

Польше и других странах. 
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8597 71506670 БХВ-ПЕТЕРБУРГ 190005, Измайловский пр., 29 
Е-тай: пай@Ьпу.ги; и\егтеЕ мумм.БНу.ги; Тел.: (812) 521-42-44, факс: (812) 320-01-79 
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